Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern unter Dialogfenster

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
Speichern-unter Dialog
steffen

Hallo,
wie kann ich es anstellen, dass im Speichern-Unter-Dialog
Application.Dialogs(xlDialogSaveAs).Show
kein Dateiname vorgegeben wird, also das Feld "Dateiname" leer ist?
Toll wäre noch, das Abbrechen des Dialogfensters zu unterbinden, so dass man gezwungen wird, einen Date...
06.10.2008 14:49:20
Thread-ID: 1014454
5 Beiträge
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Anzeige
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
speichern unter Dialog
Beffen

Hallo nochmal. Die Probleme hören nicht auf ^^
hab in der Forumsliste gesucht, aber nichts passendes gefunden.
arbeite derzeit mit
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="Zeiterfassung " & speichername & ".xls", FileFormat:=xlNormal
On Error GoTo 0
...
10.01.2011 10:33:17
Thread-ID: 1194781
4 Beiträge
"Datei öffnen"-Dialog mit Pfadvorgabe
Holger

Hallo Excelaner,
wie kann ich eine Application.GetOpenFilename("Dateityp (*.txt; *.log; *.dat),")
Anweisung auf einen fixen Pfad (z.B. "H:/Test/" ) ausführen?
Es soll also im "Datei öffnen"-Dialog der Pfad schon vorbelegt werden.
Für Hilfe wäre ich sehr dankbar!
Gruß Holge...
12.01.2011 14:51:59
Thread-ID: 1195263
6 Beiträge
Anzeige
Speichern unter Dialog ohne Funktion
Beffen

Huhu,
folgende Frage, liebe Experten:
Ich weiss nicht warum, aber der Code
speichername = tb_name.Value
MsgBox speichername
If Dir("Zeiterfassung " & speichername & ".xls") = "" Then
ActiveWorkbook.SaveAs Filename:="Zeiterfassung " & speichername & ".xls"...
19.01.2011 17:23:35
Thread-ID: 1196452
4 Beiträge
Speichern unter - ohne Dialog und ohne...
KLE

...Meldung, wenn Datei bereits vorhanden.
Hi,
...ich möchte gern eine Datei unter einem bestimmten Namen und Pfad speichern.
In dem Ordner wird es bereits eine Datei mit dem gleichen Namen geben, welche ohne Nachfrage/Hinweis überschrieben werden soll.
Wie kann ich das tun -...
25.10.2011 22:36:09
Thread-ID: 1235393
5 Beiträge
Aus Excel Word-Speichern-Unter-Dialog aufrufen
grossermanitu

Hallo,
ich erstelle aus Excel ein Word-Dokument das im Anschluss den Speichern-Unter-Dialog mit vorgegeben Pfad aufrufen soll. Das ganze funktioniert solange keine anderen Word-Dokumente offen sind.
Wie weiße ich nun zu, dass für das Word-Dokument das gerade erstellt wurde der Speicher...
25.06.2012 20:56:53
Thread-ID: 1268683
3 Beiträge
Anzeige
VBA Verzeichnis auswählen
PeTeR

Hallo VBA-Freaks,
ich suche nach einem Dialog zur Auswahl eines Verzeichnisses (nicht Datei!), aber mit Anzeige der darin enthaltenen Dateien.
Getopenfilname - muss ich eine Datei auswählen!
FileDialog(msoFileDialogFolderPicker) - sehe ich die Dateien im Verzeichnis nicht!
Viele...
04.12.2013 09:27:16
Thread-ID: 1341172
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige