在Excel VBA中读取文件路径

Sub ReadFilePath()
    Dim fso As Object
    Dim filePath As Variant
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 弹出文件选择对话框，获取文件路径
    filePath = Application.GetOpenFilename("Excel文件 (*.xls;*.xlsx), *.xls;*.xlsx")
    
    ' 判断用户是否选择了文件
    If filePath <> False Then
        ' 打开选择的文件
        Workbooks.Open filePath
        ' 在Immediate窗口中输出文件路径
        Debug.Print filePath
    Else
        ' 用户取消了选择
        MsgBox "未选择文件"
    End If
    
    ' 释放对象
    Set fso = Nothing
End Sub