Inhalt
- PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat
- Erstellung Dateipfad & Direktbereich
- Dateipfad und Name aus Zelle
- Öffnen der Datei nach der Erstellung
- Erster Test mit festen Werten für Pfad und Name
- Anpassung des Ausgabeformats: Quer- und Hochformat
- Ersetzen des Pfads und des Dateinamen durch Zellbezug
- Testlauf mit Pfad und Name aus Zelle
- Definition des exakten Exportbereichs & Test
- Pfad und Name durch direkte Benutzereingabe definieren
- Testlauf mit Benutzereingabe
- Hinzufügen einer Abbruchvariante während dem Export
Code (PDF in Ordner der Excel-Datei abspeichern)
Sub PDF_Erstellen1() 'Tabellenblatt Format anpassen Tabelle1.PageSetup.Orientation = xlLandscape 'PDF erstellen Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Test.pdf", OpenAfterPublish:=True 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Sub
Code (Pfad und Dateiname aus Excel auslesen)
Sub PDF_Erstellen2() 'PDF erstellen Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Tabelle1.Range("B2").Value & "\" & _ Tabelle1.Range("B1").Value & ".pdf", OpenAfterPublish:=True 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Sub
Code (Benutzer Pfad und Dateiname auswählen lassen)
Sub PDF_Erstellen3() 'Benutzer Name und Pfad auswählen lassen Dim FullPath As Variant FullPath = Application.GetSaveAsFilename(, FileFilter:="PDF-Dateien (*.pdf),*.pdf") 'Prüfen, ob etwas ausgewählt wurde If FullPath <> False Then 'Tabellenblatt Format anpassen Tabelle1.PageSetup.Orientation = xlLandscape 'PDF erstellen Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\YouTube.pdf", OpenAfterPublish:=True End If 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Sub