dimita

我这个错误很奇怪,不明白到底是哪里错了!

dimita

这是我写的程序，大家帮忙看看吧！！！

dimita

Nothing

你在退出程序的时候，请清除Excel对象的调用。
如在 Form_Unload事件中加上

Nothing

我看了你的代码，问题出在

Call SetParent(hWndWordApp, Me.hwnd)
如果不加载这句就没有问题

其实你可以加上下面的代码解决

Private Sub Form_Unload(Cancel As Integer)
    Dim a As Excel.Window
    For Each a In xlapp.Windows
        a.Close
    Next
    Set xlsheet = Nothing
    Set xlbook = Nothing
    Set xlapp = Nothing

End Sub

netice

西西厉害。。我看了看没看明白怎么回事。。

Nothing

其实就是建立对象时,一定在退出的时候删除对象.

dimita

我觉得我都释放了呀,每个最后都写上等于nothing了!
Call SetParent(hWndWordApp, Me.hwnd)这句是要有的了,因为我做的程序的调用结果就要把excel显示在vb的窗体中的，不用那句怎么实现呢?
容我说句无关的话:梁朝伟就是帅呀!

Nothing

我的意思是说，你调用了Excel之后，并没有把Excel关闭，所以要在退出程序之前关闭Excel。

kingbor

顶楼上的!