第二次執行程式碼時 Excel 自動化失敗

重現行為的步驟

1. 在 Visual Basic 中開始新的標準 EXE 專案。 表單1 預設為建立。

2. 在 [ 專案] 功能表上，按一下 [ 參考資料]，然後核取 [物件程式庫] 以瞭解您打算自動化的 Excel 版本。

3. 將 CommandButton 控制項放在 Form1 上。

4. 將下列程式碼範例複製到表單1 的程式碼視窗。

         Option Explicit
   
         Private Sub Command1_Click()
            Dim xlApp As Excel.Application
            Dim xlBook As Excel.Workbook
            Dim xlSheet As Excel.Worksheet
            Set xlApp = CreateObject("Excel.Application")
            Set xlBook = xlApp.Workbooks.Add
            Set xlSheet = xlBook.Worksheets("Sheet1")
            xlSheet.Range(Cells(1, 1), Cells(10, 2)).Value = "Hello"
            xlBook.Saved = True
            Set xlSheet = Nothing
            Set xlBook = Nothing
            xlApp.Quit
            Set xlApp = Nothing
         End Sub
   

5. 在 [ 執行] 功能表上，按一下 [ 開始]，或按 F5 以啟動程式。

6. 按一下 CommandButton 控制項。 不會發生錯誤。 不過，已建立 Excel 參照，但尚未釋出。

7. 再次按一下 CommandButton 控制項。 請注意，您會收到「症狀」一節中討論的其中一個錯誤訊息。
   
   注意：錯誤訊息的發生原因是代碼參照的儲存格方法，在通話前面沒有接聽
   xlSheet 物件變數。

8. 停止專案並變更下列程式程式碼：

   xlSheet.Range(Cells(1,1),Cells(10,2)).Value = "Hello"
   

   將程式程式碼變更為類似下列程式程式碼。

   xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(10,2)).Value = "Hello"
   

9. 再次執行程式。 請注意，您可以多次執行驗證碼，而不會收到錯誤訊息。