VBA在EXCEL遍历文件夹内包含的文件名并储存到变量

以下是使用VBA在Excel中遍历文件夹内包含的文件名并储存在变量中的示例代码：

Sub GetFileNames()

    Dim MyFolder As String
    Dim MyFile As String
    Dim FileList() As String
    Dim i As Integer
    
    '设置要遍历的文件夹路径
    MyFolder = "C:\Users\User\Desktop\TestFolder\"
    
    '获取文件夹内所有文件名
    MyFile = Dir(MyFolder & "*.*")
    i = 0
    
    '将文件名储存到数组中
    Do While MyFile <> ""
        ReDim Preserve FileList(i)
        FileList(i) = MyFile
        i = i + 1
        MyFile = Dir
    Loop
    
    '打印文件名数组中的所有元素
    For i = 0 To UBound(FileList)
        Debug.Print FileList(i)
    Next i
    
End Sub

在这个示例中，我们首先声明了一些变量，包括要遍历的文件夹路径（MyFolder）、文件名（MyFile）、文件名数组（FileList）和计数器（i）。

然后，我们使用Dir函数获取指定文件夹内的第一个文件名，并将其储存在MyFile变量中。接下来，我们使用一个Do While循环来遍历文件夹内的所有文件名，并将它们储存在FileList数组中。在每次循环中，我们使用ReDim Preserve语句来扩展数组的大小，以便我们可以储存更多的文件名。

最后，我们使用一个For循环来打印数组中的所有文件名。在这个示例中，我们使用Debug.Print语句将每个文件名打印到VBA编辑器的Immediate窗口中，但您可以根据自己的需求修改代码来储存文件名到其他地方