Speicheroptimierung im Batch (PDF-Export)
16.05.2019 12:16:03
Marco
ich habe ein Problem bei einer Stapelverarbeitung mit dem Speicher.
Das Makro arbeitet alle Excel-Dateien in einem Verzeichnis ab und speichert diese als PDF ab.
Allerdings bekomme ich nach ca. 50 Dateien die Meldung dass Excel nicht geügend Speicher zur Verfügung steht.
Gibt es eine Möglichkeit dieses zu Verhindern? Bekannte Dinge wie Zwischenablage leeren führen hier zu keinem Ergebnis.
Oft kommt es vor dass über 100 Dateien umgewandelt werden müssen.
Anbei das Makro, dass ich zur Grundlage verwende.
Viele Grüße
Marco
Option Explicit
Sub BatchExport_Test()
Dim myPath As String, WorkFile As String
Dim xlApp As Excel.Application, xlwb As Excel.Workbook
myPath = "C:\PDF_ohne_Anlagen\XLS2PDF\"
WorkFile = Dir(myPath & "*.xls")
Set xlApp = CreateObject("Excel.Application")
Do While WorkFile ""
'MsgBox "found " & WorkFile
Set xlwb = xlApp.Workbooks.Open(Filename:=myPath & WorkFile)
xlwb.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False, to:=2, Filename:=myPath & WorkFile
xlwb.Close SaveChanges:=False
WorkFile = Dir
Loop
xlApp.Quit
End Sub