[求助]通过“打开文件”对话框获得文件完整路径问题（还有一点小问题，请版主再帮忙

duke008

我想弹出一个“打开文件”的对话框（带筛选功能，比如只显示*.xls），选定一个文件并按确定后并不打开该文件，而是将该文件的完整路径赋值给一个字符串变量。请问如何做到呢？

[此贴子已经被作者于2006-2-7 13:47:21编辑过]

守柔

参考：

http://club.excelhome.net/viewthread.php?tid=148690

duke008

谢谢版主，问题已解决。

mousecat03

谢谢版主。真牛！

duke008

Public xn As String

Sub sd0206()
Set mydialog = Application.FileDialog(msoFileDialogFilePicker)
With mydialog
.Filters.Clear
.Filters.Add "所有EXCEL文件", "*.xls", 1
.AllowMultiSelect = False
If .Show = -1 Then
xn = .SelectedItems(1)
Application.Run macroname:="SD_EXCEL2WORD"
End If
End With

End Sub

现在还有一个小问题，我每次运行该程序时，弹出的“打开文件”对话框的位置总是从“C:\Documents and Settings\Bluewater”（Bluewater是我在windows下的用户名）开始，能不能把它的默认位置改为“F:\Document\盛大”，不然每次找文件都很麻烦。

duke008

再问个问题： 如果不是要取得文件的完整路径，而是取得文件夹的路径，那怎么实现呢？

[此贴子已经被作者于2006-2-7 16:13:36编辑过]

守柔

以下是引用[I]duke008[/I]在2006-2-7 14:51:39的发言：[BR]再问个问题： 如果不是要取得文件的完整路径，而是取得文件夹的路径，那怎么实现呢？

Option Explicit Public xn As String Sub sd0206() Dim myDialog As FileDialog, xn As Variant Set myDialog = Application.FileDialog(msoFileDialogFilePicker) With myDialog .Filters.Clear .Filters.Add "所有EXCEL文件", "*.xls", 1 .AllowMultiSelect = False .InitialFileName = "F:\Document\盛大" If .Show = -1 Then MsgBox "当前文件夹路径为" & .InitialFileName xn = .SelectedItems(1) Application.Run macroname:="SD_EXCEL2WORD" End If End With End Sub

duke008

谢谢版主！

不过对于“取得文件夹的路径”的问题，我上次没表达清楚，非常抱歉，我的意思是这样的：

在“打开文件夹”对话框中，选中某文件夹，点击“确定”按钮，即可将该文件夹的路径赋值给一个字符串变量。

我在帮助文件中找到如下内容：

使用 FileDialog 对象

使用 FileDialog 属性返回一个 FileDialog 对象。FileDialog 属性位于每个单独 Office 应用程序的 Application 对象中。该属性使用一个参数 DialogType 确定该属性返回的 FileDialog 对象类型。FileDialog 对象有四种类型：

• “打开”对话框：让用户选择一个或多个可以在主机应用程序中使用 Execute 方法打开的文件。
• “另存为”对话框：让用户选择一个可以使用 Execute 方法保存当前文件的文件。
• “文件选取器”对话框：让用户选择一个或多个文件。用户选择的文件路径将捕获到 FileDialogSelectedItems 集合。
• “文件夹选取器”对话框：让用户选择一个路径。用户选择的文件路径将捕获到 FileDialogSelectedItems 集合。

我想可能是要用到“文件夹选取器”，可是帮助文件中没有给出相关示例，所以只好又麻烦版主了。

duke008

看来不用麻烦版主了，忽然想到了解决方法，原来只要把Application.FileDialog(msoFileDialogFilePicker)
改为Application.FileDialog(msoFileDialogFolderPicker)就行了。

ztj1967

我怎么一运行就显示：编辑错误，用户定义类型未定义