作者:乔山办公网日期:
返回目录:excel表格制作
excelapp.quit 退出excel对象
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\委托书.xls") '打开已经存在的EXCEL工件簿7a64e78988e69d83362文件
xlApp.Visible = IIf(fg = 0, True, False) '设置EXCEL对象可见(或不可见)预览设置为可见
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
......
xlApp.DisplayAlerts = False '不提示是否覆盖
xlBook.SaveAs App.Path & "\检验委托书\" & Trim(w.C_hpzl.Text) & Trim(w.T_hphm.Text) & "_" & a.jylsh & ".xls" '保存当前发票信息
xlBook.Close (False) '关闭工作簿
xlApp.Visible = False
xlApp.Quit '结束EXCEL对象
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing '释放xlApp对象
VB代码自己创建的是这样关闭的
其他的需要调用系统API来结束进程
我觉得如果你上面那段代码能正常运行百完应该是没什么问题的。除非行动中出错或其它非正常度中断而没有运行
x1.Quit
Set x1 = Nothing '释放问内存
Set x1Book = Nothing
Set x1Sheet = Nothing
这部分代码才会导致你说的进程没关答闭的问题。如果是程序中间出错你可以在程序开始处加入ON ERROR GOTO XX 语名。然后在错误处理开始处判断X1是否退版出,如果否权在判断语句后加入上面几行代码就OK了。
objWorkBook.Close (True) '关闭知工作簿并道保存所内做的修改容
objExcelFile.Quit
Set objWorkBook = Nothing
Set objImportSheet1 = Nothing
Set objExcelFile = Nothing