WEBクエリを処理していくVBAについて

質問

初めまして。
ExcelのVBAについての質問です。
WEBクエリを用いて、データを回収したいのですが
まだVBAを勉強したてで、作りたいものがあるのに
作れず困っています。

sheet1

A列　　　　B列
あああ　http://aaaaa.co.jp/aaaa.html
いいい　http://aaaaa.co.jp/bbbb.html
うううう　http://aaaaa.co.jp/bbbb.html

というものがあり
このB列のURLを上から順番にWEBクエリによってデータを得て
「新しいシート」に貼り付け
この新しいシートのシート名を、A列の対応する行の名前で順番に付けていきたいです。

aaaa.html　→　「あああ」シート
bbb.html　→　「いいい」シート
という感じです。

この処理を何回か続けていくVBAを教えていただきたいです。
宜しくお願い致します。

回答No.1

h_tana_0530

こんにちは。

やりたいことは、こんな感じですか？

Sub MakeSheet()
Dim title As String
Dim cnt As Long

cnt = 0
Do While Not (IsEmpty([Sheet1!A1].Offset(cnt, 0)))
With Worksheets.Add
.Name = [Sheet1!A1].Offset(cnt, 0).Value
End With
With Worksheets([Sheet1!A1].Offset(cnt, 0).Value)
'ここにWeb クエリの追加処理を記述する。
'ターゲット URLは　[Sheet1!A1].Offset(cnt, 1).Value　あるいは　[Sheet1!B1].Offset(cnt, 0).Value　等で取得
End With
cnt = cnt + 1
Loop

End Sub

A列を１行目から順番にチェックし、データがあれば処理を実行し、空白セルが見つかったら終了する、という流れを、Doループで行っています。
Webクエリを追加する部分は具体的に書けないので、コメントだけ入れておきました。