13箇所の株価をエクセルにRSSで取り込みそれを5分間隔で自動でコピーしていく。

Question

A1～M1まで13箇所、楽天のRSSで、エクセルに株価を引き込みます。
これを、下の行に移り変わる株価を５分ごとにコピーしていきます。
このVBAの組み方を、教えていただきたいのですが、ご親切なかた、よろしくおねがい致します。
いままで長い事、関連のところを、学習してきましたが、まだ成功していません。

end-u · Accepted Answer

>上記のマクロのみでやっているのですが、うまくいきません。
うまくいかないとは？
その状況をちゃんと説明してください。
実行したらエラーが出るのか
エラーは出ないけど思った通りの結果が出ず、『どう』なるのか。
その時のExcelの作業環境はどうなっているのか。

貴方のBookが回答サイドの手元にあるわけではないのですから
状態を把握できるように説明しないと解決につながりません。

まずは
Const interval = "0:00:05"
５秒おきに実行するように設定して『実験』してみてください。

該当Bookを開き、
そのコードを標準モジュールに置いて、Sheets("sheet1") を実際のシート名に変更したら
Macro1 で開始。
５秒おきに Macro1 を繰り返し実行します。

RSS関数を設定したSheets("xxx")のA1:M1のデータを
最終行から順次、下に値のみ蓄積していきます。
終了するには Auto_Close を実行します。

Auto_CloseはそのBookを閉じる時に実行されますから、当然の事ながら
Bookを開いたままでないと機能しません。

さて。一体どこで躓いておられるのでしょうか？

end-u · Answer

>もうひとつ教えてください、N行にタイムを入れていくのはどのようにしたら良いのですか？ 
と書いておきながら〆切るのは勘弁してください。 

N列の[セルの書式設定]-[表示形式]を 「　時刻　」「　h:mm:ss　」にしてください。 
コードを以下に差し替えです。 

'標準モジュール 
Option Explicit 
Dim setTime As Date 
Const interval = "0:05:00" 

Sub Macro1() '開始 
　　Dim r As Range 'セル範囲格納用変数 
　　 
　　With Sheets("sheet1") '対象シート名 
　　　　Set r = .Range("A1:M1") 
　　　　'A列最大行から上に跳んで最下行へ。その１コ下のセルにA1:M1の値をセット。 
　　　　With .Cells(.Rows.Count, 1).End(xlUp).Offset(1) 
　　　　　　.Resize(, 13).Value = r.Value 
　　　　　　'A列から右へ13移動したセルに時刻セット 
　　　　　　.Offset(, 13).Value2 = Now 
　　　　End With 
　　End With 
　　Set r = Nothing 
　　setTime = Now + TimeValue(interval) 
　　'OnTimeメソッドで次回実行予約 
　　Application.OnTime setTime, "Macro1" 
End Sub 

Sub Auto_Close() '解除 
　　'予約キャンセル 
　　On Error Resume Next 
　　Application.OnTime setTime, "Macro1", , False 
End Sub

end-u · Answer

失礼。
#また忘れた

Sub Auto_Close() '解除
　　'予約キャンセル
　　On Error Resume Next
　　Application.OnTime setTime, "Macro1", , False
End Sub

end-u · Answer

'標準モジュール
Option Explicit
Dim setTime As Date
Const interval = "0:00:05" '5分間隔なら"0:05:00"

Sub Macro1() '開始
　　With Sheets("sheet1") '対象シート名
　　　　'A列最大行から上に跳んで最下行へ。その１コ下のセルにA1:M1の値をセット。
　　　　.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 13).Value = .Range("A1:M1").Value
　　End With
　　setTime = Now + TimeValue(interval)
　　'OnTimeメソッドで次回実行予約
　　Application.OnTime setTime, "Macro1"
End Sub

Sub Auto_Close() '解除
　　'予約キャンセル
　　Application.OnTime setTime, "Macro1", , False
End Sub
こんな感じ。
わからない語句などはマウスキャレットをあてて[F1]キー。
ヘルプにクイックアクセスできますから後はご自分で調べて勉強してみてください。

imogasi · Answer

既製のソフトがあると思うので、購入されたら。こういう他ソフトとエクセル（？）の連携のプログラムは情報も少なく、自動で、５分おきなどの条件もあってやりたいそのままの条件ですから。

DOUGLAS_ · Answer

＞いままで長い事、関連のところを、学習してきました

　こちらはご覧になったでしょうか？
●楽天RSSの使い方 - タイマーを使う
http://kabu.muimi.com/k/rakuten_rss/3/index.html#timer

＃なお、私は「楽天証券の口座」を開設しておりません。
＃検証ができませんので、「単なる情報提供」ということで。。。
＃ご存じでしたら、スル～なさってください。　<(_ _)>

13箇所の株価をエクセルにRSSで取り込みそれを5分間隔で自動でコピーしていく。

>上記のマクロのみでやっているのですが、うまくいきません。

>もうひとつ教えてください、N行にタイムを入れていくのはどのようにしたら良いのですか？

失礼。

この回答への補足

'標準モジュール

既製のソフトがあると思うので、購入されたら。

＞いままで長い事、関連のところを、学習してきました

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング