第1个回答 2017-04-04
调用后一定要关闭调用才行:
'先初始化,再调用
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("Excel.Application") '创建excel应用
Set newbook = newxls.Workbooks.add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
'对表进行操作...
'最后关闭
newbook.Close '关闭表
newxls.Quit '关闭EXCEL