急！！我用VB对Excel进行操作，执行完后发现Excel进程还在运行，只有终止程序才可以结束进程？

[hwjfly]

Option Explicit

'这是加在模块里的代码
Public Sub test()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("c:\book1.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")

Dim rg As Range
Dim qq As Integer
xlSheet.Cells(1, 1).Activate
Set rg = ActiveCell.CurrentRegion
qq = rg.Rows.Count
Set rg = Nothing

'以下是一些对Excel的操作
' ..........
' .........

MsgBox "Rows are " & qq, vbInformation, "Hint"
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

End Sub


进程中总是有EXCEL关闭不上，只有程序结束了EXCEL才消失。
当将
Set rg = ActiveCell.CurrentRegion
qq = rg.Rows.Count
Set rg = Nothing
注释掉,就正常.
是不是还有什么变量没有释放。
拜托高手运行看看，在网上查了好久，也没有找到好的答案。郁闷。
谢谢，谢谢

[zhanglan1999]

我也常遇到此问题,经常是在这台机器上有EXCEL进程,换个机器可能就没有,不知是否与操作系统有关.

[flexlonger]

退出前，将所有EXCEL对象变量都释放。如rg。和机器没有关系。

[Dunzip]

1/Set rg = ActiveCell.CurrentRegion 改为 Set rg = xlSheet.ActiveCell.CurrentRegion
2/
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
改为
xlBook.Save
xlBook.Close
Set xlSheet = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

[jam021]

将 Set rg = ActiveCell.CurrentRegion
改为:
Set rg = xlApp.ActiveCell.CurrentRegion
就可以了
记住:在外部环境比如VB中对office组件做操作,所有对象前都要加excel对象名,不然进程会结束不了

[flexlonger]

我用access vba时，也遇到过，后来逐步调试，发现原因所在，看看OFFICE 软件帮助吧。

[wwh999]

'调用
Call subKillProcess("Excel.exe")

Public Sub subKillProcess(strProcess)

Dim strComputer
Dim objWMIService
Dim colProcessList
Dim objProcess

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcess & "'")
For Each objProcess In colProcessList
objProcess.Terminate
Next

End Sub

[可视化陈列管理系统]

mark 我也遇到過。

[m00ners]

Mark

[WuYunpeng]

要调用COLOSE方法它才会关闭

[LICHIBIN]

Set rg = xlSheet.ActiveCell.CurrentRegion