Dateien speichern
09.03.2018 15:59:57
Gunter
Ich öffne nacheinander alle Dateien in einem Verzeichnis und möchte sie dann mit dem jeweiligen Namen als pdf speichern. Bis jetzt habe ich folgendes:
Sub Dateiliste_Öffnen()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim StrTypneu As String
Dim Dateiname As String
Dim Dateinameneu As String
strVerzeichnis = "C:\Meine\Temp\Mappen\"
strVerzeichnisneu = "C:\Meine\Temp\Test\"
StrTyp = "*.xls"
StrTypneu = "*.pdf"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateinameneu = Dir(strVerzeichnisneu & StrTypneu)
Do While Dateiname ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
Workbooks.Open Filename:=strVerzeichnis & Dateiname
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strVerzeichnisneu & _
Dateinameneu, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub
Leider bekomme ich die Meldung eines Syntaxfehlers beim Export "ActiveWorkbook.ExportAsFixedFormat"
Wenn ich die Dateien einzeln (mit Makrorecorder aufgezeichnet) exportiere funktioniert es.
Dann sieht der Code allerdings so aus
Workbooks.Open Filename:="C:\Meine\Temp\Mappen\R6-K30000.xls"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Meine\Temp\Mappen\R6-K30000.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ActiveWindow.Close
Gruss
Gunter