XL97: WorkBookBeforeClose-Ereignis wird unerwartet ausgelöst

• Das Makro wird von zwei oder mehr Excel-Arbeitsmappen aktualisiert, die in ein anderes Programm (z. B. Microsoft Word) eingefügt wurden. -und-
  
  
• Das Makro aktualisiert eine Formel, die OLE-Verknüpfung zwischen der Excel-Arbeitsmappen darstellt. -und-
  
  
• Sie haben einen Anwendungsebene Ereignishandler für das WorkbookBeforeClose-Ereignis erstellt.

Zum Anfang

Beispiel des Problems

Zum Anfang

Erstellen des Ereignishandlers WorkbookBeforeClose

1. Starten Sie Excel.
2. Wenn Sie persönliche Makroarbeitsmappe (Personal.xls) nicht haben, veranschaulichen die folgenden Schritte erstellen. Fahren Sie mit Schritt 3 fort, wenn Sie bereits persönliche Makroarbeitsmappe verfügen.
   
   
   1. Im Menü Extras auf Makro, und klicken Sie dann auf aufzeichnen.
   2. Klicken Sie in das Feld im auf Persönliche Makro-Arbeitsmappe, und klicken Sie dann auf OK.
   3. Im Menü Extras auf Makro, und klicken Sie dann auf Aufzeichnung beenden.
3. Drücken Sie [Alt]+[F11], um den Visual Basic-Editor zu starten.
4. Drücken Sie STRG + R, um im Explorer Projekt aktivieren.
5. Klicken Sie im Projektexplorer-Fenster auf "VBAProject (Personal.xls)."
6. Klicken Sie im einfügen auf Klassenmodul um ein Klassenmodul einzufügen.
7. Geben Sie den folgenden Code in das Klassenmodul:

        Public WithEvents App As Application
        Private Sub App_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, _
        Cancel As Boolean)
   
           MsgBox "App_WorkbookBeforeClose"
   
        End Sub
   						

8. Doppelklicken Sie im Projektexplorer von Visual Basic-Editor im aktuellen Projekt auf ThisWorkbook.
9. Geben Sie in das ThisWorkbook Modulblatt den folgenden Code:

        Dim X As New Class1
        Private Sub Workbook_Open()
   
           Set X.App = Application
   
        End Sub
   						

10. Klicken Sie im Menü Einfügen auf Modul, um ein Visual Basic-Modulblatt einzufügen.
11. Geben Sie in das Modulblatt den folgenden Code:

         Sub Test_BeforeClose()
    
            Dim xFormula As String, i As Integer, j As Integer
    
            Windows("Worksheet in BeforeCloseTest.Doc").Activate
    
            i = Workbooks("Worksheet in BeforeCloseTest.Doc 2") _
               .Worksheets("Sheet1").Range("A100").End(xlUp).Row + 1
    
            Range("A1").Name = "RefCopy" & I
    
            Range("A1").Copy
    
            Windows("Worksheet in BeforeCloseTest.Doc 2").Activate
    
            Range("A" & i).Select
    
            ActiveSheet.Paste Link:=True
    
            xFormula = ActiveCell.Formula
    
               For j = Len(xFormula) To 1 Step -1
    
                  If Mid(xFormula, j, 1) = "!" Then Exit For
    
               Next j
    
            ActiveCell.Formula = Left(xFormula, j) & "RefCopy" & i & "'"
    
         End Sub
    						

12. Klicken Sie im Menü Datei auf "Schließen & zurückkehren zu Microsoft Excel".
13. Klicken Sie im Menü Datei auf Beenden. Klicken Sie auf Ja, wenn Sie aufgefordert werden, um die Änderungen in der persönlichen Makro-Arbeitsmappe zu speichern.

Zum Anfang

Excel-Objekte in einem Word-Dokument einfügen

1. Starten Sie Word.
2. Klicken Sie im Menü Einfügen auf Objekt. Klicken Sie auf Microsoft Excel-Arbeitsblatt in das Feld Objekttyp, und klicken Sie dann auf OK.
   
   Ein Excel-Arbeitsblatt-Objekt wird in Ihr Dokument eingefügt.
3. Klicken Sie auf das Word-Dokument, Word zu aktivieren.
4. Klicken Sie im Menü Einfügen auf Objekt. Klicken Sie auf Microsoft Excel-Arbeitsblatt in das Feld Objekttyp, und klicken Sie dann auf OK.
   
   Ein Excel-Arbeitsblatt-Objekt wird in Ihr Dokument eingefügt.
5. Klicken Sie auf das Word-Dokument, Word zu aktivieren.
6. Klicken Sie auf Speichern unter Typ BeforeCloseTest.doc in das Feld Dateiname im Menü Datei und klicken Sie dann auf OK.

Zum Anfang

Dem Makro ausgeführt, demonstriert das Problem

1. Klicken Sie mit der rechten Maustaste auf das erste eingebettete Excel-Objekt, zeigen Sie auf Arbeitsblatt-Objekt im Kontextmenü auf, und klicken Sie dann auf Öffnen.
2. Aktivieren Sie Word.
3. Klicken Sie mit der rechten Maustaste auf das zweite eingebettete Excel-Objekt, zeigen Sie auf Arbeitsblatt-Objekt im Kontextmenü auf, und klicken Sie dann auf Öffnen.
4. Zeigen Sie im Menü Extras auf Makro, und klicken Sie auf Makros. Klicken Sie auf Personal.xls!Test_BeforeClose, und klicken Sie auf Ausführen.
   
   OLE-Verknüpfung ist zwischen Arbeitsmappe von Zelle A1 der "Tabelle in BeforeCloseTest.doc" und Zelle A2 der Arbeitsmappe "Arbeitsblatt in BeforeCloseTest.doc 2" erstellt.
5. Aktivieren Sie die Arbeitsmappe "Tabelle in BeforeCloseTest.doc".
6. Geben Sie test in Zelle A1 ein.
7. Zeigen Sie im Menü Extras auf Makro, und klicken Sie auf Makros. Klicken Sie auf Personal.xls!Test_BeforeClose, und klicken Sie auf Ausführen.

Zum Anfang