etapp.ActiveWorkbook.SaveAs filename:=etapp.GetSaveAsFilename(TabFileName), 这里如何添加多种文件类型?

解决方案 »

  1.   

    expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)
    expression      必需。该表达式返回一个 Application 对象。InitialFilename      Variant 类型,可选。指定建议的文件名。如果省略本参数,Microsoft Excel 将活动工作簿的名称作为建议的文件名。FileFilter      Variant 类型,可选。一个指定文件筛选条件的字符串。本字符串由一个文件筛选字符串与 MS-DOS 通配符表达的文件筛选规则说明组成,中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如,下列字符串指定两个文件筛选串,文本文件和加载宏:“文本文件 (*.txt)、*.txt、Add-In 文件、(*.xla)、*.xla”。要为单个文件筛选类型使用多个 MS-DOS 通配符表达式,需用分号将通配符表达式分开。例如:“Visual Basic 文件 (*.bas; *.txt)、*.bas; *.txt”。如果省略本参数,则默认参数值为“所有文件 (*.*),*.*”。FilterIndex      Variant 类型,可选。指定默认文件筛选条件的索引号,取值范围为 1 到 FileFilter 指定的筛选条件数目之间。如果省略本参数,或者取值大于可用筛选数目,则采用第一个文件筛选条件。Title      Variant 类型,可选。指定对话框标题。如果省略本参数,则使用默认标题。ButtonText      Variant 类型,可选。仅用于 Macintosh。