[Excel VBA] 查找指定目录下的匹配文件

转载于 2010-07-26 10:53:00 发布 · 2.2k 阅读

文章标签：

#vba #excel #filenames #string #integer #file

Excel VBA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段使用VBA编写的代码，该代码能够批量读取指定目录下的所有.xlsm文件名称，并通过消息框展示出来。这段代码首先定义了所需的变量类型，然后通过Dir函数查找匹配的文件并将其添加到数组中。最后，如果找到了匹配的文件，则会逐个显示文件名。

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

Option Explicit Sub FileNames() Dim sFName As String Dim asFNames() As String Dim sFType As String Dim i As Integer sFType = "D:/Tianqi/*.xlsm" sFName = Dir(sFType) 'Dir函数返回sFType中找到的与通配符形式相匹配的第一个文件名 Do Until sFName = "" '当文件名为空时终止Do i = i + 1 ReDim Preserve asFNames(1 To i) '重新初始化数组asFNames并通过Preserve关键字来保留数组中原有的数据 asFNames(i) = sFName sFName = Dir '这里的Dir是获取下一个匹配文件 Loop If i = 0 Then MsgBox "No such file" Else For i = 1 To UBound(asFNames) MsgBox asFNames(i) Next i End If End Sub

代码摘自<<Excel 2007 VBA 参考大全>>