Excel VBA > Pfad wahl > Name + Pfad

[Jan H. (janiiix3)]

Hallo Community,

gibt es eine Möglichkeit das wenn ich den "SaveAsFile" Dialog öffne er 
mir meinen übergebenen Pfad anzeigt (also er quasie schon im SaveAsFile 
Dialog dorthin navigiert..) und das der Name wie die Datei später heißen 
soll auch schon mit in dem Dialog steht?!.

Public Sub CreatePDF(Name As String, Path As String, Ws As Worksheet)

Dim strfile As String
Dim myFile As Variant
Dim sTimestamp As String

sTimestamp = Str(DateTime.Now)

On Error GoTo ErrorHandler

Ws.PageSetup.Zoom = False
Ws.PageSetup.FitToPagesTall = 1
Ws.PageSetup.FitToPagesWide = 1

strfile = Dir(Path) + "\" + Name

'ChDrive Left(Path, 1)
'ChDir Path

myFile = Application.GetSaveAsFilename _
(InitialFileName:=strfile, _
FileFilter:="PDF Dateien (*.pdf), *.pdf", _
Title:="Bitte unter Wartungsprotokolle ablegen!")

If myFile = False Then
    MsgBox "Druckvorgang abgebrochen.", vbInformation, "PDF - Modul"
    Exit Sub
End If

Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True, From:=1, To:=2


ErrorHandler:

MsgBox "Fehler im PDF Modul", vbCritical, "PDF - Modul"

End Sub

Aktuell komme ich da nicht weiter. Eins von beiden scheint nur zu gehen.
Entweder navigiert er zu dem Pfad und zeigt mir dann aber meinen 
übergebenen Namen nicht an oder eben er zeigt mir den Namen an aber 
navigiert nicht zu dem Pfad.

[Wühlhase (Gast)]

Doch, das geht. Sonst würde ich beim Navigieren manchmal irre werden.
Moment...

[Wühlhase (Gast)]

With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .InitialFileName = "C:\your\path"
    .Title = "Bitte Dateien auswählen..."
    If .Show = -1 Then
        For Each element In .SelectedItems
            ...
        Next
     Else
         Exit Sub
     End If
End With


Mit dem Dateispeichern und Namen vorgeben sollte das genauso 
funktionieren.

[Timo E. (cumbaya)]

strfile = Dir(Path) + "\" + Name
Entferne in dieser Zeile die Dateiendung, also z.B. so:
strfile = Dir(Path) + "\" + left(Name,Len(name)-4)

Dann sollte es klappen.

[Jan H. (janiiix3)]

Ich danke euch. Werde es später mal probieren!.

[Jan H. (janiiix3)]

Timo E. schrieb:
> strfile = Dir(Path) + "" + Name
> Entferne in dieser Zeile die Dateiendung, also z.B. so:
> strfile = Dir(Path) + "" + left(Name,Len(name)-4)
> Dann sollte es klappen.

Leider nach wie vor das selbe Problem. Die Dateiendung wird auch 
überhaupt nicht mit übergeben.