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

Nothing

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

Nothing

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