エクセル マクロ ｗｅｂクエリ URL;http://…/2009/03/03/….html って形にするには？

エクセルのマクロでｗｅｂのデータを取り込みたいのですが

2009年3月3日のデータを取る時のアドレスがhttp://…/2009/03/03/….htmlの場合
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://…/2009/03/03/….html"
となりますが、これをLoopさせて3/2、3/1、2/28、2/27…のデータを取りたいのですが
どういう形でLoopさせればよいのでしょう？
単純にMonthやDayを使うと1～9月や日は一桁になってしまうと思いますけど

No.1 ベストアンサー 回答者： goo39 回答日時： 2009/03/05 13:50

Date型の変数を定義して2009/03/03で初期化後-1しながらLoopでは？

Dim　dt　As　Date
Dim　url　As　String
　　dt　=　DateValue("2009/03/03")
　　　　url　=　"URL;http://…/" &　dt　&　"/….html"
　　　　dt　=　dt　-　1

この回答へのお礼

date型の変数にすればよかったのか
ありがとうございます

お礼日時：2009/03/05 17:15

No.2 回答者： ja7awu 回答日時： 2009/03/05 14:17

こんな感じで如何。

Sub test()
Dim D As Date
For D = #3/3/2009# To #2/27/2009# Step -1
　　MsgBox "URL;http://…/" & Format(D, "yyyy/mm/dd") & "/….htm"
Next
End Sub