Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1928to1932
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
Excel als PDF speichern
12.05.2023 08:46:50
Jan

Hallo Zusammen,

Ich habe eine Excel-Datei, die im PDF-Format gespeichert werden muss. Normalerweise ist das kein Problem, aber ich habe ein paar besondere Wünsche.

1. Der Dateipfad ist immer derselbe. Zum Beispiel: S:\Hier Speichern
2. Der Name der Datei ist fest. Zum Beispiel: NamePDF
3. Der Name muss mit einem Zeitstempel versehen sein.
4. Alle Registerkarten müssen in der gleichen PDF gespeichert werden

Kann mir jemand weiterhelfen?

Besten Dank.

Jan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel als PDF speichern
12.05.2023 09:10:18
UweD
Hallo

so?
Sub Jan()
    Dim Pfad As String
    Dim NamePDF As String
    
    Pfad = "E:\Excel\Temp\" 'mit \ am Ende
    NamePDF = "Muster" & Format(Now, "YYYYMMDD_hh_mm_ss")
    
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NamePDF, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
LG UweD


AW: Excel als PDF speichern
12.05.2023 09:14:25
UweD
Sorry, der Pfad fehlt noch

Sub Jan()
    Dim Pfad As String
    Dim NamePDF As String
    
    Pfad = "E:\Excel\Temp\" 'mit \ am Ende
    NamePDF = "Muster " & Format(Now, "YYYYMMDD_hh_mm_ss")
    
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & NamePDF, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
LG UweD


Anzeige
AW: Excel als PDF speichern
12.05.2023 09:32:53
Jan
Hallo Uwe,

Ja genau so.

Vielen Dank.

Gruss,

Jan.

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige