用Excel VBA選擇檔案、開啟檔案

介紹如何用VBA選擇檔案和用VBA開啟檔案。
點擊開啟檔案會彈出一個windows檔案開啟對話方塊，在EXCEL中VBA怎麼實現這個功能？

 

Sub SelectFile()
    Dim FileName As Variant                        
     '開啟檔案對話方塊返回的檔案名稱，是一個全路徑檔案名稱，其值也可能是False，因此類型為Variant
    Dim sFileName As String                         '從FileName中提取的檔案名稱
    Dim sPathName As String                         '從FileName中提取的路徑名
    Dim aFile As Variant                            '數組，提取檔案名稱sFileName時使用
    Dim ws As Worksheet                             '隱藏檔路徑名和檔案名稱的工作表
    Set ws = Worksheets("Sheet1")                   '設定工作表
    FileName = Application.GetOpenFilename("Excel 檔案 (*.xls),*.xls")
    '調用Windows開啟檔案對話方塊
    If FileName <> False Then                       '如果未按“取消”鍵
        aFile = Split(FileName, "/")                '在全路徑中，以“/”為分隔字元，分成資料
        sPathName = aFile(0)                        '取盤符
        For i = 1 To UBound(aFile) - 1              '迴圈合成路徑名
            sPathName = sPathName & "/" & aFile(i)
        Next
        sFileName = aFile(UBound(aFile))            '數組的最後一個元素為檔案名稱
        ws.Cells(1, 2).Value = sPathName            '儲存路徑名
        ws.Cells(2, 2).Value = sFileName            '儲存檔案名稱
    End If
End Sub選擇開啟檔案後並沒有真實的把它開啟。

如何安全地開啟Excel檔案請參見《高容錯性地開啟檔案》

本檔案執行個體請參見《從任一Excel中大量匯出Txt檔案》