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