Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ExportAsFixedFormat ohne Speichern

ExportAsFixedFormat ohne Speichern
02.05.2019 11:44:03
Sven
Hallo zusammen,
ich nutze diesen Befehl zur PDF-Erstellung: 
.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=bolShow
Klappt. Aber: Ich kann entweder den Parameter Filename füllen und damit einen Speicherpdaf angeben oder ich lasse es und es wird standardmäßig im aktuellen Ordner gespeichert.
Ich möchte die PDF-Datei aber nur anzeigen und dem Anwender überlassen, ob und wo er die ablegt. Bisher mülle ich den Standardordner hal zu.
Hat jemand eine Idee?
Danke und Grüße
Sven

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ExportAsFixedFormat ohne Speichern
02.05.2019 12:46:31
Torsten
Hallo Sven,
das koenntest du z.B. mit dem Application.GetSaveAsFilename loesen: 

Dim FileSelected as String
FileSelected = Application.GetSaveAsFilename(InitialFileName:="", filefilter:="PDF files (*.pdf) _
, *.pdf, Title:="Speichern als PDF")
If Not FileSelected  "False" Then
MsgBox "Vorgang abgebrochen"
Exit Sub
End If
If FileSelected  "False" Then
ThisWorkbook.ExportAsFixedFormat xlTypePDF, fileName:=""
End If
End Sub
Gruss Torsten
AW: ExportAsFixedFormat ohne Speichern
02.05.2019 12:57:07
Torsten
Sorry kleiner Fehler:
anstatt 

fileName:=""
mach bitte: 


fileName:=FileSelected

Anzeige
AW: ExportAsFixedFormat ohne Speichern
02.05.2019 14:29:54
Sven
Danke
AW: ExportAsFixedFormat ohne Speichern
02.05.2019 13:01:50
UweD
Hallo
als workarround: Erst speichern, mit anschließender Anzeige der pdf
und dann die Frage, ob die Datei bestehen bleiben soll; sonst direkt wieder löschen
Sub tt()
    Dim Pfad As String, Datei As String, Behalten
    Dim Dlg As FileDialog
    
    Pfad = "X:\Temp\Test\" 'Startpfad 
    Datei = "Mappe1.pdf"
    
    
    Set Dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen 
        Dlg.InitialFileName = Pfad
    If Dlg.Show = True Then
        Pfad = Dlg.SelectedItems(1) & "\"
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Pfad & Datei, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
        
        Behalten = MsgBox("Datei behalten", vbYesNo + vbQuestion)
        
        If Behalten = vbNo Then
            Kill Pfad & Datei
        End If
    End If
End Sub
LG UweD
Anzeige

17 Forumthreads zu ähnlichen Themen

ExportAsFixedFormat Problem
Matthias

Hallo.
Möchte die Möglichkeit nutzen ein Tabellenblatt als PDF zu senden.
Habe den Makrorekorder bemüht. Wunderbar, habe die Tabelle als PDF Anhang in meinem Lotus.
Jetzt starte ich das Makro und es wird eine xls-Datei als Anhang übergeben?
Meine Umgebung:
Office 2007 SP2
17.05.2010 13:20:40
Thread-ID: 1157386
4 Beiträge
Anzeige
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
Anzeige
VBA - Excel/Word: Probleme mit SaveAs Methode
Marc

Hallo zusammen,
ich kämpfe nun schon seit einiger Zeit mit folgendem Problem:
Ich habe ein Excel-Mappe, aus der ich per VBA eine Word-Vorlage öffne und mit Daten fülle. Dieses Word-Dokument soll nun unter einem neuen Namen abgespeichert werden. Dafür nutze ich die SaveAs Methode - die ü...
16.12.2014 13:44:24
Thread-ID: 1398351
5 Beiträge
VBA SaveAs Fehler - Warum?!
Bernd

Servus zusammen,
ich habe ein Problem mit der "SaveAs"-Methode und komme einfach nicht auf die Ursache des Fehlers.
Mein Code zum Speichern sieht folgendermaßen aus: ' Kopie unter neuem Dateinamen speichern strPfad = ThisWorkbook.Path If Right(strPfad, 1) "\" Then strPfad = strPfad &a...
04.12.2018 14:27:27
Thread-ID: 1661182
5 Beiträge
VBAProject Schutz bei SaveCopyAs
Volker Croll

Hallo zusammen,eine schreibgeschuetzte Arbeitsmappen-Vorlage enthaelt mehrere Makros. Das ganze ist ueber die VBAProject-Eigenschaften mit einem Kennwort fuer die Anzeige gesperrt.Waehrend der Laufzeit wird mit ThisWorkbook.SaveCopyAs FileName:= ... eine Kopie mit neuem Dateinamen erstellt.Habe...
19.11.2002 19:25:14
Thread-ID: 183266
3 Beiträge
VBA ActiveWorkbook.SaveAs Problem
Matthias der 2. (hier im Forum)
Hallo zusammen,

habe mir ein kleines Makro geschrieben, welches eine XLS-Datei umformt und auf einen passwortgeschützten FTP-Server ablegen soll.

Folgende Codezeile:

ActiveWorkbook.SaveAs Filename:="ftp://www.ftp-server.de/verzeichnis/datei.csv", FileFormat:=xlCSVMSDOS, Cr...
30.12.2003 10:54:29
Thread-ID: 356931
3 Beiträge
VBA: SaveAs Feld in bestimmtem Ordner öffnen
Simon

Guten Tag,
kann mir jemand sagen, wie ich mir das SaveAs-Feld schon in einem bestimmten Pfad / Ordner öffnen lassen kann um nicht immer manuell aus "eigene dateien" dahin zu manövrieren ?!
Danke für eure Antworten !
Simon
28.09.2004 14:36:37
Thread-ID: 492077
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
3
4
4
2
2
6
1
2
2
3
12
3
4