以下是小编为大家整理的VBA 浏览文件夹对话框调用的几种方法，本文共3篇，希望对您有所帮助。本文原稿由网友“如你”提供。
篇1：VBA 浏览文件夹对话框调用的几种方法
作者： 字体：[增加 减小] 类型：
VBA 浏览文件夹对话框调用实现代码，大家可以根据需要选择。
1、使用API方法
代码如下:
‘【类型声明】
Private Type BROWSEINFO
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
‘【API声明】
Private Declare Function SHGetPathFromIDList Lib “shell32.dll” _
Alias “SHGetPathFromIDListA” (ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib “shell32.dll” _
Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function lstrcat Lib “kernel32” _
Alias “lstrcatA” (ByVal lpString1 As String, _
ByVal lpString2 As String) As Long
Private Declare Function OleInitialize Lib “ole32.dll” _
(lp As Any) As Long
Private Declare Sub OleUninitialize Lib “ole32”
Private Const BIF_USENEWUI = &H40
Private Const MAX_PATH = 260
‘【自定义函数】
Public Function GetFolder_API(sTitle As String, Optional vFlags As Variant) As String
Dim lpIDList As Long
Dim sBuffer As String
Dim BInfo As BROWSEINFO
If IsMissing(vFlags) Then vFlags = BIF_USENEWUI
Call OleInitialize(ByVal 0&)
With BInfo
.lpszTitle = lstrcat(sTitle, “”)
.ulFlags = vFlags
End With
lpIDList = SHBrowseForFolder(BInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
If sBuffer “” Then GetFolder_API = sBuffer
End If
Call OleUninitialize
End Function
‘【使用方法】
Sub Test()
MsgBox GetFolder_API(“选择文件夹”)
End Sub
2、使用Shell.Application方法
代码如下:
Sub GetFloder_Shell()
Set bjShell = CreateObject(“Shell.Application”)
Set bjFolder = objShell.BrowseForFolder(0, “选择文件夹”, 0, 0)
If Not objFolder Is Nothing Then
MsgBox objFolder.self.path
End If
Set bjFolder = Nothing
Set bjShell = Nothing
End Sub
3、使用FileDialog方法
代码如下:
Sub GetFloder_FileDialog()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then MsgBox fd.SelectedItems(1)
Set fd = Nothing
End Sub
以上方法在WINXP+OFFICE中测试通过
篇2：Excel中调用VBA选择目标文件夹EXCEL.VBA
进行文件操作时，经常要用 VBA 选择目标文件夹，现提供实现代码：
1.FileDialog 属性
Sub Sample1()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
MsgBox .SelectedItems(1)
End If
End With
End Sub
2.shell 方法
Sub Sample2()
Dim Shell, myPath
Set Shell = CreateObject(“Shell.Application”)
Set myPath = Shell.BrowseForFolder(&O0, “请选择文件夹”, &H1 + &H10, “G:”)
If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path
Set Shell = Nothing
Set myPath = Nothing
End Sub
关 键 字：VBA
篇3：Win 7常用文件夹快速调用的设置方法
我们需要经常打开一些存放常用数据的文件夹，由于担心病毒、系统重装等原因，这些文件夹基本都没有放在系统所在的分区，当需要使用时，用双击盘符“层层深入”的办法来打开明显很麻烦。可能每个人都有自己的快速打开它的方法，如创建桌面快捷方式、添加到快速启动栏或者借助于一些第三方软件来实现等等，但在Windows 7中你就无需那么麻烦了，你只需要拖拖鼠标就可以实现了。
比如经常需要打开G盘的某个文稿处理文件夹，首先在资源管理器中进入到该文件夹目录，然后选中它用鼠标将其拖放到Windows 7的任务栏上后释放，你就将其固定到库程序组中了，右击任务栏上的“库”然后在弹出菜单中你就会发现该文件夹了，
也就是说以后你要打开该文件夹直接右击“库”图标后就可以了，是不是很方便?
将文件夹从列表里解锁也很简单
如果你以后不需要经常打开该文件夹了，只需要在右击“库”后找到该文件夹，然后再次右击它选择“从此列表解锁(U)”就可以将其取消固定了。当然你也可以将自己经常需要打开的文件或者程序拖放到任务栏上释放锁定到任务栏上，以便于快速地打开。
