Excel2003 マクロ(VBA) どこにあるか分からないフォルダＡのワークブックＡを開く

質問

いつもお世話になっております。

新しいマクロの記録でフォルダＡのワークブックＡを開きました。
ChDir "C:\フォルダＡ"
Workbooks.Open Filename:= _
"C:\フォルダＡ\ワークシートＡ.xls"

しかし、今はフォルダAがCドライブにありますが、
明日はデスクトップ上にあったり、フォルダＢの中に入っていたりするかもしれません。

このような時、上記のようなVBAでは開けません。
どこにあるか分からないフォルダＡのワークブックＡを開くには
どこをどのように直せばよろしいのでしょうか？

以上、よろしくお願いいたします。

回答No.6

takuro-san

ANo.2の者です。
以下全部をエディタへ貼り付けマクロ「OpenDialog」を
実行すると、正常に動作しますよ。
おそらく、最後のFuctionの部分を貼り付けてられなかったのでは？

Sub OpenDialog()

Dim File種類, Prompt, Item As String
Dim FileNamePath As Variant

'ファイルのパスを取得します
File種類 = "Excel ファイル (*.xls),*.xls"
Prompt = "out課題1.xlsを選択してください"
FileNamePath = SelectFileNamePath(File種類, Prompt)

If FileNamePath = False Then 'キャンセルボタンが押された
End
End If

Workbooks.Open Filename:=FileNamePath

End Sub

Function SelectFileNamePath(File種類, Prompt) As Variant
SelectFileNamePath = Application.GetOpenFilename(File種類, , Prompt)
End Function

お礼

End Subの後にもコードをかけるんですね…。
勉強になりました！

書いてくださったVBA、試してみたのですが
オープンダイアログ？が開かれて「ワークブックＡを選択してください」と表示されるだけで、ワークブックＡが開かれるわけではないようです。

他の方の回答で無事解決しました。

回答ありがとうございました。