Liệt kê tất cả các tên tệp trong thư mục
Đoạn mã sau là một chương trình con sẽ lấy tên của tất cả các tệp có trong đường dẫn thư mục:
Sub List_All_The_Files_Within_Path () Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C: My Documents" Row_No = 36 'Liệt kê tất cả các tệp trong thư mục hiện tại Với Application.FileSearch .NewSearch .LookIn = File_Path .Filename = "*. *" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Ô (kk25 + 5, 15) .Value = .FoundFiles (kk25) Tiếp theo kk25 End With End Sub
Nó sẽ ghi tên tệp vào Sheet1 trong cột O - bắt đầu từ hàng 36
Tải xuống tệp Excel tại đây
