Sub All_File()
On Error Resume Next
Dim my_Path, my_File As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
my_Path = .SelectedItems(1)
End With
my_File = Dir(my_Path & "\" & "*")
Dim i As Single
i = 1
Do While my_File <> ""
Cells(i, 1) = my_File
my_File = Dir
i = i + 1
Loop
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024