Programmatisch hinzufügen Arbeitsmappe Ereignis und speichern Sie es

Question

Ich habe eine Liste von Excel-Dateien in einer Tabelle. Ich möchte sie durchschleifen und jedem ein Arbeitsblatt-Ereignis hinzufügen. Speichern Sie es, schließen Sie es und gehen Sie zum nächsten über. Das Problem ist, dass wenn ich die Arbeitsmappe erneut öffne (manuell), der Code weg ist.

Innerhalb der für jede Schleife:

Set xl = Workbooks.Open(filepath) 
addCode xl 'subroutine to add code 
xl.Save 
xl.Close SaveChanges:=False 

Die AddCode Unterprogramm ist:

Sub addCode(book As Excel.Workbook) 
    acsh = book.ActiveSheet.CodeName 
    startline = book.VBProject.VBComponents(acsh).CodeModule.CreateEventProc("SelectionChange", "Worksheet") + 1 
    book.VBProject.VBComponents(acsh).CodeModule.InsertLines startline, codetoadd 
End Sub 

Wenn ich kommentieren Sie xl.Close der Code in der Arbeitsmappe und arbeitet. Ich kann die Datei manuell speichern und schließen und der Code bleibt erhalten. Ich habe einen Unterbrechungspunkt zwischen xl.save und xl.close hinzugefügt und eine Kopie der Datei gemacht. Nachdem der Code fertig ist, hat keiner die Änderungen. Ich habe versucht, xl.saveas und xl.close SaveChanges: = True. Alle haben identische Ergebnisse.

Ich benutze Excel 2013, ich habe Excel gesagt, um den Zugriff auf das VBA-Objektmodell zu vertrauen. Ich habe versucht, XLS-Dateien und XLSM-Dateien zu verwenden. Natürlich funktioniert XLSX nicht.

Answer 1

Hier ist ein Beispielcode, die für mich auf Excel 2010. Die Änderungen, die ich gemacht zu Ihrem Beispiel-Code arbeitet, sind:

• Verwendung ein XLSM für das Arbeitsmappe Ziel - ich weiß, du dir schon gesagt, Tat dies.

• Referenzieren Sie ein bestimmtes Arbeitsblatt in der AddCode-Sub, anstatt den Blattnamen von ActiveSheet abzurufen.

• die Arbeitsmappe schmutzig Status pro Ralphs Kommentar

  gesetzt

• Stellen Sie den Savechanges Flag, wenn die Arbeitsmappe Ziel Schließen

Other than that, ist meine Version zu Ihnen ziemlich ähnlich. Ich denke, dass es die Linie ist, die den Trick macht, d. H. Die schmutzige Flagge. Ich habe versucht, die SaveAs Methode auf dem VBProject selbst zu verwenden, der denkt, dass es dasselbe sein würde wie das Drücken der Speichern-Schaltfläche, wenn Sie im VBA-Editor selbst sind. Dies ergibt jedoch nur wenig hilfreiche Fehler.

Hier ist der Beispielcode:

Option Explicit 

Sub Test() 

    Dim wbTarget As Workbook 
    Dim strCode As String 

    ' get target workbook 
    Set wbTarget = Workbooks.Open("\\server\path\Book3.xlsm") 

    ' test setting code to worksheet change 
    strCode = "Debug.Print ""Sheet selection changed to: "" & Target.Address" 
    AddWorksheetChangeCode wbTarget, "Sheet1", strCode 

    ' test saving the target workbook 
    With wbTarget 
     ' set book to dirty to force the save 
     .Saved = False 
     .Save 
     .Close 
    End With 

End Sub 

Sub AddWorksheetChangeCode(ByRef wb As Workbook, strWorksheetName As String, strCode As String) 

    Dim intInsertLine As Integer 

    ' create stub for event and get line to insert 
    intInsertLine = wb.VBProject.VBComponents(strWorksheetName).CodeModule.CreateEventProc("SelectionChange", "Worksheet") + 1 

    ' add event logic 
    wb.VBProject.VBComponents(strWorksheetName).CodeModule.InsertLines intInsertLine, strCode 

End Sub