[VBA-Schleife] Worksheets öffnen und speichern
26.03.2013 11:12:30
Nico
ich möchte mit verschiedenen Filtern mehrere Worksheets aus einer Datentabelle erstellen. Im Prinzip klappt auch alles.
Einziges Problem:
Beim automatischen erstellen & schließen der Excel-Dateien tauchen unregelmäßig Fehlermeldungen auf.
Einige erstelle Dateien in der Schleife werden normal geöffnet und geschlossen. Bei Anderen kommt (in meinen Augen ohne Regelmäßigkeit) ein Popup "Kopie speichern". Nachdem das Dialogfenster bestätigt oder abgebrochen wurde, läuft das Makro korrekt weiter. Nach Ende des Makros sind die "erstellten Dateien, bei denen das Kopie-Fenster kam" noch offen. Gespeichert wurde aber eine Datei unter diesem Namen, bei der jedoch die Inhalte der Datei nicht vorhanden sind - diese sind in der noch geöffneten Datei.
Ich hoffe ihr könnt den Fehler reproduzieren und mir helfen.
Hier kommt nochmal ein Test-Code, mit dem ich den Fehler meines (größeren Projektes) eingrenzen _ konnte:
Sub WorksheetsErstellenSchleife()
'Datei erstellen
Dim objExcel As Object
Dim i As Integer
Dim Pfad As String
Pfad = "C:\Users\admin\Desktop\Test\"
For i = 1 To 10
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = True
.Workbooks.Add
.ActiveWorkbook.SaveAs Pfad & "Test" & i & ".xls"
.Quit
End With
Workbooks.Open Filename:=Pfad & "Test" & i & ".xls"
'Platzhalter für eine längere Methode, welche die relevanten Informatinen für dieses _
Worksheet kopiert
Workbooks("Test" & i & ".xls").Worksheets("Tabelle1").Cells(1, 1).Value = "Test"
Workbooks("Test" & i & ".xls").Close (True)
Next
End Sub