« バックアップ 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

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/10287810

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

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