VBA 浏览文件夹对话框调用的几种方法

最新推荐文章于 2024-01-18 20:54:38 发布

jh035

最新推荐文章于 2024-01-18 20:54:38 发布

阅读量1.1k

点赞数

文章标签： java 开发语言

本文链接：https://blog.csdn.net/jh035/article/details/128048533

版权

本文介绍了在VBA中调用文件夹选择对话框的三种方法：1) 使用API函数，包括类型声明、API声明、自定义函数及使用示例；2) 利用Shell.Application对象，创建并使用该对象的BrowseForFolder方法；3) 使用FileDialog，创建FileDialog对象并设置为文件夹选择模式，显示对话框并获取选定文件夹。

摘要由CSDN通过智能技术生成

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 OleUninit