关于application.dialogs的一个问题

chj3751 · 发表于 2013-5-24 23:42

我想实现在程序中弹出一个文件夹对话框，然后手动选择需要打开的文献，这样程序就具有了较大的灵活性，dlgAnswer = Application.Dialogs(xlDialogOpen).Show倒是可以实现这个，如下图捕获.PNG

。但是这个程序只允许我打开EXCEL等应用程序文件，我现在想指定文件夹目录，比如我选择C盘下的Program Files文件夹，返回的是一窜字符"C:\Program Files"，请问这个可以通过application.dialogs对象实现吗？或者有其他更好的办法？谢啦！

wpxxsyzx · 发表于 2013-5-25 10:37

这样？application.FileDialog( msoFileDialogFolderPicker).Show

alzeng · 发表于 2013-5-25 10:45

MsgBox CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path

复制代码

chj3751 · 发表于 2013-5-25 11:27

alzeng 发表于 2013-5-25 10:45

谢啦，这正是我需要的

chj3751 · 发表于 2013-5-25 11:29

wpxxsyzx 发表于 2013-5-25 10:37
这样？application.FileDialog( msoFileDialogFolderPicker).Show

这可以实现我想要的，但该方法返回的是-1，不知道可部可以返回选择文件夹的路径呢？

wpxxsyzx · 发表于 2013-5-25 15:41

chj3751 发表于 2013-5-25 11:29
这可以实现我想要的，但该方法返回的是-1，不知道可部可以返回选择文件夹的路径呢？

Public Sub a()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
MsgBox .SelectedItems(1)
End If
End With
End Sub
有更详细的设置，参看帮助，如果多选需要遍历SelectedItems

		自动登录	找回密码
密码			免费注册

[求助] 关于application.dialogs的一个问题

最新热点 /1