vba 已知多个文件名提取各个文件的路径

在VBA (Visual Basic for Applications) 中，如果你需要从已知的一系列文件名中提取每个文件的完整路径，你可以使用`Dir`函数配合循环结构。假设你有一个包含文件名的数组或列表，这里是一个简单的示例：

Sub ExtractFilePaths()
    Dim filenames() As String ' 定义一个字符串数组存储文件名
    Dim fileFolder As String ' 存储文件所在的共同目录
    Dim filePath As String ' 当前处理的文件路径
    Dim i As Long
    
    ' 假设filenames数组已经包含了所有文件名
    filenames = Array("file1.txt", "file2.csv", "file3.docx") ' 替换为你实际的文件名

    ' 假设所有文件都在同一目录下，设置这个共同的文件夹
    fileFolder = "C:\YourDirectory\" ' 将路径替换为你的实际目录

    For i = LBound(filenames) To UBound(filenames)
        filePath = Join(Array(fileFolder, filenames(i)), "\")
        Debug.Print "文件：" & filenames(i) & " 的路径是：" & filePath ' 打印结果
    Next i
End Sub

在这个例子中，`Join`函数将目录路径和文件名拼接成完整的文件路径。运行这段代码会打印出每个文件的路径。