六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

GetSaveAsFilename保存文件例子

Admin | 2013-3-25 10:29:40 | ReadNums | 7418 | 标签 六合开奖结果现场直播 | 打印本页
     

  GetSaveAsFilename是通过Application来调用的,而Application又是通过VBA环境来使用的,因此,本例子给你介绍的是在Excel环境下,调用另存为对话框的示例代码。

  它的格式如下:

  Dim Filename As String
  Filename = Application.GetSaveAsFilename(FileFilter:="文件名称, *.格式")

  一、代码如下

  Dim fileSaveName 

  fileSaveName = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") 

  If fileSaveName <> False Then

  MsgBox "Save as " & fileSaveName 

  End If

  二、指定对话框的标题

  Dim fname As String
 
  Workbooks.Open filename:=2099成绩.xls
  ActiveSheet.Range(A1).Value = 保存
 
  fname = Application.GetSaveAsFilename( _
        InitialFileName:=成绩保存.xls, _
        Title:=这里是标题文字)
 
  If fname &lt;&gt; False Then
   ActiveWorkbook.SaveAs filename:=fname
  End If

  知识拓展:

  Application.GetSaveAsFilename 方法:简单来说就是显示另存为对话框,方便用户输入文件名进行保存

  语法:

  expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

  expression       必需。该表达式返回Application类型对象
  InitialFilename  Variant类型,可选。指定初始的文件名
  FileFilter           Variant类型,可选。一个指定文件筛选条件的字符串,格式如:"文本文件, *.txt"
  FilterIndex        Variant 类型,可选。指定默认文件筛选条件的索引号,取值范围为 1 到 FileFilter 指定的筛选条件数目之间
  Title                 Variant 类型,可选。指定对话框标题
  ButtonText       Variant 类型,可选。仅用于 Macintosh

  使用的时候请注意如下几项:

  1.如果省略InitialFilename参数,Microsoft Excel 将活动工作簿的名称作为初始文件名
  2.如果省略FileFilter参数,则默认参数值为“所有文件 (*.*),*.*”
  3.如果省略FilterIndex参数,或者取值大于可用筛选数目,则采用第一个文件筛选条件
  4.如果省略Title参数,则使用默认标题。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日