選択したFileを開きたい。

目次

作成目的

VBA作成時、任意でファイル選択できるようにする為。

コード

Sub 選択File開く()
Dim 選択File As String
選択File = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If 選択File <> "False" Then
Workbooks.Open 選択File
Else
MsgBox "キャンセル"
End If
End Sub