Speicherpfad pdf in Zelle vorgeben
28.07.2017 00:27:43
Jörg
ich habe im Forum ein funktionierendes Modul für mich gefunden. Es erzeugt ein pdf mit dem Namen aus der Zelle "A1". Der Speicherpfad ist der der Arbeitsmappe.
Hat jemand eine Idee, wie ich den Speicherpfad (soll zu Ordner mit Kunden führen) aus Zelle "A2" verwenden kann?
Die Steigerung wäre:
Im Ordner mit Kunden habe ich Ordner mit Kundennummern. Diese heißen bspw. rob17001_Kundenname. Der Kundenname ist natürlich unterschiedlich lang. Wenn ich nur die Kundennummer in Zelle "A3" vorgeben und der Speicherpfad bis in den Kundenordner führen würde, wäre ich im Excel-Himmel!
Danke von Jörg
Sub saveAsPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & _
ActiveSheet.Range("A1").Value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub