Makro
22.05.2006 09:31:30
Basti
hab folgende Makro, um einen Pfad auszuwählen um diesen dann schließlich nach Exceldateien zu durchsuchen.
Das Problem ist, dass ich leider keine Netzlaufwerke angezeigt bekomme, sondern nur die Laufwerke, die auf meinem Rechner vorhanden sind. Hab ich was übersehen?
Danke schonmal!
Hier der meiner Ansicht nach relevante Teil:
Private Function GetAOrdner() As String
Dim xl As InfoT, IDList As Long, RVal As Long, FolderName As String
With xl
.hwnd = FindWindow("xlMain", vbNullString)
.Title = lstrcat("Bitte wählen Sie ein Verzeichnis", "")
.Flags = BIF_BROWSEINCLUDEFILES
End With
IDList = SHBrowseForFolder(xl)
If IDList <> 0 Then
FolderName = Space(256)
RVal = SHGetPathFromIDList(IDList, FolderName)
CoTaskMemFree (IDList)
FolderName = Trim$(FolderName)
FolderName = Left$(FolderName, Len(FolderName) - 1)
End If
GetAOrdner = FolderName
End Function