Question

VB保存EXCEL，第一次保存OK第二次保存替换选择‘否’就会出错，选择‘是’不出错。而且只能存一笔数据。

Static a As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets("sheet1")
xlApp.Visible = True
m100 = facon.getItem("Channel0.Station0.Group0", "m100")
If m100 = True Then
a = a + 1
xlSheet.Cells(a, 1) = facon.getItem("Channel0.Station0.Group0", "R0")
xlSheet.Cells(a, 2) = facon.getItem("Channel0.Station0.Group0", "R1") xlSheet.Cells(a, 3) = facon.getItem("Channel0.Station0.Group0", "R2")
End If
xlBook.SaveAs ("C:\Documents and Settings\Administrator\桌面\10.xls") xlBook.Close (True) '
xlApp.Quit
Set xlApp = Nothing

Answer 1

你在程序没有完全退出之前，不要xlApp.Quit