VB 数据 刷新 纪录问题

Question

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

Answer 1

vb里引用excel 11.0 库
用以下语句查找以前使用的最后行+1的位置写入新数据。
nLR = ActiveSheet.Cells.SpecialCells(11).Row'最后一行（与连续与否无关）
nLR=nLR + 1 '在这个行写入新数据其它如何导出excel文件的问题，网上有很多，自己查一下吧。

Answer 2

代码如下，可是只能保存一行，请帮忙，谢谢！
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

Answer 3

可以定位到已使用的区域之后一行 cell(usedrange.rows.count + 1,列索引)