エクセルのwebクリエ、マクロ、日々変わるURLへの対応

こんにちわ、excelのwebクリエで競艇の出走予定表をダウンロードしたいのですが、毎回URLの日付が変わるので困っています。
問題のURLなのですが、
http://app.boatrace.jp/race/01_20160524.php?day= …
最初の20160524とはこの日からレースが始まった開始日です。(ここが厄介)
次の20160528は今日の日付です。
すべてのレース表をダウンロードしたいので、jyo=01&rno=01の場所も自由に変更できると助かります。
もしマクロができなくてもアドバイスをいただけると助かります。

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2016/05/28 09:39

こんな風な物を作ればマクロから呼べます。

Sub test()
Call データ抽出(#5/29/2016#, 1, 1)
End Sub

この回答へのお礼

ご回答ありがとうございます！！！
できました！！！
ありがとうございました！！！！

お礼日時：2016/05/28 09:46

No.1 回答者： GooUserラック 回答日時： 2016/05/28 08:19

とりあえず土台になるような物を作ってみました。

先に「作業」というシートを作成してください。ここに指定のアドレスのデータが貼りつきます、ここから好きなようにデータを取り出してください。
呼び出したいときは「Call データ抽出(#5/28/2016#, 1, 2)」のように呼び出してください。
引数の説明（もちろん変数でも構いません）
「#5/28/2016#」の部分は、抽出したい日付のシリアル値をセットしてください。（直接日付を指定する場合は「#m/d/yyyy#」の書式で指定してください）
「1」の部分はレース場コードを指定してください。
「2」の部分はレース番号を指定してください。
--------------------------------------------------------------
Sub データ抽出(Day_日付 As Date, Lng_場 As Long, Lng_レース As Long)

Dim Str_アドレス As String
Dim Day_初日 As Date

Day_初日 = Day_日付 - Weekday(Day_日付, vbTuesday) + 1
Str_アドレス = "FINDER;http://app.boatrace.jp/race/01_" & Format(Day_初日, "yyyymmdd")
Str_アドレス = Str_アドレス & ".php?day=" & Format(Day_日付, "yyyymmdd")
Str_アドレス = Str_アドレス & "&jyo=" & Format(Lng_場, "00")
Str_アドレス = Str_アドレス & "&rno=" & Format(Lng_レース, "00") & "&type=program"
Sheets("作業").Select
Cells.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:=Str_アドレス, Destination:=Range("A1"))
.Name = "Data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
--------------------------------------------------------------

この回答へのお礼

素早いご回答ありがとうございます！！
さっそく作業シートを作り、マクロも貼り付け、やろうと思ったのですが、マクロが表示されないのは「Sub データ抽出(Day_日付 As Date, Lng_場 As Long, Lng_レース As Long)」ここの()があるからですか？

それと
＞呼び出したいときは「Call データ抽出(#5/28/2016#, 1, 2)」のように呼び出してください。
ここの部分なのですが、これはセルに書き込むと呼び出せるのでしょうか？
まったくの初心者で質問ばかりしてすみません、、、

お礼日時：2016/05/28 09:31