|
Hallo liebe Community,
ich hoffe ihr könnt mir bei meinem Code Konstrukt weiterhelfen :)
Ich habe einen VBA Code erstellt, wo die Exceltabelle als PDF gespeichert wird und wie gewünscht auch benanntt wird.
Dies funktioniert so weit auch super!
Private Sub CommandButton1_Click()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Range("B15").Value & "_" & _
ActiveSheet.Range("I10").Value & "_" & _
ActiveSheet.Range("B19").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:=True ' wenn nicht angezeigt werden soll False
End If
End Sub
Allerdings wird im Prinzip die Funktion „Speichern unter“ ausgeführt, wo ich das Zielspeicherverzeichnis noch selber wählen soll.
Wie müsste der Code lauten, wenn ich die PDFs automatisch in ein fix definiertes Zielverzeichnis ablegen möchte? ( N:\Documents and Settings\d2659)
Würde mich sehr über Hilfe freuen!
Danke!
lg. Reini
|