- Anwendung.FileDialog(msoFileDialogSaveAs).pdf-Datei als Filter

Ich bin auf der Suche, um die Benutzer wählen Sie den Pfad und den Dateinamen der PDF-Datei, die Sie exportieren.

Ich habe die unten, um anzuzeigen, die SaveAs-dialog:

Sub Test3()

    Set myFile = Application.FileDialog(msoFileDialogSaveAs)
    With myFile
    .Title = "Choose File"
    .AllowMultiSelect = False
    .ButtonName = "&Save As"
    .initialFilename = "Export"
    .Title = "Save PDF as"
    If .Show <> -1 Then
    MsgBox "You have cancelled"
    Exit Sub
    End If
    FileSelected = .SelectedItems(1)
    End With


    End Sub

Den Wert FileSelected später geführt wird in die pdf-export-code.

Ich bin auf der Suche um einen filter hinzuzufügen, um die oben FileSave-dialog, so dass es Zeigt nur PDF als Datei speichern, geben.

Derzeit den Wert von FileSelected endet als "Laufwerkbuchstabe:/Ordner/Name.xlsm" also, wenn ich Futter in die pdf-Datei exportieren speichert die pdf-Datei mit xlsm Erweiterung.

Habe ich versucht .Filter.Clear und dann .Filters.Add ohne viel Glück.

Jede Hilfe wird sehr geschätzt!

InformationsquelleAutor CaptainABC | 2014-01-24

  1. 12

    Nie Verstand ich es herausgefunden:

    Sub Test3()

On Error Resume Next
Dim FileSelected As String

FileSelected = Application.GetSaveAsFilename(initialFilename:="Export", _
                                         FileFilter:="PDF Files (*.pdf), *.pdf", _
                                         Title:="Save PDF as")
If Not FileSelected <> "False" Then
MsgBox "You have cancelled"
Exit Sub
End If

If FileSelected <> "False" Then
MsgBox FileSelected 'where FileSelected is what I will be
                    'later feeding into the PDF Export Code
Exit Sub
End If

End Sub

    InformationsquelleAutor CaptainABC

  2. 1

    Ich habe eine Schleife in der option-Liste zu führen über die Dateitypen, und wählen Sie die, die ich wollte. Es hat seine Fehler, aber funktioniert...

    For I = 1 To .Filters.Count
    fName = .Filters(I).Description
    If fName = "PDF" Then
        .FilterIndex = I
        Exit For
    End If
Next

    InformationsquelleAutor Trex

Schreibe einen Kommentar