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に代入したい
お礼
ありがとうございました これだー！と喜んだのですが 残念なことにATOK使ってます 残念です
補足
自己レスになりますが、フリーソフトを見つけました。 ご参考になるかもと思いましたので付けます。 http://homepage1.nifty.com/yandy/kabuka/fukugrf/dlgrf.htm