不能完全清除内存，导致下次再进行同样操作时出错！
这是一个将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
