Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner öffnen

Forumthread: Ordner öffnen

Ordner öffnen
21.10.2005 13:56:22
Gerhard
Hallo
wie kann ich aus einem makro heraus einen ordner öffnen
NUR einen ordner keine datei, die will ich mir dann erst aussuchen
danke einstweilen
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner öffnen
21.10.2005 14:01:11
Dr.
Hi,
erst Das Laufwerk und den Pfad auswählen
ChDrive "C"
ChDir "C:\Test\"
und dann mit Application.GetOpenFilename den Öffnen-Dialog anwählen.
AW: Ordner öffnen
21.10.2005 14:08:06
Gerd
"NUR einen ordner keine datei"
mfg Gerd
AW: Ordner öffnen
21.10.2005 14:25:55
Dr.
Ist klar. Und denne?
Anzeige
AW: Ordner öffnen
21.10.2005 14:32:48
Gerhard
un dann will ich die gesamten dateien aufgelistet haben und eine zum öffnen aufmachen können
AW: Ordner öffnen
21.10.2005 14:03:17
Rolf
Hallo Gerhard,
versuch mal das
fG
Rolf

Sub test_ordner
MsgBox GetOrdner("C:\") 'Die Vorauswahl kannst du auch weglassen
End Sub

'Ordnerauswahl

Function GetOrdner(Optional ByVal def = "")
Dim objShell As Object, objfolder As Object
Set objShell = CreateObject("Shell.Application")
Set objfolder = objShell.BrowseForFolder(0, "Bitte einen Ordner wählen", 0, def)
If objfolder Is Nothing Then End
GetOrdner = objfolder.Self.Path
End Function

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige