怎么我往EXCEL里面保存数据的时候。。excel怎么不自动关闭。。非要手动才行了？
Dim objExcelApp
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=True
objExcelApp.Workbooks.Open "F:\Downloads\s\data.xls"
objExcelApp.cells(3,1).Value=i
objExcelApp.cells(4,3).Value="1235456"
objExcelApp.cells(i,1).Value="12sd"
objExcelApp.cells(i,2).Value="oMSFlexGr"
objExcelApp.cells(i,3).Value="oMSFlex"
objExcelApp.cells(i,4).Value="oMSFlexGr"
objExcelApp.ActiveWorkboos.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit

Set objExcelApp=Nothing
这个就是书上的代码啊？是什么地方出问题了？谢谢！！！