# VB call Excel的奇怪问题，请大家帮忙

Posted by VBFANS on April 14, 1999 at 18:14:34:

我写了一个简单的程式，用VB call excel开一个new worksheet，然后结束，Form上有两个command button，一个是呼叫excel，另一个是结束excel。这个程式如果我按钮执行呼叫excel，然后按quit钮结束excel是正常的，但我若按钮再开启excel一次，则会出现Automation error的错误，为什么会这样呢？请大家帮帮忙，谢谢！

Dim exl As Object
Dim exwk As Workbook

Private Sub cmdOpen_Click()
Set exl = CreateObject("excel.application")
Set exwk = Workbooks.Add
exl.Visible = True
AppActivate exl.Application.Caption

End Sub

Private Sub cmdQuit_Click()
exl.Application.Quit
Set exl = Nothing
Set exwk = Nothing
End Sub

Follow Ups:

- 打错一行 小吴 08:09:29 4/15/99 (2)
  - Re: 就差那一行，但是二者之差异为何？ VBFANS 08:25:00 4/15/99 (1)
    - 差很多喔! 小吴 08:26:14 4/16/99 (0)