Office中国论坛/Access中国论坛

标题: 【源码示例】彻底解决打开Excel文件后，由于出错占用内存的问题 [打印本页]

作者: 鱼儿游游 时间: 2011-10-14 16:12
标题: 【源码示例】彻底解决打开Excel文件后，由于出错占用内存的问题
本帖最后由鱼儿游游于 2011-10-17 16:19 编辑

问题：当我们打开一个EXCEL文件，进行导入/导出数据操作，如遇到代码出错，有可能会造成已打开的EXCEL文件没关闭，造成程序运行越来越慢（因为可能存在该文件被多次打开的情况，已打开的EXCEL文件占用内存）。
解决方法：在关闭窗体或退出函数时，调用本函数，保证其全部被关闭，彻底解决打开Excel文件后，由于出错占用内存的问题。

作者: yehf 时间: 2011-10-14 16:14
学习一下

作者: yanghua1900363 时间: 2011-10-14 16:22
谢谢分享！

作者: tmtony 时间: 2011-10-14 17:42
谢谢分享！

作者: sxb2007 时间: 2011-10-14 20:12
谢谢分享！

作者: todaynew 时间: 2011-10-14 20:55
还是觉得代码复杂了，呵呵。我是这样搞法：

Public Function CloseE()
Dim obj As Object
On Error Resume Next
Set obj = GetObject(, Excel.Application)
obj.Quit
End Function

作者: wang1950317 时间: 2011-10-14 21:15
学习学习！

作者: daxin1 时间: 2011-10-15 05:45
333

作者: koutx 时间: 2011-10-15 13:31
看一下

作者: zyp 时间: 2011-10-17 08:53
学习了,谢谢

作者: liangshiheng 时间: 2011-11-9 02:20
dddddddddddddddd

作者: godzhong 时间: 2011-11-15 11:48
好东西

作者: tsilon 时间: 2011-11-15 19:58
hao ren la

作者: grq 时间: 2011-11-20 09:06
这个正需要，谢谢。

作者: zhengjialon 时间: 2011-11-21 11:38
这会不会把其它正常形式下打开的EXCEL文件也关闭了？

作者: ge88 时间: 2011-11-22 19:07
xtxixtxi

作者: efcndi 时间: 2011-11-24 10:13
看看

作者: smileyoufu 时间: 2013-4-13 18:07
学生来了，好好学习

作者: aslxt 时间: 2013-4-15 09:29
学习一下

作者: meteorxp 时间: 2013-4-15 09:47
看看

作者: 123shusheng 时间: 2013-6-1 16:17
学习一下

作者: gdjdyyj 时间: 2013-6-1 19:47
学习!!!!

作者: fxbianxiu 时间: 2013-6-15 17:26
解决打开Excel文件后

作者: xie62 时间: 2013-6-15 18:07
谢谢分享！

作者: zezhza 时间: 2013-6-15 19:46

学习一下

作者: 桑松木 时间: 2013-6-15 19:46
学习

作者: 李力军2 时间: 2013-6-15 21:19
不错，是有这个情况

作者: aleeado 时间: 2013-7-4 08:31
正需要这个，谢谢

作者: xuwenning 时间: 2013-7-4 10:49
学习学习

作者: 星辉 时间: 2013-7-24 09:55
我要参考一下,也碰到过类似问题.

作者: yanwei82123300 时间: 2013-7-24 12:13
谢谢分享！

作者: c101 时间: 2013-7-24 13:38
学习了,谢谢

作者: zxklzxm1983 时间: 2013-9-28 09:41
学习{:soso_e182:}

作者: wgh3g 时间: 2013-9-28 14:07
谢谢分享

作者: wgh3g 时间: 2013-9-28 14:07
行销分析

作者: LeeTien 时间: 2013-9-28 21:25
观察下，呵呵

作者: daisyjane 时间: 2013-9-29 16:17
谢谢了

作者: chuang0321 时间: 2013-9-30 07:47
最近正在搞一个导入excel表格的数据库，正好用上！

作者: 李力军2 时间: 2013-10-1 18:26
谢谢分享.请都一下,既然都指定文件名了,为何还要使用Do...Loop循环呢?有什么讲究吗?谢谢指点!

作者: smilingkiss 时间: 2013-11-10 19:55
来学习了

作者: smilingkiss 时间: 2013-11-10 21:08

todaynew 发表于 2011-10-14 20:55
还是觉得代码复杂了，呵呵。我是这样搞法：

Public Function CloseE()

这个怎么用，好像不行哦

作者: sunwrsun 时间: 2013-12-15 23:12
看看

作者: singer 时间: 2013-12-24 23:12
谢谢

作者: zhaotao 时间: 2014-5-16 21:34
看看

作者: wu8313 时间: 2014-5-23 21:52
学习。

作者: fcghw 时间: 2014-6-19 02:35
老问题，看看什么方法？

作者: zxclen 时间: 2014-9-18 11:53
SEEEEEEEEEEEEEEEE

作者: maomaoliu 时间: 2014-12-29 21:35
学习学习

作者: szyewj 时间: 2015-1-1 17:29
谢谢分享！

作者: friendship 时间: 2015-5-31 06:30

作者: lintina892 时间: 2015-7-14 16:20
学习学习学习学习学习

作者: manxin0821 时间: 2015-7-15 05:12
谢谢

作者: 物流电商伟哥 时间: 2016-3-7 19:55
请教源码

作者: cxtrj 时间: 2016-3-25 16:33
顶起。

作者: Henry D. Sy 时间: 2021-6-22 12:15
学习一下

作者: 灰太郎 时间: 2021-9-3 19:56
123456

作者: PETER2020 时间: 2021-11-5 21:10
学习学习下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)