Mit VBA in "DieseArbeitsmappe" Code schreiben => Absturz von Excel

28/11/2007 - 16:02 von Fabian Kalchofner | Report spam
Guten Tag miteinander

Ich habe ein grösseres Problem (Office 2000). Leider habe ich bisher
keine Lösung in den verschiedensten Foren finden können.

Hier mein Teil-Code:

Dim wkb

Workbooks.Open Filename:=quelldatei
Set wkb = Workbooks(ActiveWorkbook.Name)

With wkb.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
.InsertLines 1, "Option Explicit"
.InsertLines 2, "Private Sub Workbook_Open()"
.InsertLines 3, " Call Oeffnen "
.InsertLines 4, "End Sub"
.InsertLines 5, "Private Sub Workbook_BeforeClose(Cancel As
Boolean)"
.InsertLines 6, " Call BeforeClose(Cancel) "
.InsertLines 7, "End Sub"
.InsertLines 8, "Private Sub Workbook_Deactivate()"
.InsertLines 9, " Call Deaktivieren "
.InsertLines 10, "End Sub"
.InsertLines 11, "Private Sub Workbook_Activate()"
.InsertLines 12, " Call Aktivieren"
.InsertLines 13, "End Sub"
End With

Folgendes: Ich öffne eine externe Datei und möchte in dieser
"DieseArbeitsmappe" mit dem angegebenen Text ergànzen.
Ich habe die Zeilen verschiedenst auskommentiert und herausgekommen
ist, dass es an den "Private Sub" zeilen gelegen hat, dass das ganze
Excel abgestürzt ist.

Kann mir jemand helfen?

Freundliche Grüsse
F. Kalchofner
 

Lesen sie die antworten

#1 Hajo_Zi
28/11/2007 - 18:33 | Warnen spam
Hallo Fabian,

den Zugriff auf das VBA Projekt hast Du erlaubt?
Ich habe folgenden Code ohne Probleme laufen lassen.
Option Explicit

Sub Fabian()
Dim wkb As Workbook
' Workbooks.Open Filename:=quelldatei ' die Variable ist nicht belegt
Set wkb = Workbooks(ActiveWorkbook.Name)
With wkb.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
.InsertLines 1, "Option Explicit"
.InsertLines 2, "Private Sub Workbook_Open()"
.InsertLines 3, " Call Oeffnen "
.InsertLines 4, "End Sub"
.InsertLines 5, "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
.InsertLines 6, " Call BeforeClose(Cancel) "
.InsertLines 7, "End Sub"
.InsertLines 8, "Private Sub Workbook_Deactivate()"
.InsertLines 9, " Call Deaktivieren "
.InsertLines 10, "End Sub"
.InsertLines 11, "Private Sub Workbook_Activate()"
.InsertLines 12, " Call Aktivieren"
.InsertLines 13, "End Sub"
End With
End Sub

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate und Excel Version2007
http://Hajo-Excel.de/



"Fabian Kalchofner" wrote:

Guten Tag miteinander

Ich habe ein grösseres Problem (Office 2000). Leider habe ich bisher
keine Lösung in den verschiedensten Foren finden können.

Hier mein Teil-Code:

Dim wkb

Workbooks.Open Filename:=quelldatei
Set wkb = Workbooks(ActiveWorkbook.Name)

With wkb.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
.InsertLines 1, "Option Explicit"
.InsertLines 2, "Private Sub Workbook_Open()"
.InsertLines 3, " Call Oeffnen "
.InsertLines 4, "End Sub"
.InsertLines 5, "Private Sub Workbook_BeforeClose(Cancel As
Boolean)"
.InsertLines 6, " Call BeforeClose(Cancel) "
.InsertLines 7, "End Sub"
.InsertLines 8, "Private Sub Workbook_Deactivate()"
.InsertLines 9, " Call Deaktivieren "
.InsertLines 10, "End Sub"
.InsertLines 11, "Private Sub Workbook_Activate()"
.InsertLines 12, " Call Aktivieren"
.InsertLines 13, "End Sub"
End With

Folgendes: Ich öffne eine externe Datei und möchte in dieser
"DieseArbeitsmappe" mit dem angegebenen Text ergànzen.
Ich habe die Zeilen verschiedenst auskommentiert und herausgekommen
ist, dass es an den "Private Sub" zeilen gelegen hat, dass das ganze
Excel abgestürzt ist.

Kann mir jemand helfen?

Freundliche Grüsse
F. Kalchofner

Ähnliche fragen