エクセル マクロ ｗｅｂクエリ 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 · ベストアンサー

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型の変数にすればよかったのか
ありがとうございます

回答No.2

ja7awu

こんな感じで如何。

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