Makro zum Speichern von PDF funktioniert nicht
09.11.2017 15:39:08
PDF
ich hoffe es kann mir jemand schnell helfen :-).
Ich habe ein Makro, welches jedes Tabellenblatt einzeln in ein PDF umwandelt und speichert. Leider bekomme ich immer den Fehler "Das Dokument wurde nicht gespeichert". Wisst ihr woran das liegen könnte?
Das hier ist mein Makro:
Sub Abspeichern()
Dim wks As Worksheet
Dim strFilePDF As String
For Each wsh In ThisWorkbook.Worksheets
If Len(wsh.Name) = 3 Then
strFilePDF = wsh.Cells(1, 13)
With wsh.PageSetup
.Zoom = False
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
strFilePDF = "C:\Users\QT87003\Desktop\aaa\" & strFilePDF
wsh.ExportAsFixedFormat Type:=x1TypePDF, Filename:=strFilePDF, _
Quality:=x1QualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
End If
Next
End Sub
Vielen Dank und liebe Grüße