不能完全清除内存,导致下次再进行同样操作时出错!
这是一个将access table导出到EXCEL的模块代码,调用这个模块后不能完全清除内存(能监视到),导致接着再次调用这个模块的时候前3段语句不能执行“对象变量或with块变量未设置”出错,如果退出程序再执行就没有问题,请问有什么办法在执行完成后就完全清除内存呢? 1 . ActiveSheet.name = Table
2 . Worksheets("sheet2").Delete
3 . Worksheets("sheet3").Delete
xlBook.SaveAs PathVal
MsgBox "已经输出" & PathVal & "表,请查看!", vbInformation, "Yams"
xlBook.Close
Set xlApp = Nothing '"交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing
Conn.Close
Set Conn = Nothing