ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 12710|回复: 4

[分享] 通过打开对话框来选择文件夹或文件

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-6-23 21:14 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 dogingate 于 2018-6-23 21:16 编辑

FileDialog 对象

提供文件对话框,其功能与 Microsoft Office 应用程序中标准的“打开”“保存”对话框类似。
说明

使用 FileDialog 属性返回一个 FileDialog 对象。FileDialog 属性位于每个单独 Office 应用程序的 Application 对象中。该属性使用一个参数 DialogType 确定该属性返回的 FileDialog 对象类型。FileDialog 对象有四种类型:
  • “打开”对话框 - 允许用户选择一个或多个可以在宿主应用程序中使用 Execute 方法打开的文件。
  • “另存为”对话框 - 允许用户选择一个文件,然后可以使用 Execute 方法将当前文件另存为该文件。
  • “文件选取器”对话框 - 允许用户选择一个或多个文件。用户选择的文件路径将捕获到 FileDialogSelectedItems 集合中。
  • “文件夹选取器”对话框 - 允许用户选择一个路径。用户选择的路径将捕获到 FileDialogSelectedItems 集合中。
每个宿主应用程序只能创建一个 FileDialog 对象实例。因此,即使创建多个 FileDialog 对象,FileDialog 对象的很多属性也会保持不变。所以,在显示对话框之前请确保已经针对用途适当地设置了所有属性。

示例

要使用 FileDialog 对象显示一个文件对话框,必须使用 Show 方法。显示了对话框后,在用户关闭对话框之前将不执行任何代码。下面的示例创建并显示一个“File Picker”对话框,并在消息框中显示每个选定的文件。

Sub Main()

    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    'Declare a variable to contain the path
    'of each selected item. Even though the path is aString,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant

    'Use a With...End With block to reference the FileDialog object.
    With fd

        'Use the Show method to display the File Picker dialog box and return the user's action.
        'The user pressed the button.
        If .Show = -1 Then

            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems

                'vrtSelectedItem is aString that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example displays the path in a message box.
                MsgBox "The path is: " & vrtSelectedItem

            Next vrtSelectedItem
        'The user pressed Cancel.
        Else
        End If
    End With

    'Set the object variable to Nothing.
    Set fd = Nothing

End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-13 15:38 | 显示全部楼层
这段代码在excel和word里都可以用

打开对话框.zip

16.12 KB, 下载次数: 726

TA的精华主题

TA的得分主题

发表于 2019-1-30 12:02 | 显示全部楼层
  你好,我想把这个运用在我的一个宏里面,我的宏第一步就是调用别的工作薄,再提取数据到该宏的工作薄里面,之前我都是用指定格式的方法(/*c_*.xlsx)去打开文件,可是有时候不方便,我想用你的这个,运行宏-弹出选择框-打开文件-再提取.
  我想知道怎么改成真正打开这个文件的编程代码?(我试了你这个代码,他选择后会弹出该文件地址,我不知道怎么添加语句,实际打开选择的这个文件)
  请指导,谢谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-2 09:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
yuanrifeng 发表于 2019-1-30 12:02
你好,我想把这个运用在我的一个宏里面,我的宏第一步就是调用别的工作薄,再提取数据到该宏的工作薄里面,之 ...

这里面的selecteditem数组里就是你选择的文件的路径
如果是工作簿的话使用workbooks.open这个语句打开文件

TA的精华主题

TA的得分主题

发表于 2022-5-12 12:44 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 20:47 , Processed in 0.034860 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表