Die Automatisierung von Excel schlägt fehl, wenn Sie den Code zum zweiten Mal ausführen

Bei der Ausführung von Code, der zur Steuerung von Microsoft Excel Automatisierung verwendet, tritt möglicherweise einer der folgenden Fehler auf:

In Microsoft Excel 97 und in höheren Versionen von Excel wird eine der folgenden Fehlermeldungen angezeigt: In Microsoft Excel 95 wird eine der folgenden Fehlermeldungen angezeigt:

Visual Basic hat einen Verweis zu Excel eingerichtet, der mittels einer Codezeile funktioniert, die ein Excel-Objekt, eine Excel-Methode oder -Eigenschaft aufruft, ohne das Element durch eine Excel-Objektvariable zu definieren. Visual Basic gibt diesen Verweis erst wieder frei, wenn Sie das Programm beenden. Dieser unzureichend definierte Verweis verursacht einen Konflikt mit dem Automatisierungscode, wenn der Code mehr als ein Mal ausgeführt wird.

Um dieses Problem zu beheben, ändern Sie den Code so, dass jeder Aufruf eines Objekts, einer Methode oder Eigenschaft in Excel durch die entsprechende Objektvariable definiert wird.

Es handelt sich hierbei um ein beabsichtigtes Verhalten.

Zum Automatisieren von Microsoft Excel legen Sie eine Objektvariable fest, die normalerweise auf die Excel-Anwendung oder das Excel-Arbeitsmappenobjekt verweist. Dann können weitere Objektvariablen festgelegt werden, um auf eine Arbeitsmappe, einen Bereich oder andere Objekte im Microsoft Excel-Objektmodell zu verweisen. Wenn Sie Code schreiben, der ein Excel-Objekt, eine Excel-Methode oder -Eigenschaft verwendet, sollte dem Aufruf immer eine entsprechende Objektvariable vorhergehen. Anderenfalls erstellt Visual Basic einen eigenen Verweis auf Excel. Dieser Verweis könnte zu Problemen führen, wenn Sie versuchen, den Automatisierungscode mehrere Male auszuführen. Beachten Sie, dass selbst wenn die Codezeile mit der Objektvariablen beginnt, ein Aufruf eines Excel-Objekts, einer Excel-Methode oder -Eigenschaft in der Mitte der Codezeile erfolgen kann, der keine Objektvariable vorangestellt ist.

Die folgenden Schritte veranschaulichen, wie das Problem reproduziert und korrigiert werden kann.

Schritte zum Reproduzieren des Verhaltens

1. Starten Sie in Visual Basic ein neues Standard-EXE-Projekt. Form1 wird standardmäßig erstellt.
2. Klicken Sie im Menü Projekt auf Verweise, und ermitteln Sie anschließend anhand der Objektbibliothek die Excel-Version, die Sie automatisieren möchten.
3. Fügen Sie ein Steuerelement CommandButton in Form1 ein.
4. Kopieren Sie folgendes Codebeispiel in das Codefenster von Form1:

         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. Klicken Sie im Menü Ausführen auf Starten, oder drücken Sie [F5], um das Programm zu starten.
6. Klicken Sie auf das Steuerelement CommandButton. Ein Fehler tritt nicht auf. Es wird jedoch ein Verweis zu Excel erstellt, der aber nicht freigegeben wird.
7. Klicken Sie erneut auf das Steuerelement CommandButton. Sie werden feststellen, dass jetzt eine der im Abschnitt "Problembeschreibung" erläuterten Fehlermeldungen angezeigt wird.
   
   Hinweis: Der Fehler tritt auf, weil der Code auf die Methode der Zelle verweist, ohne dass dem Aufruf die Objektvariable xlSheet vorangeht.
8. Halten Sie das Projekt an, und ändern Sie folgende Codezeile:

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

   Ändern Sie die Codezeile etwa so wie in der folgenden Codezeile.

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

9. Führen Sie das Programm erneut aus. Sie werden feststellen, dass Sie den Code nun mehrfach ausführen können, ohne dass eine Fehlermeldung angezeigt wird.

Weitere Informationen finden Sie in den folgenden Artikeln der Microsoft Knowledge Base: