'这是加在模块里的代码
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
注释掉,就正常.
是不是还有什么变量没有释放。
拜托高手运行看看，在网上查了好久，也没有找到好的答案。郁闷。
谢谢，谢谢
