|
楽天のマーケットスピードのRSSを使って株価の板情報をエクセル上に表示させています。
http://nikkei.hi-ho.ne.jp/rakuten-sec/rs01.html
この自動更新される板情報をエクセル上に表示させるところまでは上手く行ったのですが、これをコピー&ペーストするマクロを作ったつもりが上手く行きません。。。。。
最初にマクロを実行した時にコピーされた情報が、延々と変わらぬまま記録されてしまうのです。。。。。
マクロを実行する度に、その時点での最新の情報をコピー&ペーストするには、何が抜けているのでしょうか?
私の作ったマクロの内容は下記の通りです↓
Sub 記録1()
ActiveCell.Offset(-21, 0).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 45
ActiveWindow.SmallScroll ToRight:=1
ActiveCell.Range("A1:BK19").Select
Selection.Copy
ActiveCell.Offset(21, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(21, 0).Range("A1").Select
End Sub
それと、将来的には、これをレベルアップさせて自動的に一日分の板情報を動画で記録できないかと考えています。(更新されるごとに記録を残す方法でも構いません)
その場合、これに何かを加える事によって可能になることでしょうか?
長くなりましたが、よろしくお願いします!
|
|