vba dir函数用法例子

`Dir`函数是VBA中用于返回一个文件夹中指定文件类型的文件名列表的函数。下面是一个使用`Dir`函数的示例代码：

Sub ListFiles()
    Dim MyFolder As String
    Dim MyFile As String

    MyFolder = "C:\Users\UserName\Documents\TestFolder\" ' 设置要列出文件的文件夹路径
    MyFile = Dir(MyFolder & "*.xlsx") ' 列出文件夹中后缀名为.xlsx的文件

    Do While MyFile <> ""
        Debug.Print MyFile ' 输出文件名到Immediate窗口
        MyFile = Dir ' 获取下一个文件名
    Loop
End Sub

上面的代码将列出指定文件夹中所有后缀名为.xlsx的文件名，并将其输出到Immediate窗口中。你可以根据需要修改文件夹路径和文件类型来列出不同的文件。