dir函数：遍历文件名

dir（“地址\”）返回该地址下的第一个文件的文件名

Sub t()

Dim sr As String

sr = Dir("G:\社团、活动\JMR\*.xlsx")这里使用了通配符，并指定了文件扩展名；如果不指定，至少应当在地址后加 \ ，以实现遍历

Do

MsgBox sr sr = Dir Loop Until sr = ""

End Sub

使用do loop 函数以实现对每个文件名的遍历。

另外的交互式表达方法：

①sr = Dir("G:\社团、活动\JMR\*.xlsx")

②sr = Dir("G:\社团、活动\“ & [b1] & "\"  & [b2])

③sr = Dir("thisworkbook.path & "\“ & [b1] & "\"  & [b2])

用[b1]单元格表示文件夹名称，用b2单元格表示扩展名，注意连接符号的使用，excel内内含的单元格名直接使用，非内含分割标记 \ 要加“ ”，各部分之间用&

注意观察2和3中关于地址的表示方法，体会连接符号的应用：

path表示地址中不带有 \ ，需自己添加，而添加的时候必须注意不可直接加在path后边，而是使用连接符号。