VBA获取文件夹下文件名、绝对地址

excel VBA

获取文件夹下文件名、绝对地址

Sub XQ_fileOB()
Dim ma As Long, myFile
Dim FolderDialogObject As FileDialog
Set FolderDialogObject = Application.FileDialog(msoFileDialogFolderPicker)
With FolderDialogObject
.Title = "请选择要查找的文件夹"
.InitialFileName = "C:\"
End With
FolderDialogObject.Show
paths = FolderDialogObject.SelectedItems(1)
mypath = paths & "\"
ipath = Dir(mypath & "*.*")    '可以使用通配符，输出所有xls 和 xlsx 文件
myFile = Dir(mypath, vbDirectory)
a = 1
Do While myFile <> ""
If myFile <> "." And myFile <> ".." Then
Cells(a, 1) = myFile
Cells(a, 2) = mypath & myFile
a = a + 1
myFile = Dir
Else
myFile = Dir
End If
Loop
End Sub