可怕的现象

[iseelxj]

我在excel里面，用vba循环的打开200多个excel（每次一个），读取其中信息之后关闭。
在处理过程中，用windows键+d键切换桌面，第二次切换的时候，跑出来好几十个小窗体。
我一一看了一下，好像都是在进程管理器中的进程,都关闭不了，只能重起机器。
怎么才能避免呢？！！！

代码如下

for i ...
Application.ScreenUpdating = False
Set wbTeam = Workbooks.Open(path, , False)
Me.Activate
Application.ScreenUpdating = True

'do something

wbTeam.close
next

[迈克揉索芙特]

http://topic.csdn.net/t/20061110/21/5149494.html

[oyljerry]

需要把Excel的进程也关闭，TerminateProcess()

[iseelxj]

为什么不用 Workbooks.Open(path, , False) 呢?

[iseelxj]

弹出来的那些程序不是excel的，是各种后台程序

[iseelxj]

这么做，好像就可以了， 创建一个新的excel application，然后让它不可见，再在它里面读信息

Dim myExcel As New Application
myExcel.Visible = False

for i ...
Set wbTeam = myExcel.Workbooks.Open(path, , False)

'do something

wbTeam.Close
myExcel.Quit
next

Set wbTeam = Nothing
Set myExcel = Nothing