zoukankan      html  css  js  c++  java
  • Excel VBA 的GetOpenFilename 方法

     一、GetOpenFilename 方法简介

    GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名。

    二、基本用法

    语法

    表达式.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

    表达式 : 一个代表 Application 对象的变量。

    说明

    Application.GetOpenFilename("文件类型筛选规则(就是说明)","优先显示第几个类型的文件","标题","是否允许选择多个文件名")

    参数解析

      1. FileFilter:一个指定文件筛选条件的字符串。

      2. FilterIndex:指定默认文件筛选条件的索引号,取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略该参数,或者该参数的值大于可用筛选条件数,则使用第一个文件筛选条件。

      3. Title:指定对话框的标题。如果省略该参数,则标题为“打开”。

      4. ButtonText:仅限 Macintosh。

      5. MultiSelect:如果为 True,则允许选择多个文件名。如果为 False,则只允许选择一个文件名。默认值为 False

    注意:以上参数都是可选参数,数据类型均为Variant。

    三、使用示例

    打开时有会弹出这样的窗口:

     打开Excel文件VBA代码:

    设置打开某类文件,参照下面规则:“文件类型说明文字,*文件类型”:

    Sub OpenExcel()
        Dim strFileName As String
        strFileName = Application.GetOpenFilename("Excel 工作簿(*.xlsx),*.xlsx,Excel 启用宏的工作簿(*.xlsm),*.xlsm,Excel 97-2003 工作簿 (*.xls),*.xls",1)
        MsgBox strFileName
    End Sub
  • 相关阅读:
    HDU 4681 STRING dp+暴力。
    HDU 4669 Mutiples on a circle 不知道该归为哪一类。
    poj 3411 Paid Roads很水的DFS
    poj 1724 ROADS 很水的dfs
    STL学习笔记(转,还是比较全的)
    4666 Hyperspace stl
    poj3308 Paratroopers 最大流 最小点权覆盖
    poj 3114 Countries in War
    2013 Multi-University Training Contest 4 部分解题报告
    2013 Multi-University Training Contest 3 部分解题报告
  • 原文地址:https://www.cnblogs.com/zhengxianfa/p/15602602.html
Copyright © 2011-2022 走看看