Speichern als PDF unter "Auswahlbox"

Bild

Betrifft: Speichern als PDF unter "Auswahlbox"
von: Martin
Geschrieben am: 10.06.2015 11:15:04

Hallo zusammen,
ich möchte gerne einen bestimmten Bereich eines Tabellenblatts als PDF speichern. Dau habe ich bereits ein Makro, allerdings wird dort ein fester Speicherpfad angegeben. Ich möchte diese Datei jetzt auch an Externe geben und die sollen sich selbst per Speichern Unter Auswahlbox aussuchen können, wo die Datei hingespeichert wird.
Wie muss ich den entsprechenden Teil des Makros anpassen:
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\MARTIN\Desktop\" & Range("j8").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Ich habe das mit GetSaveAsFilename probiert, aber kriege es nicht zum laufen.
Vielen Dank für eure Hilfe.
Martin

Bild

Betrifft: AW: Speichern als PDF unter "Auswahlbox"
von: fcs
Geschrieben am: 10.06.2015 14:59:20
Hallo Martin,

'Datei-Auswahl-Dialog für Name der PDF-Datei anzeigen
  varDateiPDF = Application.GetSaveAsFilename( _
      InitialFileName:=ActiveSheet.Range("j8").Text, _
      FileFilter:="PDF-Datei (*.pdf),*.pdf", _
      Title:="Bitte Dateiname für PDF-Datei eingeben/auswählen")
  If varDateiPDF = False Then
    Exit Sub 'oder sonst irgendetwas
  Else
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=varDateiPDF, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
  End If
Gruß
Franz

Bild

Betrifft: AW: Speichern als PDF unter "Auswahlbox"
von: Martin
Geschrieben am: 10.06.2015 15:37:42
Hallo fcs, hallo Klexy,
super - vielen Dank! Ich habe jetzt nur die Lösung von Klexy ausprobiert, weil die meinem Wunsch genau entsprochen hat. Jetzt sieht es so aus, und läuft wunderbar:

Sub Quote_Drucken()
    Selection.ExportAsFixedFormat Type:=xlTypePDF
    Dim myDateiname As String, mySpeicherort As String
    myDateiname = Range("J8").Value & ".pdf"
    mySpeicherort = Application.GetSaveAsFilename(InitialFileName:=myDateiname, _
         FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Save as PDF")
    If mySpeicherort = "Falsch" Then
        Exit Sub
    End If
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=mySpeicherort, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
    ActiveSheet.Range("$B$17:$Y$125").AutoFilter Field:=1
    Range("B6").Select
End Sub


Bild

Betrifft: AW: Speichern als PDF unter "Auswahlbox"
von: Klexy
Geschrieben am: 10.06.2015 15:10:45
So vielleicht?

Sub PDF_speichern()
Dim myDateiname As String, mySpeicherort As String
    myDateiname = Range("J8").Value & ".pdf"
    mySpeicherort = Application.GetSaveAsFilename(InitialFileName:=myDateiname, _
         FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Save as PDF")
    If mySpeicherort = "Falsch" Then
        Exit Sub
    End If
    
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=mySpeicherort, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
        
End Sub
Bestehende gleichnamige Dateien werden ohne Warnung überschrieben. Willst du das so?

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Speichern als PDF unter "Auswahlbox""