Herbers Excel-Forum - das Archiv

Suche VBA Lösung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Suche VBA Lösung
von: Josef

Geschrieben am: 25.04.2005 21:15:44
Guten Abend!

Ich habe folgenden VBA Text:
Private Sub CommandButton1_Click()
Dim strPfad As String
strPfad = GetDirectory("Pfad auswählen:")
If strPfad = "" Then MsgBox "Keine Auswahl!"
End Sub

Wie bekomme ich jetzt bitte die Pfadauswahl in die TextBox1 ?

Danke

Josef
Bild

Betrifft: AW: Suche VBA Lösung
von: K.Rola
Geschrieben am: 25.04.2005 21:19:10
Hallo,
wo ist der Code von GetDirectory?
Gruß K.Rola
Bild

Betrifft: AW: Suche VBA Lösung
von: Josef

Geschrieben am: 25.04.2005 21:46:50
Hallo!
Folgender Code ist von Schmittis Homepage:
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare
Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long
Declare 
Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Function GetDirectory(Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
With bInfo
.pidlRoot = 0&
.lpszTitle = Msg
.ulFlags = &H1
End With
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function

Sub Aufruf()
s = GetDirectory("Bitte wählen Sie einen Ordner")
MsgBox s
End Sub

Josef
Bild

Betrifft: AW: Suche VBA Lösung
von: MichaV
Geschrieben am: 25.04.2005 21:21:03
Hi,
aus "If strPfad = "" Then MsgBox "Keine Auswahl!"" schließe ich mal, daß strPfad den Pfad enthält.
Dann kriegst Du mit textbox1.text=strPfad den Pfad in die Textboxt.
Gruß! Micha
PS: Rückmeldung wäre nett.
Bild

Betrifft: AW: Suche VBA Lösung
von: Josef
Geschrieben am: 25.04.2005 21:57:07
Hallo Micha!

Danke für Deine Hilfe. Funktioniert.
Schönen Abend noch.

Josef
Bild

Betrifft: AW: Suche VBA Lösung
von: Mischa Richter
Geschrieben am: 25.04.2005 22:05:47
hi,
oder hilft dir die funktion:
strPfad = inputbox("Pfad auswählen:", "")
mischa
Bild

Betrifft: AW: Suche VBA Lösung
von: Josef
Geschrieben am: 26.04.2005 12:10:39
Danke Mischa für Deine Hilfe

Josef
 Bild