请高手看以下代码有没有问题？！

[emailhm]

请高手看以下代码有没有问题？！ （这段代码能运行，能打印）
（1。主要是同一窗口下两个这样的按钮不能接连打印
是不是运行几次后excel进程增加？，怎么释放资源？）

Private Sub cmdzhbo_Click()

On Error GoTo PrintFunc_Err

Dim xlWorkBook As Excel.Workbook
Dim xlwkst As Excel.Worksheet

Set ex = CreateObject("Excel.Application")
'增加工作表
Set xlWorkBook = ex.Workbooks.Add
Set xlwkst = xlWorkBook.Worksheets(1)

'数据处理。。。

.....

.....

'工作表可见
ex.Visible = True

'打印预览
ex.ActiveWindow.SelectedSheets.PrintPreview

'关闭EXCEL
ex.Visible = False

PrintFunc_Err:

Set xlwkheet = Nothing
ex.ActiveWorkbook.Close savechanges:=False
Set xlWorkBook = Nothing
ex.Quit
Set ex = Nothing

End Sub

紧急，明天交货， 电话 [phone]（深圳） 等候

[dary_zhou]

set ex=nothing
还有，这个按钮点一次后让它无效，
Set ex = CreateObject("Excel.Application")
在最的面把所有的EXCEL进程全部关掉

[emailhm]

?

我已经

ex.quit
set ex = nothing

都有了啊

[lisen101]

set ex = nothing
Nothing


使用 Nothing 关键字被将对象变量从实际对象中分离开来。要使用 Set 语句将 Nothing 赋值给对象变量。例如：

Set MyObject = Nothing

几个对象变量可以引用同一个实际对象。当 Nothing 被赋值给一个对象变量时，该变量不再引用任何实际对象。当几个对象变量引用同一个对象时，只有将全部对象变量都设置成 Nothing 之后，与被引用的对象有关联的内存资源及系统资源才会被释放掉，在这里，或者明确使用 Set，或者在最后一个设置成 Nothing 的对象变量超出范围后隐含地使用 Set。

[高高兴兴的晶晶]

先帮你up

[surdon]

不懂 幫你頂!!!!!!!!!

[yo_jo]

你创建了Excel对象 Set ex = CreateObject("Excel.Application")，但是却没有关闭，可能问题出在这里～～