外部データの保存
http://www.bloomberg.co.jp/markets/commodities/cfutures.html
上記のサイトをエクセルのWebクリエで取り込んで、2分おきにっ更新していますが、そのデータをすべて保存したいです。
そこで、サイトにあるコードを使いました。
１、50秒おきにデータをほかのセルにコピー
２、コピーした先の数値が、（コピー元の）時間と時価が同じなら、コピーしない。
３、コピーした先が、（コピー元の）時間と時価が違うなら、１つ下にズラしてコピー
４、・・・・
としていますが、実行してみると、数値のコピーはされますが、
「Book1の一定間隔で実行するマクロを実行できません。」
となります。
どうしてでしょうか。
Option Explicit
Dim 開始時刻, 終了時刻, インターバル, 反復時刻
Public Line As Integer
'---------------------------------------------------------------------------------
Sub 開始時刻から終了時刻まで一定間隔でマクロを実行する()
開始時刻 = TimeValue("09:00:00")
終了時刻 = TimeValue("23:00:00")
インターバル = TimeValue("00:00:50")
Application.OnTime 開始時刻, "一定間隔で実行するマクロ"
End Sub
'---------------------------------------------------------------------------------
Sub 一定間隔で実行するマクロ()
If TimeValue(Now) >= 終了時刻 Then '終了時刻になったら終わる
MsgBox "終了時刻になりました。"
Exit Sub
End If
Call 必要な作業を行うマクロ
反復時刻 = TimeValue(Now) + インターバル
Application.OnTime 反復時刻, "一定間隔で実行するマクロ"
End Sub
'---------------------------------------------------------------------------------
Sub 必要な作業を行うマクロ()
Dim flag As Integer
Line = 11
If Cells(Line, 2).Value = Cells(2, 2).Value And Cells(Line, 1).Value = Cells(2, 5).Value Then
Line = Line + 1
Cells(Line, 2).Value = Cells(2, 2).Value
Cells(Line, 1).Value = Cells(2, 5).Value
Else
Cells(Line, 2).Value = Cells(2, 2).Value
Cells(Line, 1).Value = Cells(2, 5).Value
End If
End Sub
お礼
すいません、自己解決しました。 お手数をおかけしましたm(_ _)m