Em xin chào anh chị!
Em tìm trên mạng code vba lấy danh sách file trong một folder để đưa vào Excel, nhưng khi chạy thì nó không tìm được trong thư mục ghi dấu tiếng Việt hoặc trong tên file có chứa tiếng Việt thì kết quả trả về nó là dấu hỏi.
Anh chị giúp em khắc phục với ạ, Đây là code em copy trên mạng ạ!
Em xin chân thành cảm ơn anh chị đã giúp ạ!
Em tìm trên mạng code vba lấy danh sách file trong một folder để đưa vào Excel, nhưng khi chạy thì nó không tìm được trong thư mục ghi dấu tiếng Việt hoặc trong tên file có chứa tiếng Việt thì kết quả trả về nó là dấu hỏi.
Anh chị giúp em khắc phục với ạ, Đây là code em copy trên mạng ạ!
Mã:
Option Explicit
Function GetFileList(FileSpec As String) As Variant
' Returns an array of filenames that match FileSpec
' If no matching files are found, it returns False
Dim FileArray() As Variant
Dim FileCount As Integer
Dim FileName As String
On Error GoTo NoFilesFound
FileCount = 0
FileName = Dir(FileSpec)
If FileName = "" Then GoTo NoFilesFound
' Loop until no more matching files are found
Do While FileName <> ""
FileCount = FileCount + 1
ReDim Preserve FileArray(1 To FileCount)
FileArray(FileCount) = FileName
FileName = Dir()
Loop
GetFileList = FileArray
Exit Function
' Error handler
NoFilesFound:
GetFileList = False
End Function
Sub LayDanhSach()
Dim p As String, x As Variant, i As Long
p = Range("D1").Value
x = GetFileList(p)
Select Case IsArray(x)
Case True 'files found
' MsgBox UBound(x)
Range("A2:A100000").Clear
For i = LBound(x) To UBound(x)
Cells(i + 1, 1).Value = x(i)
Next i
Case False 'no files found
MsgBox "No matching files"
End Select
End SubEm xin chân thành cảm ơn anh chị đã giúp ạ!
