PDF mit Datum und Tabellennamen generieren
24.06.2014 20:13:01
Alexander
immer wieder finde ich sehr gute Anregungen bei euch im Forum. Hierfür erstmal ein dickes Dankeschön.
Nun zu meinem Problem:
Ich möchte über einen Commandbutton das active tabellenblatt als pdf erzeugen, dabei soll der Name des PDF sich aus dem aktuellen Datum und dem Tabellennamen zusammensetzen.
Er öffnet mir auch schon das Eingabefeld, in dem ich den Ordner auswählen kann, in welchem gespeichert werden soll, jedoch speichert er mir es nicht.
Nun sitze ich wie mit einem Brett vor dem Kopf und finde keinen Ausweg.
Danke im Vorraus
Gruss Alexander
Sub Test()
Dim strFolder As String
With Application.FileDialog(msoFileDialogFolderPicker)
Call .Show
If .SelectedItems.Count > 0 Then
strFolder = .SelectedItems(1) & "\"
Else
strFolder = ""
End If
End With
Dim strNamePDF As String
If strFolder "" Then
strNamePDF = strFolder & Format$(Date, "yyyy-mm-dd") & "_" & ActiveSheet.Name & ".pdf"
End If
End Sub