Skip to content

Instantly share code, notes, and snippets.

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
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.