vba获取文件夹下所有文件名
可以使用VBA中的Dir函数来获取文件夹下所有的文件名。以下是一个示例代码:
Sub GetFileNames()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\MyFolder\" '修改为你要获取文件名的文件夹路径
MyFile = Dir(MyFolder & "*.*")
Do While MyFile <> ""
Debug.Print MyFile '可以将文件名输出到Excel中
MyFile = Dir
Loop
End Sub
需要注意的是,Dir函数会返回变量P指定路径下带任意扩展名的文件名,如果有超过一个文件存在,将返回第一个找到的文件名,如果一个文件都没有,则返回空。因此,在使用Dir函数时,需要使用循环来遍历所有的文件名。