VBAを使用して対象のファイルを開く方法

ファイル検索ウィザードを開いて対象ファイルを選択して開く方法

ウィザードを開く
Application.GetOpenFilename("EXCELファイル (*.xls),*.xls")
※赤字で対象ファイルの指定

Filename$だとフルパスで名前を取得 ※ C:\フォルダ\AAA.xls
Dir(Filename$)だとファイル名のみ　　 ※AAA.xls


------------------------------------------------------------------
Dim OpenFilename As String

Sub Book_open()

'ウィザードを開いて対象ファイルを検索
Filename$ = Application.GetOpenFilename("EXCELファイル (*.xls),*.xls")
' OpenFilename = Filename$ 'フルパス付き
OpenFilename = Dir(Filename$) 'ファイル名のみ

'ファイルを開く
Workbooks.Open OpenFilename

End Sub
-------------------------------------------------------------------

EXCEL VBA xls Excel2003