ExcelのマクロでExcelファイルを抽出して開きたい
あるフォルダ内にある複数のExcelファイルの中から、希望のExcelファイルを開くマクロをつくりたいと思っています。
フォルダ名は任意の数字、ファイル名は任意の数字(フォルダ名と同一)+版数データです。
例) C:\excelsheets\1234567890_1\1234567890_1_0_2_Sheet.xls
「_整数」の部分が版数データ。
動作としては、マクロを実行したら、任意の番号を入力してExcelファイルを開くという流れを考えています。
ちなみに、開くファイルは、
希望A 指定した番号の最新のファイルだけを開く。
希望B 指定した番号のファイルを、版数に関係なく全て開く。
を考えています。(AがダメならB)
マクロの自動保存で出来たマクロに手を加えて出来たのが下記です。
Sub test()
Dim Select1 As Double
Select1 = Application.InputBox("Noを入力してください", "No. Select")
ChDir "C:\excelsheets\" & Select1 & "_1"
Workbooks.Open Filename:= _
"C:\excelsheets\" & Select1 & "_1\" & Select1 & "_1_0_2_Sheet.xls"
End Sub
ただし、これだと版数の変化についていけないので、試しに、
"C:\excelsheets\" & Select1 & "_1\*.xls"
と、ワイルドカードが使えるか試したらエラーになりました。
初歩的な事かもしれませんが、マクロの勉強を始めたばかりで試行錯誤しながらやってます。ご助言、よろしくお願いします。
お礼
ありがとうございました。早速試してみます。