excel - パスを指定してブックを開く方法

Question

Sub openwb()  
    ChDir "E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY"
    Workbooks("D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm").Open    
End sub

Subscript out of rangeここで、 3 行目にエラーが表示されます。パスを指定してブックを開くにはどうすればよいですか?

Answer 1

プロンプトから必要なファイルを開くこともできます。これは、別のパスや別のファイルからファイルを選択する場合に役立ちます。

Sub openwb()
Dim wkbk As Workbook
Dim NewFile As Variant

NewFile = Application.GetOpenFilename("microsoft excel files (*.xlsm*), *.xlsm*")

If NewFile <> False Then
Set wkbk = Workbooks.Open(NewFile)
End If
End Sub