Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speichern unter Dialogfenster

Speichern unter Dialogfenster
21.12.2021 23:00:02
Claus
Hallo zusammen,
ich würde gerne eine Datei als .pdf-Datei exportieren bzw. die Datei als PDF abspeichern. Hierzu soll per VBA das "Speichern unter" Dialogfenster geöffnet werden, damit man individuell den Titel sowie Speicherort angeben kann.
Leider weiß ich nur, wie man die Datei unter nem festen Pfad abspeichern kann, ohne das entsprechende Dialogfenster, kann mir hier jemand weiterhelfen?
Vorab vielen Dank!
Gruß
Claus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter Dialogfenster
22.12.2021 20:49:44
Alwin
Hallo Claus,
vielleicht ist das schon ausreichend:

Private Sub Pdf_SpeichernUnter()
Dim Dateiname As String, Speicherort As String
Dateiname = "Testfile.pdf"
Speicherort = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Speichern unter als PDF")
If Speicherort = "Falsch" Then
Exit Sub
End If
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Zusätzlich kannst du noch einen Pfad vordefinieren:

Private Sub Pdf_SpeichernUnter()
Dim Pfad As String, Dateiname As String, Speicherort As String
Pfad = "C:\Users\Irgendjemand\Desktop\"
Dateiname = "Test mit pdf format.pdf"
Speicherort = Application.GetSaveAsFilename(InitialFileName:=Pfad & Dateiname, _
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Speichern unter als PDF")
If Speicherort = "Falsch" Then
Exit Sub
End If
Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Gruß Uwe
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige