Excel VBA質問箱 IV

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

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


9031 / 13646 ツリー ←次へ | 前へ→

【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 発言[未読]

【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


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

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


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

【29719】Re:自動更新情報の保存が上手く行きません
発言  Jaka  - 05/10/12(水) 15:49 -

引用なし
パスワード
   こんにちは。

楽天のマーケットスピードのRSSは、解りませんが、
>ActiveCell.Offset(-21, 0).Range("A1").Select
このActiveCellって言うのを、あいまいにしないで明確に指定してやれば、取りあえずは動くと思います。
毎回、同じと頃をコピーしているなら.....。

毎回同じ所なら、最初から固定セル範囲をコピーした方が、余計なスクロールはしないで済みます。
ここの辺りのコピー元のセル範囲は、どうなっているのでしょうか?
コピー元範囲が、毎回違うなら、何を基準にして範囲を決めるかですが、どうしましょうか?
コピー元のデータを取り込むシートは、同じシートを使い回しているのでしょうか?

【29722】Jaka さん、ありがとうございます!
発言  miku2000  - 05/10/12(水) 16:49 -

引用なし
パスワード
   コピー元のセル範囲は、毎回同じです。セルの数値のみ、自動更新されるようになっています。

これをコピー&ペーストで保存して行くように設定したかったのですが、上手く行かず。1回目にコピーした内容が、自動更新された後も延々とペーストされて行くようになってしまっています。


現在は上手く行かなかったので、情報が更新される度に、セルを選択してコピーし、保存先に「形式を選択して貼り付け」で「貼り付け●値」
「演算●しない」と指定してペーストしています。

この動作をマクロにしたつもりだったのですが。。。。。

どの部分が間違っているのでしょうか?


コピー元のデータを取り込むシートは、同じシートを使い回していています。


よろしくお願いします!

【29724】Re:自動更新情報の保存が上手く行きません
発言  Kein  - 05/10/12(水) 17:02 -

引用なし
パスワード
   えっと・・やはり私の提示したコードでは、うまくいかなかったのですね。
残念ですが、それならRSSのことをよく理解されている方が作られたソフトを、
買った方がいいかも知れませんね。↓ここの
http://www2s.biglobe.ne.jp/~iryo/kabu/index.html
「有料コンテンツ」「KI株楽天(ザラバinp)・・」というところを見て下さい。
今月30日までなら、試供版のサンプルもダウンロードできるようですから、
それを参考にされても良いと思います。

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