'使用者選定檔案後，將檔名路徑放入a1單元格
Range("a1") = Application.GetOpenFilename

'可增加open語句後直接開啟檔案
Dim str As String
str = Application.GetOpenFilename
Workbooks.Open str

'更常見的做法是：
Dim str As String
Dim wb As Workbook
str = Application.GetOpenFilename
("excel檔案,*.xls*")
If str <> "False" Then '避免點取消時報錯
    'Set wb = Workbooks.Open(str)
End If
'這樣既打開了檔案，還能利用wb後續操作

Dim arr()

Dim wb As Workbook
Dim sht As Worksheet '為想做的操作準備，可刪
Set sht = ThisWorkbook.Sheets(1) '為想做的操作準備，可刪
i = Application.GetOpenFilename("excel檔案,*.xls*", 1, , , True)
j = TypeName(i)'判斷使用者選擇的型別，若是false則typename為boolean，不能傳給陣列
If j <> "Boolean" Then
arr = i '將開啟檔案的名稱傳給陣列
For k = LBound(arr) To UBound(arr)
Set wb = Workbooks.Open(arr(k))
'**做想做的操作，如：sht.Range("a" & k) = wb.Name**
wb.Close
Next
End If