Excelblatt als Pdf im selbigen Ordner speichern
26.08.2016 11:42:41
Sascha
ich habe eien Datei aus der ich zwei ausgewählte Excelblätter als eine PDF speichern möchte.
Das funktioniert soweit auch ganz gut.
Nun würde ich gerne die PDF immer in dem Ordner Speichern wo auch die Exceldatei liegt, aus der ich die PDF erstelle.
Geht sowas über Workbook.path ?
Das funktioniert bei mir leider nicht
Habt ihr eine Idee ?
Hier mein Code:
Sub PDF_Test()
Dim arrSheet As Variant
Dim strDatei As String
With ThisWorkbook
With .Sheets("Reporting")
strDatei = workbooks.path & "_" & .Range("C2").Text & _
" " & .Range("B4").Text & " " & .Range("B8").Text & _
".pdf"
End With
.Sheets(Array("Reporting", "Reporting2")).Copy
End With
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDatei, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
.Close savechanges:=False
End With
End Sub
Vielen Dank im Voraus erstmal.
Gruß
Sascha