Application.FileDialog-Eigenschaften

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Schön, dass Du noch online bist.
Sofern zuvor explizit kein Verzeichnis ausgewählt wurde (was zu Beginn des Excel Aufrufs nach meinem Wissen auch nicht möglich ist), wird das Standardverzeichnis des Btriebssystems gewählt. Das ist das Document Verzeichnis, im User Verzeichnis. Dein User-Name ist also Barbara. Das ist der Name, unter dem Dein Windows Benutzername angelegt wurde. Ganz spezifisch hast Du den ganzen Pfad ja angegeben: C:\Users\Barbara\Documents
Das ist also einfach nur das Ausgangs-Verzeichnis, unter dem das Betriebssystem eine Datei speichern möchte, die es bisher nicht kannte. Das hat mit der aktuell geöffnten (Excel) Datei erstmal gar nix zu tun. Der Ort, das Verzeichnis, wo diese liegt, spielt einfach keine Rolle. Windows geht immer zunächst mal vom Standard-User-Verzeichnis aus. Die Frage wäre ja sonst: Wo soll die Datei, die bisher nie gespeichert wurde, denn nun gespeichert werden?
Insofern ist 'das aktuele Verzeichnis' wirklich genau dieser.
In dem Moment, in dem Du dem Makro sagst Chdir ThisWorkbook.Path wechselst Du in das Verzeichnis, in dem die Excel-Datei liegt, in der sich auch Dein Makro befindet.
Das Verzeichnis zu wechseln sollte nach der vorhergehenden Erklärung eigentlich klar sein. Da eigentlich immer eine Einschränkung darstellt ... Frag ruhig nach :-)
Vile Grüße,
Zwenn

Gut, verstehe. Habe mein Vokabular erweitert mit "Aktuelles Verzeichnis". DANKE
Auch "Application.FileDialog.InitialFileName" ändert den aktuellen Pfad.
Nun habe ich aber ein Problem mit Application.GetOpenFilename.
In meinem Beispiel soll die Zelle mit dem Namen "WW_Datei" den gewählten Pfad und Dateinamen bekommen. Falls der Dialog abgebrochen wurde, soll diese Zelle so bleiben, wie sie ist.
Das Makro soll auf einem deutschen und auf einem englischen Excel laufen.
Hier mein Beispiel mit Application.FileDialog:

Private Sub Dialog()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "PDF", "*.pdf"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show = False Then Exit Sub
Range("WW_Datei") = .SelectedItems(1)
End With
End Sub

Das geht.
Aber mit Folgendem habe ich ein Problem:

Private Sub Filename()
Dim a As String
ChDir ThisWorkbook.Path
a = Application.GetOpenFilename("PDF (*.pdf), *.pdf")
'was soll da stehen
Range("WW_Datei") = a
End Sub

Wie soll ich die Zelle "WW_Datei" beschreiben? Bei Abbruch kommt "Falsch" raus, was aber im Englischen wahrscheinlich nicht so ist. Brauche ich da jetzt für jede mögliche Sprache eine individuelle Abfrage?
Und: Was ist nun besser (oder schlechter) an GetOpenFilename?
Noch was (nur, falls es von Bedeutung ist): Du hast von der Methode Application.FileDialog() geschrieben. Im beigefügten Link steht aber Application.FileDialog-Eigenschaft (Excel).
Danke für Deine fachkundige Hilfe.
LG, Barbara

Private Sub Filename() Dim a As Variant ChDir ThisWorkbook.Path a = Application.GetOpenFilename("PDF (*.pdf), *.pdf") 'was soll da stehen If VBA.TypeName(a) = "Boolean" Then Exit Sub Range("WW_Datei") = a End Sub Private Sub Filename() Dim a As Variant ChDir ThisWorkbook.Path a = Application.GetOpenFilename("PDF (*.pdf), *.pdf") 'was soll da stehen If a = False Then Exit Sub Range("WW_Datei") = a End Sub

Beliebteste Forumthreads (12 Monate)

Application.FileDialog-Eigenschaften

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

19 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Application.FileDialog-Eigenschaften

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

19 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread