VBA如何获取文件路径

在 VBA 中获取文件路径有多种方法，下面介绍两种比较常见的方法：

1. 使用 FileDialog 对象

可以使用 VBA 的 FileDialog 对象来让用户选择文件，然后获取选中文件的路径。具体步骤如下：

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
    .AllowMultiSelect = False  ' 是否允许选择多个文件
    .Title = "请选择文件"
    .Filters.Clear
    .Filters.Add "Excel文件", "*.xlsx"
    .Filters.Add "所有文件", "*.*"

    If .Show = -1 Then
        ' 用户选择了文件
        Debug.Print .SelectedItems(1)
    Else
        ' 用户取消了选择
    End If
End With

上述代码中，首先创建了一个 FileDialog 对象，并设置了一些属性，比如是否允许选择多个文件、对话框的标题、文件过滤器等。然后调用 Show 方法显示文件对话框，如果用户选择了文件，则可以通过 SelectedItems 属性获取选中文件的路径。

2. 使用 Application 对象

可以使用 VBA 的 Application 对象来获取当前工作簿的路径，然后再拼接上文件名和扩展名，得到文件的完整路径。具体步骤如下：

Dim fileName As String
fileName = "test.xlsx"  ' 文件名和扩展名
Debug.Print ThisWorkbook.Path & "\" & fileName

上述代码中，首先使用 ThisWorkbook.Path 获取当前工作簿的路径，然后拼接上文件名和扩展名，得到文件的完整路径。