エクセル２００３ マクロ 日付を入力して・・・

質問

いつも回答して頂き、とても感謝しております。

今回の質問内容ですが、
インプットボックスで始まりの日付と終わりの日付を入れると、その日付に関連したブックを開き、そのブックの特定のシートをまとめファイルにまとめていくというマクロについてです。

で、分からないのは、始まりの日付と終わりの日付を入れると、その日付に関連したブックを開ける記述についてです。

そのブックは、『○○○○ 2013年8月』 という感じのブック名です。
始まりの日付が２０１３年５月１日で、終わりの日付が２０１３年８月１７日だった場合、
『○○○○ 2013年5月』『○○○○ 2013年6月』『○○○○ 2013年7月』『○○○○ 2013年8月』
と４つのブックを開けていかなければいけません。
この記述方法が分からないので教えて欲しいです。

１つにまとめるブック名は　『まとめ』　です。
１つにまとめるシート名は　『履歴まとめ』　です。

たいへんお手数だとは思いますが、宜しくお願い致します。

回答No.1

oka_me · ベストアンサー

例えば、以下のコードでは「2013年5月」から「2013年8月」まで順にMsgbox表示します。
これをブックを開く処理に書き換えることで実現出来るかと思いますが如何でしょうか。。

Dim s As Date, f As Date, d As Date, t As Date

s = #5/1/2013#
f = #8/17/2013#

d = s

'終了日の日付数値の方が大きい場合、ループを１回増やす
If Day(s) >= Day(f) Then
t = DateAdd("m", 1, f)
Else
t = f
End If

'ループ開始
Do Until d >= t
MsgBox Format(d, "yyyy年mm月")
d = DateAdd("m", 1, d)
Loop

お礼

返事が非常に遅れてしまい申し訳ありませんでした。

IFで条件を分岐していけば、うまく自分が思ったブックを開けることが可能だったんっですね。ありがとうございました。