VB 数据刷新纪录问题

高手，请教以下问题：

      vb6.0：MSCOMM通过串口采集到地数据采用timer每1s刷新一次，每一次刷新的数据都依次保存到excell的每一行中，请问怎样处理？如能帮助非常感激！

--------------------编程问答-------------------- 加一个计数的保存就可以了 --------------------编程问答-------------------- vb里引用excel 11.0 库
用以下语句查找以前使用的最后行+1的位置写入新数据。
nLR = ActiveSheet.Cells.SpecialCells(11).Row'最后一行（与连续与否无关）
nLR=nLR + 1 '在这个行写入新数据

其它如何导出excel文件的问题，网上有很多，自己查一下吧。
--------------------编程问答-------------------- 代码如下，可是只能保存一行，请帮忙，谢谢！
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    xlsheet.Activate '激活工作表
    xlsheet.Cells(1, 1) = "time"
    xlsheet.Cells(1, 2) = "Tvoltage"
    xlsheet.Cells(1, 3) = "current"
    xlsheet.Cells(1, 4) = "capacity"
    xlsheet.Cells(1, 5) = "SOC"
    For k = 1 To 96
    xlsheet.Cells(1, k + 5) = "VB" & k
    Next k

    nLR = ActiveSheet.Cells.SpecialCells(11).Row

     For k = 0 To 95
     xlsheet.Cells(nLR + 3, k + 6) = Text1(k).Text
     Next k

    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
  Else
    MsgBox ("EXCEL已打开")
  End If
--------------------编程问答-------------------- 用控件TIMER的TIMER事件 --------------------编程问答-------------------- 可以定位到已使用的区域之后一行 cell(usedrange.rows.count + 1,列索引)

补充：VB ,  基础类

VB 数据 刷新 纪录问题

VB 数据刷新纪录问题