Excel 对话框

最新推荐文章于 2023-12-19 14:52:46 发布

若海隐湖

最新推荐文章于 2023-12-19 14:52:46 发布

阅读量680

点赞数

分类专栏： VBA 文章标签：对话框

本文链接：https://blog.csdn.net/weixin_42578747/article/details/90176366

版权

本文介绍了Excel中使用FileDialog对象来实现文件打开与保存对话框的功能，详细讲解了GetOpenFilename和GetSaveFilename方法的用法，并讨论了如何设置对话框的默认路径。

摘要由CSDN通过智能技术生成

FileDialog对象

'一 FileDialog 对象简介
 '提供文件对话框，功能与 Microsoft Office 应用程序中标准的“打开”和“保存”对话框类似。
 '利用这些对话框，解决方案的用户可以简便地指定解决方案中应该使用的文件和文件夹。

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

'二 属性和方法
  
   '1 AllowMultiSelect 如果允许用户从文件对话框中选择多个文件，则返回 True。Boolean 类型，可读写
   '2 SelectedItems 选取的多个文件集合
   '3 InitialFileName 属性:设置初始路径和文件名称
   '4 InitialView 属性 :可以设置初始文件的显示样多
   '5 show 可以判断用户是否点击了取消按钮,如果点击取消会返回0,否则返回-1
   
    '选择并返回一组文件名和路径
      Sub f1()
        Dim f
        Dim dig As Object
        Set dig = Application.FileDialog(msoFileDialogOpen)
        With Application.FileDialog(msoFileDialogOpen)
           .AllowMultiSelect = True
           .Filters.Add "Excel文件", &