VB数据定时保存到EXCEL表中怎么才可以不覆盖

Question

代码如下Private Sub Timer2_Timer()
Dim ExcelApp As Object, ExcelBook As Object, Q As Integer   Set ExcelApp = CreateObject("Excel.Application")
   Set ExcelBook = ExcelApp.Workbooks.Open("D:\Book2.xls")    '文件名自己改，文件必须存在
   With ExcelBook.ActiveSheet
      
       Q = .UsedRange.Rows.Count + 1
      Static R
       R = Q + 1
      .Range("A" & R & ":K" & R) = Array(Format(Now, "yy/mm/dd,hh:mm:ss "), text1(0).Text, text1(1).Text, text1(2).Text, text1(3).Text, text1(4).Text, text1(5).Text, text1(6).Text, text1(7).Text, text1(8).Text, text1(9).Text, text1(10).Text)
   End With
   ExcelBook.Save
   ExcelBook.Close
   ExcelApp.QuitEnd Sub
这段代码运行已经成功 每隔一段时间自动往EXCEL里面写入数据而且还是一行一行的写，但是我手动清除了下EXCEL表的内容，在运行程序的时候，就开始覆盖上一条记录了，求解决方法，小弟不才，望贵人相助

Answer 1

应该更好理解一下 UsedRange属性 当清空内容后，usedrange属性会改变，所以有可能覆盖以前的位置。如果想不覆盖，可以考虑range的end属性或使用特定变量或单元格存储行号.........

Answer 2

毫无疑问, 你错误用excel来记录保存数据就是个错误. 
最起码你也该用access, 这至少还算个数据库吧.

Answer 3

可以把 Excel 当作 Jet Engine 的外部数据库来使用，用 ADO 和 SQL 就能不断写入新记录。