怎么给Excel追加数据并能保存而不是覆盖?
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(App.Path & "\Data.xls")
Set xlSheet = xlBook.Worksheets("AA")
xlApp.Visible = False
Set llRow = xlSheet.UsedRange.Count / 30
....
到这里就写不下了
每次保存都会把原来有的数据给覆盖
请问该如何操作才能继续追加数据呢?
谢谢
[解决办法]
excel命令现在忘光了,我记得当初是用一个循环遍历表格Range来判断是否是空行,不是空行,则取最后一行+1,然后写入就可以啊
[解决办法]