Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Sub GetDirNames() 'Lấy danh sách tên file trong thư mục
Const sPath="C:\Test\" 'Đường dẫn tới thư mục
Dim sFil As String
sFil=Dir(sPath & "*.xl*") 'đuôi file .xlsx .xlsb .xlsm... đều sử dụng được
Do While sFil <> ""
Range("D65536").End(xlUp)(2).Value=sPath & sFil 'Lấy danh sách các tên file trong thư mục
sFil=Dir
Loop
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.