VBA-选择文件

Option Explicit
Sub 打开文件()

Dim fileNameObj As Variant
    Dim aFile As Variant        '数组，提取文件名fileName时使用
   '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant
    Dim filename As String
    Dim fullName As String
    Dim wenjian As Object

    Dim i As Integer
    fileNameObj = Application.GetOpenFilename("所有文件 (*.*),*.*")
     
     
    '调用Windows打开文件对话框

    If fileNameObj <> False Then                       '如果未按“取消”键

        aFile = Split(fileNameObj, "\")

        filename = aFile(UBound(aFile))            '数组的最后一个元素为文件名
        fullName = aFile(0)

        For i = 1 To UBound(aFile)                 '循环合成全路径

            fullName = fullName & "\" & aFile(i)

        Next

    Else

      MsgBox "请选择文件"

    End

    End If


End Sub

以上是可以选择文件的代码，获取文件路径和文件名可以根据实际情况进行改动，运行以后效果如下图所示