投稿日	： 2004/02/04(Wed) 16:39
投稿者	： sato
Ｅメール	：
ＵＲＬ	：
タイトル	： タイマーで

初歩的な質問かもしれませんが、タイマーで１から順番に表示される数字を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に１，２，３・・・と表示されないのですが、どこを変えれば同じSheetに全ての値を表示させられるのでしょうか？初心者なのでどなたかわかる人教えて頂けないでしょうか？お願いします。

★ - タイマーで - sato 02/04-16:39No.7867
• Re: タイマーで - nobu 02/04-16:55 No.7868
• タイマー無しで - ak 02/04-17:37 No.7870
• Re: タイマーで - sato 02/04-23:32 No.7872