こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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に代入したい

投稿日時 - 2014-05-12 18:15:02

QNo.8592282

すぐに回答ほしいです

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

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

(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

投稿日時 - 2014-05-12 18:40:36

お礼

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

投稿日時 - 2014-05-12 19:02:00

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問