ダウンロードマクロ

楽天オークションの結果をまとめてダウンロードするマクロ。ハンバーグ用。Excel2003で作成したが2002でも2000でも動いた。たぶんExcel 2007でも動くだろう（勝手な想像）。

使い方は以下のとおり。Excelを起動して「ツール」メニューの「マクロ」→「Visual Basic Editor」を選択する。「Microsoft Visual Basic」というウインドウが開くので、「挿入」メニューから「標準モジュール」を選択。それまで灰色だった画面の右側に白い窓に変わるのでその中に以下のリストをコピペする。「実行」メニューから「Sub/ユーザーフォームの実行」を選択する。それで数秒～10数秒で落札リストがシート上に現れる。

－－－－－－－－－－－この下から－－－－－－－－－－－

Sub hogehoge()
'ハンバーグ
For i = 20 To 1 Step -1
' URL
URL = "URL;http://sa.item.rakuten.co.jp/itoufarm/a/hanbagu4-26/result/?p=" _
& i & "#bidlist"

With ActiveSheet.QueryTables.Add(Connection:=URL, _
Destination:=Cells(i * 100 - 99, 1))
.WebTables = "46" ' 場合によっては数字を変更する
.RefreshStyle = xlOverwriteCells
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
Next
End Sub

－－－－－－－－－－－この上まで－－－－－－－－－－－