wie kann ich aus einem makro heraus einen ordner öffnen
NUR einen ordner keine datei, die will ich mir dann erst aussuchen
danke einstweilen
Sub test_ordner
MsgBox GetOrdner("C:\") 'Die Vorauswahl kannst du auch weglassen
End Sub
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen