比如这个文件夹为D:\新建文件夹，里面有jpg、xls等各种类型的文件，vba怎么写宏代码能把这个文件夹里所有文件一次性导入绝对路径(包括扩展名后缀）到excel表格第一列里？另外能否不设置弹窗选择这个文件夹，直接固定搜索这个文件夹？
Sub MMM()
Dim myPath$, myFile$, i&
Application.ScreenUpdating = False
myPath = "D:\新建文件夹" & "\"
myFile = Dir(myPath & "*.*")
Do While myFile <> ""
i = i + 1
Cells(i, 1) = myPath & myFile
myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub
Dim myPath$, myFile$, i&
Application.ScreenUpdating = False
myPath = "D:\新建文件夹" & "\"
myFile = Dir(myPath & "*.*")
Do While myFile <> ""
i = i + 1
Cells(i, 1) = myPath & myFile
myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub
温馨提示：答案为网友推荐，仅供参考
