Pfadangabe aus dem Explorer nach Excel bringen

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


Excel-Version: 97
nach unten

Betrifft: Pfadangabe aus dem Explorer nach Excel bringen
von: Martin
Geschrieben am: 06.05.2002 - 19:47:01

Hallo,
Ist es möglich aus Excel heraus in den Windows Explorer zu gehen, dort ein Verzeichnis anzuklicken, und nur durch das anklicken des Verzeichnises automatisch den Pfad nach Excel zu importieren z.B. in ein Makro das die Pfadangabe als Parameter weiterverwendet?

Danke.


nach oben   nach unten

Re: Pfadangabe aus dem Explorer nach Excel bringen
von: guenter
Geschrieben am: 06.05.2002 - 21:44:09

hallo
vieleicht so

Option Explicit

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(Optional Msg As String) As String
    Dim bInfo As BROWSEINFO
    Dim Path As String
    Dim As Long, x As Long, pos As Integer
    bInfo.pidlRoot = 0&
    If IsMissing(Msg) Then
        bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
    Else
        bInfo.lpszTitle = Msg
    End If
    bInfo.ulFlags = &H1
    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 FileNamePath()
    Dim strAdr As String
    strAdr = GetDirectory
    MsgBox strAdr
    Range("a1") = strAdr
End Sub


alles in ein Modul kopieren
mfg guenter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Pfadangabe aus dem Explorer nach Excel bringen"