关于Excel对象的释放问题：

[二两就醉]

'
'办函数创建一个Excel文件
'strPath 是文件的路径
Public Function CreateExcelFile(strPath As String, iSheetCount As Integer)

Dim xls As New Excel.Application
Dim exlBook As New Excel.Workbook
Dim fso As New FileSystemObject

If fso.FileExists(strPath) Then fso.DeleteFile strPath
Set exlBook = xls.Workbooks.Add
exlBook.Worksheets.Add Count:=iSheetCount, After:=Sheets("Sheet3")

exlBook.SaveAs strPath
exlBook.Close
Set exlBook = Nothing

xls.Quit
Set xls = Nothing

Set fso = Nothing
End Function

打算创建一个Excel文件，其中包含了指定数目的工作表，操作已经成功。但是操作完成之后Excel对象没有释放，百思不得其解，求解！！！！

请帮忙调以上的代码，使其能完成同样的功能在函数完成时将Excel对象释放。

[datou985]

你的代码是因为有暗藏的worksheet对象存在，而函数结束以后又没有set xlssheet=nothing
因为你根本就没有声明worksheet的引用
所以无法释放worksheet对象
exlBook.Worksheets.Add Count:=iSheetCount, After:=Sheets("Sheet3")
应该在上面的语句上想办法声明一个worksheet对象
然后在xls.quit以后加上 set xlssheet=nothing 这样的语句就可以了

[guyehanxinlei]

SET 对象=NOTHING

[二两就醉]

关键是我的代码从来就没有定义，xlssheet对象啊；
而且从哪里可以看出我隐式定义了xlssheet对象呢？？

[sigridl]

After:=Sheets("Sheet3"),是这里有问题吧？
你这个工作薄是哪来的啊？

[清晨曦月]

nonono

方法是这样的

exlBook.Close(true)


呵呵...调用退出方法时加入默认参数,这个参数的意义是确认直接保存.和它提示你已经改变是否保存时点保存是相同的.


相关内容可查找OFFICE自带VBA帮助.谢谢

[二两就醉]

谢谢各位。
用ADO取操作Excel效果会好点。