ADO 连接自身内存无法释放内存的一种解决方案

detergent181 · 发表于 2009-11-26 11:54

真正实用的东西,才是好的,收藏.

stanleypan · 发表于 2009-11-26 11:56

参考: 错误：内存泄漏发生时使用 ActiveX 数据对象 (ADO) 查询打开 Excel 工作表
http://support.microsoft.com/kb/319998/zh-cn
不增加内存,去掉Debug.Print 就行,
但此法还是无法解决: 通过关闭和释放 ADO 对象，无法释放ADO 查询所使用的内存。
唯一的方法释放内存是要退出 Excel 进程。
关闭此文件,在VBA PROJECT中可以看到这个文件存在,只有关闭整个Excel 进程才能释放内存.

老伙计2008 · 发表于 2009-11-26 12:16

1楼和楼上都是非常实用的号东东

cg2328380 · 发表于 2010-2-5 10:39

感谢感谢，帮我解决了大问题。
使用这个技巧之前，运行带自查的VBA工具，就会耗光所有的系统资源，导致崩溃。
使用这个技巧之后，运行带自查的VBA工具，只占用很少量的系统资源，太感动了。

4me · 发表于 2010-2-5 14:42

转只读后不能打开带密码的文档

dy_ysl · 发表于 2010-4-28 16:57

收藏了。正好用着了。。

aidixiao · 发表于 2010-4-28 17:01

太有用了，谢谢版主分享。

dy_ysl · 发表于 2010-4-30 15:37

ThisWorkbook.ChangeFileAccess xlReadOnly
关键代码就这一句，实现了欺骗效果，

当运行到这名后，会出现停顿现象，我是用窗体的。每运行到这句时，就停顿好2秒钟左右，不知怎么解决。。。

ldy · 发表于 2010-4-30 22:24

原帖由 dy_ysl 于 2010-4-30 15:37 发表
ThisWorkbook.ChangeFileAccess xlReadOnly
关键代码就这一句，实现了欺骗效果，

当运行到这名后，会出现停顿现象，我是用窗体的。每运行到这句时，就停顿好2秒钟左右，不知怎么解决。。。

Private Sub UserForm_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly '转为只读
Sheet2.查询
ThisWorkbook.ChangeFileAccess xlReadWrite
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
'我试了一下，没发现你说的停顿现象

imgSteve · 发表于 2010-5-1 00:40

大大的方法只针对Office 2003有效，新版的Office 2007就出错了

		自动登录	找回密码
密码			免费注册

[原创] ADO 连接自身内存无法释放内存的一种解决方案