« バックアップ USBメモリ | Main | レジストリ モニタ »

May 29, 2006

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

'5分間待機
         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/

←クリック一票

|

« バックアップ USBメモリ | Main | レジストリ モニタ »

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack


Listed below are links to weblogs that reference VBA 定期的にデータ取得:

« バックアップ USBメモリ | Main | レジストリ モニタ »