5,139
社区成员
发帖
与我相关
我的任务
分享Excel VBA中可不可以使用SHBrowseForFolder，如何使用？
Excel VBA中可不可以使用SHBrowseForFolder，如何使用？最好给点Sample.
谢谢！
谢谢！
...全文
请发表友善的回复…
发表回复
IDqq 2005-01-20
- 打赏
- 举报
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
szTitle As String
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long
Private Function ShowBrowseForFolder() As String
Dim lpIDList As Long
Dim sBuffer As String
Dim tBrowseInfo As BrowseInfo
With tBrowseInfo
.hWndOwner = FindWindow("XLMAIN", vbNullString)
.szTitle = "Select a folder:"
.ulFlags = &H3 'BIF_RETURNONLYFSDIRS(&H1) + BIF_DONTGOBELOWDOMAIN(&H2)
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If lpIDList > 0 Then
sBuffer = String(260, 0)
Call SHGetPathFromIDList(lpIDList, sBuffer)
ShowBrowseForFolder = Left(sBuffer, InStr(sBuffer, Chr(0)) - 1) & "\"
End If
End Function
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
szTitle As String
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long
Private Function ShowBrowseForFolder() As String
Dim lpIDList As Long
Dim sBuffer As String
Dim tBrowseInfo As BrowseInfo
With tBrowseInfo
.hWndOwner = FindWindow("XLMAIN", vbNullString)
.szTitle = "Select a folder:"
.ulFlags = &H3 'BIF_RETURNONLYFSDIRS(&H1) + BIF_DONTGOBELOWDOMAIN(&H2)
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If lpIDList > 0 Then
sBuffer = String(260, 0)
Call SHGetPathFromIDList(lpIDList, sBuffer)
ShowBrowseForFolder = Left(sBuffer, InStr(sBuffer, Chr(0)) - 1) & "\"
End If
End Function
liuxn_cn 2005-01-20
- 打赏
- 举报
谢谢
