VBA

http://blog.sina.com.cn/u/2026575375

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

VBA - FileDialog 对象获取文件名及路径

(2012-02-03 10:44:40)

标签：

filedialog

文件名

路径

分类： PC小窍门

提供文件对话框，其功能与 Microsoft Office 应用程序中标准的<ui>“打开”</ui>和<ui>“保存”</ui>对话框类似。

方法

	名称	说明
	Execute	在调用 Show 方法后立即执行用户的操作。
	Show	显示文件对话框并返回一个 Long 类型的值，指示用户按下的是“操作”按钮 (-1) 还是“取消”按钮 (0)。在调用 Show 方法时，在用户关闭文件对话框之前不会执行其他代码。在“打开”和“另存为”对话框中，在使用了 Show 方法后会立即使用 Execute 方法执行用户操作。

属性

	名称	说明
	AllowMultiSelect	如果允许用户从文件对话框中选择多个文件，则为 True。可读/写。
	Application	获取一个 Application 对象，代表 FileDialog 对象的容器应用程序（可以使用 Automation 对象的此属性返回该对象的容器应用程序）。只读。
	ButtonName	设置或获取代表文件对话框中动作按钮上所显示文本的 String 类型的值。可读/写。
	Creator	获取一个 32 位整数，指示创建 FileDialog 对象时所使用的应用程序。只读。
	DialogType	返回一个 MsoFileDialogType 常量，代表 FileDialog 对象被设置为要显示的文件对话框的类型。只读。
	FilterIndex	获取或设置一个 Long 类型的值，指示文件对话框的默认文件筛选器。默认筛选器决定首次打开文件对话框时显示的文件类型。可读/写。
	Filters	获取一个 FileDialogFilters 集合。只读。
	InitialFileName	设置或返回一个 String 类型的值，代表文件对话框中初始显示的路径或文件名。可读/写。
	InitialView	获取或设置一个 MsoFileDialogView 常量，代表文件对话框中文件和文件夹的初始表示形式。可读/写。
	Item	获取与对象关联的文本。只读。
	Parent	获取 FileDialog 对象的 Parent 对象。只读。
	SelectedItems	获取一个 FileDialogSelectedItems 集合。此集合包含用户在使用 FileDialog 对象的 Show 方法显示的文件对话框中所选的文件的路径列表。只读。
	Title	设置或获取使用 FileDialog 对象显示的文件对话框的标题。可读/写。

例:

    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                MsgBox "The path is: " & vrtSelectedItem
                MsgBox CreateObject("Scripting.FileSystemObject").GetFileName(vrtSelectedItem)'取文件名
                MsgBox CreateObject("Scripting.FileSystemObject").GetParentFolderName(vrtSelectedItem) & "\"'取路径
            Next vrtSelectedItem
        Else
        End If
    End With
    Set fd = Nothing

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：监测点统计（点）

后一篇：KML语法规则

新浪BLOG意见反馈留言板　欢迎批评指正