VBA如何遍历文件夹下面的所有文件

但老师

已于 2022-03-08 18:18:39 修改

阅读量1.3w

点赞数 5

分类专栏： Excel # VBA 文章标签： vba excel

于 2022-03-08 18:03:34 首次发布

本文链接：https://blog.csdn.net/sinat_41870148/article/details/123359401

版权

Excel 同时被 2 个专栏收录

30 篇文章

订阅专栏

VBA

5 篇文章

订阅专栏

这个博客分享了三个VBA代码版本，用于遍历指定文件夹下的所有文件，但不包括当前工作簿。第一版快速列出所有文件，第二版增加了排除当前工作簿的功能，第三版则将文件路径存储为字符串并提供了一个函数来拆分和打印这些路径。这些代码适用于需要在Excel中自动化处理文件列表的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1 极速版

sub getFolderFiles()
    ' 获取当前文件夹所有文件
    Folder   = "D:\OneDrive\桌面\test\"
    Filename = Dir(Folder)
    While Filename <> ""
        Debug.Print Filename
        Filename = Dir
    Wend
End sub

2 不包含当前文件版

sub getFolderFiles()
    ' 获取当前文件夹所有文件
    Folder   = "D:\OneDrive\桌面\test\"
    Filename = Dir(Folder)
    While Filename <> ""
    	if Filename <> ThisWorkbook.Name Then
	        Debug.Print Filename
	        Filename = Dir
	    end if
    Wend
End sub

3 函数版

不能返回数组,所以多加一步,数组变成字符返回,然后在调用处拆分为数组

Function getCurFiles()
    ' 获取当前文件夹所有文件
    Dim Folder$, Filename$, Filepath$, filepaths(), arrCount%
    Folder   = "D:\OneDrive\桌面\隽悦雅苑\"
    Filename = Dir(Folder)
    While Filename <> ""
        If Filename <> ThisWorkbook.Name Then
            ReDim Preserve filepaths(0 To arrCount)
            Filepath = Folder + Filename
            filepaths(arrCount) = Filepath
            arrCount = arrCount + 1
        End If
        Filename = Dir
    Wend
    getCurFiles = Join(filepaths, "|") 
End Function

第3个的使用案例

Sub test()
	Dim arr,a,file$
	file = getCurFiles
	arr  = Split(file,"|")
	For Each a in arr
		Debug.Print a	
	Next
End Sub