用vba选择文件夹

hiyou

一般的脚本管理员习惯是不做引用，直接CREATEOBJECT（“SHELL.APPLICATION”）就可以了，当然相关常数要就要自已写

这个文件夹对象与GETFILEOPEN函数有一点不同，它最后返回的是FOLDER，所以还是有区别的，有时确实在编程中需要选择FOLODER时这个对象就派上用专场所了

就我的记忆，似乎是在IE4以后就有了（MS拿IE跟NS大战，以IE合成到桌面，最后在浏览器上打倒NS为止，杀人一万，自损三千，自已也被告了），MS把IE的功能合到桌面上以后，就有了这个SHELL的自动化对象。

不过，SHELL其它的用处，还真是不太好说，除了打开文件夹FOLDER，他可以处理一堆文件对象，但是这个功能跟SCRIPTING的FSO相冲了（就是FILESYSTEMOBJECT），它还可以用来关机，但是又关不彻底（退到用户选择的那个界面），总是觉得有点鸡肋的说......

丁壬易龙

辛苦了

leitiger

谢谢分享，收藏了慢慢学习。

ahq2001

有这么麻烦吗？我给大家搞个简单的代码：

Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

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

Sub Proabnormal()

Dim bi As BROWSEINFO
Dim pidl&, rtn&, path$, pos%
pidl& = SHBrowseForFolder(bi)
path$ = Space$(512)
rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
If rtn& Then
pos% = InStr(path$, Chr$(0))
mypath = Left(path$, pos - 1)
Else
Exit Sub
End If

On Error Resume Next

With Application.FileSearch '设置应用程序的查找
.NewSearch '新查找
.LookIn = mypath '将新查找的路径设置为文件对话框的路径（myPath）
.SearchSubFolders = True '查找子目录
.FileType = msoFileTypeAllFiles '查找所有文件类型
.FileName = "*.xls" '查找后缀为xls的文件
.Execute '执行文件查找

For k = 1 To .FoundFiles.Count '把找到的文件打开
Workbooks.Open .FoundFiles(k), , True '打开第k个找到的文件

next k
end sub
后面的代码自己看着补充吧。

frank_deng

不错的代码，收起来了
不过里面少了一个END WITH，呵呵。
还有个问题就是，该怎么指定文件夹名？

[ 本帖最后由 frank_deng 于 2009-3-10 17:42 编辑 ]

我要注册

看不懂,可能有天我会懂,

ggsmart

呵呵。。。。。不错。。。收藏了！

Fae

收藏，学习，谢谢楼主

yq558866

谢谢分享！

zz_linux

感谢分享，学习中。