ファイルを開くマクロ記述教えてください。

質問

一つのフォルダに次のエクセルファイル２つがあるとします。
これ以外はありません。

日記0220.xls　

マクロ.xls

日記0220の　０２２０はファイルを更新した日を表してます。
ですので、書き込むつど　　日記０２２１　・・・　日記０２２２・・　とファイル名が変わります。

さて、　マクロ。ｘｌｓ 　から　日記＊＊＊＊.xls を開くには
マクロの記述はどうなりますでしょうか？

open 日記＊.xls
だと　だめでした。

回答No.2

real beatin（@realbeatin） · ベストアンサー

こんにちは。お邪魔します。

> 一つのフォルダに次のエクセルファイル２つがあるとします。
> これ以外はありません。

という説明が「例えば」ではなくて、具体的なお話ならば、ですが。

> 日記0220の　０２２０はファイルを更新した日を表してます。
> ですので、書き込むつど　　日記０２２１　・・・　日記０２２２・・　とファイル名が変わります。

書き込む都度にブック名をリネームしている、
フォルダには常に'エクセルファイル２つ'
日記の数は増えたりしない、という解釈でお応えします。
でもまぁ前提が合っていれば、動作はループしたものと一緒にはなりますが、
ループを省いた分、Like演算子でファイル名を簡単にパターンチェックしてみます。

' ' ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub Re8923499()
Dim sPath As String
Dim sFN As String
　　sPath = ThisWorkbook.Path & "\"
　　sFN = Dir(sPath & "日記*.xls")
　　If sFN Like "日記####.xls" Then　'　念の為確認
　　　　Workbooks.Open sPath & sFN
　　Else
　　　　MsgBox "ないよ！"
　　End If
End Sub

' ' ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

' ' おまけ/// テスト用に書いたリネーム用マクロ（同種の名前のブックが他に無い前提）

Sub Rename8923499()
Dim sPath As String
Dim sFNp As String
Dim sFNn As String
　　sPath = ThisWorkbook.Path & "\"
　　sFNp = Dir(sPath & "日記*.xls")
　　If sFN Like "日記####.xls" Then　'　念の為確認
　　　　sFNn = "日記" & Format(Date, "mmdd") & ".xls"
　　　　Name sPath & sFNp As sPath & sFNn
　　End If
End Sub

' ' ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

お礼

お礼のコメントが遅れました
おまけの　スクリプトまで書いて頂いてありがとうございます。

回答No.3

keithin

あぁ、なるほど

＞次のエクセルファイル２つがあるとします。
＞これ以外はありません

でしたら

sub macro2()
　dim myPath as string

　mypath = thisworkbook.path & "\"
　workbooks.open mypath & dir(mypath & "日記*.xls")
end sub

とかで十分ですね。

回答No.1

keithin

日記の具体的にどれを開くのか、どうやって指定したいのですか。

いずれにしても一度に開けるブックの数は１つですから、１つ開きたいならその１つをどういう風にしてでもいいので指定しなきゃいけません。
それとも日記＊＊を全部開きたいと言いたかったのでしたら、そこに日記＊＊って具体的にどんだけあるのかをマクロに調べさせ、それを一つずつ全部順繰り開いていくマクロを書きます。

標準的な：
sub macro1()
　dim myPath as string
　dim myFile as string
　mypath = thisworkbook.path & "\"
　myfile = dir(mypath & "日記*.xls")

　do until myfile = ""
　　workbook.open mypath & myfile
　　myfile = dir()
　loop
end sub

お礼

お礼コメントが遅れました。
いつも回答ありがとうございます。
今回も大変おせわになりました。