'释放对象,关闭excel
Set tempxlSheet = Nothing
tempxlWorkbook.Close
Set tempxlWorkbook = Nothing tempxlApp.Quit
Set tempxlApp = Nothing
Set tempxlSheet = Nothing
tempxlWorkbook.Close
Set tempxlWorkbook = Nothing tempxlApp.Quit
Set tempxlApp = Nothing
解决方案 »
- 问两个简单问题:1、vb导出excel office版本问题 2、activereport报表内容能自动回行吗?
- 结帐给分贴(5贴之4)
- 这样的树状结构怎么初始化??急用,在线等!!!
- 我写的dll调用后,然后再想覆盖它,怎么就不能覆盖了?系统提示说“正在使用”。如何终止它呢?dllhost也终止不了啊。
- VB里面数据修改问题!!求指教!急
- >请问谁有做过VB 与 RS323相关方面的工作? (求资料,代友问)急!!!!!<
- 生活点滴(转贴)
- 当鼠标移到控件上时控件上的文字变成蓝色 , 移开后以恢复原状 , 怎么写代码??
- 为什么我自己做的透明label控件上面的文字模糊不清楚
- 菜鸟问题2
- 大家下午好!请问如何在数据库中查询出符合条件的纪录?
- 求用winsock传送数据的例子,传送一个窗口的数据(text1.text,image.picture等),只要提供可行的例子开贴100分相赠!如果是编辑这样的dl
现在程序运行没问题,只是还没有从内存中完全释放到,当用excel打开这个模板时,这些记录还在里面
If (AppExl.Workbooks.Count > 0) Then
AppExl.Workbooks(1).Close SaveChanges:=False
End If
AppExl.Quit
Set AppExl = Nothing
End If