代碼如下
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.Quit
End Sub
這段代碼運行已經成功 每隔一段時間自動往EXCEL里面寫入資料而且還是一行一行的寫，但是我手動清除了下EXCEL表的內容，在運行程式的時候，就開始覆寫上一條記錄了，求解決方法，小弟不才，望貴人相助
uj5u.com熱心網友回復：
應該更好理解一下 UsedRange屬性 當清空內容后，usedrange屬性會改變，所以有可能覆寫以前的位置。如果想不覆寫，可以考慮range的end屬性或使用特定變數或單元格存盤行號.........uj5u.com熱心網友回復：
毫無疑問, 你錯誤用excel來記錄保存資料就是個錯誤.最起碼你也該用access, 這至少還算個資料庫吧.
uj5u.com熱心網友回復：
可以把 Excel 當作 Jet Engine 的外部資料庫來使用，用 ADO 和 SQL 就能不斷寫入新記錄。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133239.html
標籤：VB基礎類
上一篇：MFC WM_SETTEXT
下一篇：outlook插件