Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1200to1204
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
Ordner auswählen
A.B.
Hallo Forum.
Mit Application.getopenfilename kann ich eine Datei auswählen usw.
Gibt es eine Möglichkeit einen Ordner auszuwählen ?
z.B Application.getopenpath
Ideen ?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ordner auswählen
17.02.2011 20:40:44
Rudi
Hallo,
ab XL2000:
Sub ttt()
Dim sPfad As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Test"
If .Show = -1 Then
sPfad = .SelectedItems(1)
MsgBox sPfad
End If
End With
End Sub

Gruß
Rudi
AW: Ordner auswählen
17.02.2011 20:52:31
A.B.
Super,
genau diesen Befehl hatte ich gesucht.
Gibt es noch die Möglichkeit einen Pfad als default zu definieren ?
AW: Ordner auswählen
17.02.2011 22:43:56
Josef

Hallo A.B.,
Sub ttt()
  Dim sPfad As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Test"
    .InitialFileName = "E:\temp\" 'Startverzeichnis mit \ am Ende
    If .Show = -1 Then
      sPfad = .SelectedItems(1)
      MsgBox sPfad
    End If
  End With
End Sub


Gruß Sepp

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige