VBAでwebクエリをループさせる方法

2011/01/16 19:13

このQ&Aのポイント

Excel VBAを使用して複数のURLのwebページの内容を一括で取得する方法について教えてください。
Sheet1のB2セルから始まる複数のURLを指定し、コマンドボタンを押すことで、取得した内容をSheet2のA1セルから順に表示する方法についてお教えください。
VBA初心者ですので、わかりやすく解説していただけると助かります。

colorbox0831
お礼率15% (3/20)

Visual Basic
回答数3
ありがとう数1

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

DOUGLAS_
ベストアンサー率74% (397/534)

2011/01/19 10:51 回答No.3

＞Excel VBAを使用してwebクエリをループさせる方法が知りたいです。　「webクエリ」ですよね？　Excel の標準メニュー [データ(D)] - [外部データの取り込み(D)] - [新しい Web クエリ(W)...] のお話しとして回答を書かせていただきます。【作業の段取り】１）先ず、データを取り込む「Sheet2のA1セル」をアクティブにします。２）次に「Sheet1のB2セル～B3、B4、B5・・・」のＵＲＬを１つずつ読み込んで、WEb クエリを実行します。３）１つのＵＲＬのデータを読み込んだ後には、そのクエリデーブルの最終行の次行をアクティブにします。【ＶＢＡのコードを書く場所について】　「コマンドボタン」を右クリックし、[コードの表示(V)] をクリックすると、 Private Sub CommandButton*_Click() End Sub というようなコードが現われます（「*」の部分は数字）ので、その２行の「間」に　　Sheets("Sheet2").Select 　　Application.Run "Sheet2.webクエリをループ" をコピペしてください。　次に、Sheet2 のシートタブを右クリックし、[コードの表示(V)] をクリックすると現われるコードウィンドウに下記をコピペしてください。 Sub webクエリをループ() 　　Dim myQT As QueryTable 　　Dim i As Long 　　Dim myURL As String 　　Cells.Delete 　　For Each myQT In QueryTables: myQT.Delete: Next 　　Range("A1").Select 　　For i = 2 To Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row 　　　　myURL = Sheets("Sheet1").Cells(i, "B").Value 　　　　With QueryTables _ 　　　　　　　　.Add(Connection:="URL;" & myURL, Destination:=Selection) 　　　　　　.BackgroundQuery = False 　　　　　　.AdjustColumnWidth = False 　　　　　　.WebSelectionType = xlEntirePage 　　　　　　.WebFormatting = xlWebFormattingNone 　　　　　　.Refresh BackgroundQuery:=False 　　　　End With 　　　　Cells(ActiveCell.Row + QueryTables(1).ResultRange.Rows.Count, 1).Select 　　Next End Sub 【コーディングについて】　先ず、 .BackgroundQuery = False 以下の、QueryTables のプロパティにつきましては、実情に応じて変更なさってください。　QueryTables の操作は、当該シートを離れると、記述が厄介になりますので、Sheet2 に実行マクロを書いて、そのマクロを CommandButton*_Click() で呼び出すようにしました。【クエリデーブルの最終行の取得】　ポイントとしては、１つのＵＲＬのデータを読み込んだ後の最終行の取得ですが、最後に実行された Web クエリについて QueryTables のインデックスが「1」になるようですので、 QueryTables(1).ResultRange.Rows.Count が当該クエリテーブルの行数になります。　従いまして、現在のカーソル位置（データの反映位置「Destination」）の行番号に、それを足すと、「クエリデーブルの最終行の次行」を取得できます。 Cells(ActiveCell.Row + QueryTables(1).ResultRange.Rows.Count, 1).Select 【これは、余談かも知れませんが。。】　Sheet2 のデータを全部削除しても、QueryTables がそのまま残って、ファイルの容量を大きくしたり、他にも問題が残りそうな気がします。　これを回避するためには、　　For Each myQT In QueryTables: myQT.Delete: Next を付加しました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

layy
ベストアンサー率23% (292/1222)

2011/01/16 23:16 回答No.2

参考で。やり方は違いますが、似たようなことはしています。１）画面のハードコピーを（ショートカット押すだけで）取得するフリーソフトを使う。２）ｗｅｂを参照し、とあるフォルダに「xxxx01.jpg」「xxxx02.jpg」「xxxx03.jpg」・・・とハードコピーのファイルがファイル名が規則的にできあがる。３）エクセルのマクロでこのフォルダの「*.jpg」ファイルを取得してシート１に順番に列挙する。画像ファイルを作るまでは自分で操作してがんばって、画像ファイルを一括でエクセルへ、というのはＶＢＡに任せたことあります。

ログインすると、全ての回答が全文表示されます。

layy
ベストアンサー率23% (292/1222)

2011/01/16 20:33 回答No.1

確認。シート１のB2を押すとそのリンクが表示される画面のハードコピーを取得取得した画面をシート２のＡ１へ貼り付けシート１のB3を押すとそのリンクが表示される画面のハードコピーを取得取得した画面をシート２のＡ５１へ貼り付けシート１のB4を押すとそのリンクが表示される画面のハードコピーを取得取得した画面をシート２のＡ１０１へ貼り付け（貼り付け画像の高さが５０行分、とみた場合）こんなことがしたいということでしょうか。

質問者