WEBクエリを使用して企業情報を取得したい

質問

VBA初心者です。よろしくお願いいたします。

Excel2007のWEBクエリを使用してyahooファイナンスより複数銘柄の企業情報を取得したい。
・Sheets("meigara")のセルA列(複数銘柄)から企業コードを取得。
・WEBクエリを実行させて、取得データを銘柄毎にシートに書き出し
上記を複数銘柄で繰り返し処理したい。

【詳細】
Sheets("meigara").SelectのA列に複数銘柄コードを記載
繰り返し企業コードを取得しSheets("data1")、Sheets("data2")、Sheets("data3")…と
WEBクエリの書き出しを銘柄コード毎にシートを作成して繰り返し処理したい
宜しくお願いいたします。
-----------------------------------------------------------------------
Sub iyahoo情報()
'
' yahooファイナンス銘柄情報取得
'
Sheets("data").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://stocks.finance.yahoo.co.jp/stocks/profile/?code=2162.T", _
Destination:=Range("$A$2"))
.Refresh BackgroundQuery:=False
End With
End Sub

※上記の2162に代入したい

回答No.1

eden3616 · ベストアンサー

ご質問内容から以下の条件となります。

(1)meigaraシートのA列1行目から空白なく、企業コードが列記されているものとします。
(2)出力先のシートdata1～nは既に作成してあるものとします。

Sub iyahoo情報()
'
' yahooファイナンス銘柄情報取得
'
For i = 1 To Sheets("meigara").Range("A" & Rows.Count).End(xlUp).Row
Sheets("data" & i).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://stocks.finance.yahoo.co.jp/stocks/profile/?code=" & _
Sheets("meigara").Range("A" & i) & ".T", _
Destination:=Range("$A$2"))
.Refresh BackgroundQuery:=False
End With
Next i
End Sub

お礼

助かります！！！！！
全て望み通りです。
有難うございます。
今後もお力をお貸し下さい。
本当にありがとうございました。