Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51889 / 76738 ←次へ | 前へ→

【29701】自動更新情報の保存が上手く行きません
質問  miku2000  - 05/10/12(水) 8:42 -

引用なし
パスワード
   楽天のマーケットスピードの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


それと、将来的には、これをレベルアップさせて自動的に一日分の板情報を動画で記録できないかと考えています。(更新されるごとに記録を残す方法でも構いません)

その場合、これに何かを加える事によって可能になることでしょうか?


長くなりましたが、よろしくお願いします!
0 hits

【29701】自動更新情報の保存が上手く行きません miku2000 05/10/12(水) 8:42 質問
【29719】Re:自動更新情報の保存が上手く行きません Jaka 05/10/12(水) 15:49 発言
【29722】Jaka さん、ありがとうございます! miku2000 05/10/12(水) 16:49 発言
【29724】Re:自動更新情報の保存が上手く行きません Kein 05/10/12(水) 17:02 発言

51889 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free