VBA 定期的にデータ取得

ある一定の間隔ごとにSheet1のE21を”値”と
してSheet2へ取得・記録するVBAです。

-----
Private Sub CommandButton1_Click()

Dim Cnt As Interior

'繰り返し開始　ここから
    For i = 1 To Cnt

'Sheet1　リフレッシュ
        Sheets("Sheet1").Select
        ActiveWorkbook.RefreshAll

        Sheets("Sheet2").Select
    With Worksheets("Counter")
        .Range("A65536").End(xlUp).Offset(1, 0).Value = "=NOW()"
        .Range("A65536").End(xlUp).Select
       
'データを”値”として貼り付け
Selection.Copy
         Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
            False, Transpose:=False

        .Range("B65536").End(xlUp).Offset(1, 0).Value = "=Sheet1!E21"
        .Range("B65536").End(xlUp).Select
       
'データを”値”として貼り付け
Selection.Copy
         Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
            False, Transpose:=False

        .Range("A65536").End(xlUp).Select
        'セルの選択解除
Application.CutCopyMode = False

'５分間待機
         Application.Wait Time:=Now + TimeValue("00:05:00")
     End With

     Next
'繰り返し終了　ここまで

End Sub
-----

--参考ページ
http://www.asahi-net.or.jp/~ef2o-inue/top01.html
http://www.moug.net/

←クリック一票