求助vb与excel联合编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/14 08:17:20
我想做一个程序，功能是每隔一秒把当前系统时间写入excel里。但是我做的程序只能用一次，因为我储存的时候指定了一个路径d：\aaa.xls但是下一次用的时候，系统提示我已有一个同名文件，是否替换。我想保留原来的数据，并将后产生（第二次的）数据放在第一次的后面，不覆盖原有数据。请高手们帮忙写代码，我积分所剩无多，但若有人帮忙做成这个程序，我愿倾囊相赠。先赏20，有好用的程序后再追加。

Private Sub Timer1_Timer()
Dim ExcelApp, oWorkBook, oSheet
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = False
Set oWorkBook = ExcelApp.WorkBooks.Open("D:\aaa.XLS")
Set oSheet = oWorkBook.WorkSheets("Sheet1")
Dim iRow As Integer
iRow = oSheet.Columns("A").Find("").Row
oSheet.Range("A" & CStr(iRow)).Value = FormatDateTime(Now(), vbLongDate) & FormatDateTime(Now(), vbLongTime)
oWorkBook.Save
oWorkBook.Close
Set oWorkBook = Nothing
ExcelApp.quit
Set ExcelApp = Nothing
End Sub

学习