投稿日 | : 2004/02/04(Wed) 16:39 |
投稿者 | : sato |
Eメール | : |
URL | : |
タイトル | : タイマーで |
初歩的な質問かもしれませんが、タイマーで1から順番に表示される数字をExcelのセルに表示させようと以下のようなプログラムにしました。
Dim lngCounter As Long
Dim j As Integer
Dim X As Integer
Sub data()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
j = 9 + X
xlSheet.Cells(j, 10) = lngCounter
X = X + 1
xlApp.Visible = True
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
Private Sub Command1_Click()
If Timer1.Interval = 1000 Then
Timer1.Interval = 0
Else
Label1.Caption = ""
lngCounter = 0
X = 0
Timer1.Interval = 1000
End If
End Sub
Private Sub Timer1_Timer()
lngCounter = lngCounter + 1
Label1.Caption = lngCounter
Call data
End Sub
が、これだと毎回別のExcelが開いてしまい、同じExcelのSheetに1,2,3・・・と表示されないのですが、どこを変えれば同じSheetに全ての値を表示させられるのでしょうか?初心者なのでどなたかわかる人教えて頂けないでしょうか?お願いします。