遍历文件后VBAProject没有关闭

xwdljh

如题，遍历文件后，VBAProject(遍历文件名)没有关闭，导致内存越累越大，速度越来越慢，无法运行。

求教各位老师如何解决！


找到了chen7806的帖子，把C:\Documents and Settings\username\Application Data\Microsoft\Excel\XLSTART目录下的东西全部删除。
需要先更改权限。
感觉因该好用。

Yalishanda30

挪一下试试

饮冰e士

还可以这样，一个名称当两个变量用？

ykcbf1100

改用fso试试
建议上传附件，方便问题解决。

vitrel

Do While xls <> ""
    Set xls = Workbooks.Open(指定目录 & "\" & xls)
    表名 = ActiveWorkbook.Name
'*************
'操作省略
'*************
    Workbooks(表名).Close False
    xls = Dir
Loop

'建议将上面的代码更改如下：

Do While xls <> ""
    Set xls = Workbooks.Open(指定目录 & "\" & xls)
    '表名 = ActiveWorkbook.Name '上面都已经Set了，这行代码建议删除。若确实有用，建议该改为：表名 = xls.Name
'*************
'操作省略
'*************
    xls.Close False
    xls = Dir
Loop

quqiyuan

感觉是Excel的一个bug，这个遇到的情况是Excel长期不关，就有可能遇到的。我也经常遇到，因为电脑经常不关，只能从新关掉Excel，再打开就好了。