RSSマクロ
winxp he sp3, excel2003
1. 問合せ
参考a.マクロでは、iNumber = 6501 1個となっています。
これを、銘柄txtから読み込んで、下記のような結果を表示したいのです。
2. 銘柄.txt 約100個：
6501,日立
6502,東芝
6503,三菱電機
3. マクロ結果：
コード,銘柄,現在値,高値,安値
6501,日立,770,785,765
6502,東芝,765,779,758
6503,三菱電機,780,985,970
参考：
a. Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/9/3 ユーザー名 :
Cells(1, 1) = "コード": Cells(1, 2) = "銘柄": Cells(1, 3) = "現在値"
Cells(1, 4) = "高値": Cells(1, 5) = "安値"
Dim iRow As Integer '行指定
Dim iNumber As Integer 'A列4桁数字
iNumber = 6501 'A列の4桁数字初期指定
iRow = 2 '2行目
Cells(iRow, 1).Select 'A列をセレクト(アクティブ化)
Cells(iRow, 1) = iNumber 'A列に数字を入力
Cells(iRow, 2) = "=RSS|'" & iNumber & ".T'!銘柄名称" 'B列に式を入力
Cells(iRow, 3) = "=RSS|'" & iNumber & ".T'!現在値" 'C列に式を入力
Cells(iRow, 4) = "=RSS|'" & iNumber & ".T'!高値" 'D列に式を入力
Cells(iRow, 5) = "=RSS|'" & iNumber & ".T'!安値" 'E列に式を入力
End Sub
b. マクロ結果：
コード,銘柄,現在値,高値,安値
6501,日立,809,815,805
よろしくお願いします。
お礼
マクロが必要なんですね。ありがとうございました。