Zugriffsverletzung beim Anlegen neuer Arbeitmappe
24.05.2005 10:25:04
Mike
Ich erstelle in einer Schleife per VBA mehrere Tabellenblätter mit
ODBC-Abfragedaten, Pivot-Tabellen, formatierter Übersicht, Hilfstabellen usw.
Sind alle Tabellenblätter fertig, lege ich eine neue Datei an (Workbook.Add)
und kopiere die meisten Tabellenblätter in die neue Datei (1).
Anschließend kopiere ich ein Workbook_Open-Makro in "DieseArbeitsmappe" (2)
der neuen Datei. Schließlich ändere ich noch den Bezug der Pivot-Tabellen und
blende einige Tabellenblätter aus, bevor ich die neue Arbeitsmappe unter neuem
Namen Abspeichere und schließe (3).
Jetzt arbeitet EXCEL wieder in der ursprünglichen Arbeitmappe. Dort lösche ich dann alle Tablllen (bis auf die erste) und die Schleife beginnt von neuem.
Alles funktioniert ca. 150 mal einwandfrei.
Dann aber stürzt EXCEL entweder
- beim Kopieren der Sheets in die neue Mappe ab (schon beim 1. Sheet, siehe (1)),
- oder beim Kopieren der Importdatei in "DieseArbeitsmappe" (siehe (2)).
Mache ich da einen strategischen Fehler?
Ist das ein EXCEL-Bug?
Mit den Infos von "Dr. Watson" kann ich nicht viel anfangen, da der Bezug zu meinem Code fehlt.
Wer kennt jemanden, der sich mir so was auskennt?
______________________________________________________
Code-Auszug:
Public
Sub prc0029_Kopiere_Bericht_in_neue_Datei()
(1)
For i = 1 To wkbQuelle.Worksheets.Count
If wkbQuelle.Worksheets(i).Name <> strTab_1 Then
wkbQuelle.Worksheets(i).Copy After:=ActiveWorkbook.Worksheets(Worksheets.Count)
End If
Next i
(2)
Set Code_Modul = ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
With Code_Modul
.AddFromFile Importdatei
End With
Set Code_Modul = Nothing
(3)
ActiveWorkbook.SaveAs FileName:=strPfad & strReportFile & strReportFileExt
ActiveWorkbook.Close
End Sub
Gruß Mike