VBA中，可以利用下面的语句来调用Excel内置对话框 VBA中，可以利用下面的语句来调用Excel内置对话框：
Application.Dialogs(代码).Show 其中代码与对话框名称对应表如下：
删除单元格
工作表背景
附加工具栏
数据有效性
单变量求解
编辑成组工作表
插入超链接
选项-123的帮助
保护共享工作簿
打印机设置
单元格格式-图案
发布为网页
单元格格式-字体
设置打印标题
工作区选项
导入文本文件
重命名工作表
新建-Web_查询
Web-选项-常规
保护工作表
自动套用格式
保护工作簿
Web-选项-浏览器
单元格格式-数字
Web-选项-文件
移动或复制工作表
Web-选项-图片
移动或复制工作表
选项-自定义序列
Web-选项-编码
模拟运算表
移动或复制工作表
Web-选项-字体
单元格格式-数字
重命名工作表
单元格格式-对齐
保存工作区
工作簿属性
基本文件搜索
单元格格式-边框
方案管理器
单元格格式-字体
选项-拼写检查
单元格格式-保护
共享工作簿
数据透视表和数据透视图向导
Web-选项-浏览器
选项-重新计算
视图管理器
选择性粘贴
45 单元格格式-边框 142 设置 305 方案管理器 476 单元格格式-字体 755 选项-拼写检查
46 单元格格式-保护 145 另存为 307 添加方案 481 共享工作簿 771 符号
47 列宽 150 字体 312 数据透视表和数据透视图向导 485 自动更正 773 Web-选项-浏览器
52 清除 154 插入批注 318 选项-重新计算 493 视图管理器 796 创建列表
53 选择性粘贴 161 选项-颜色 319 选项-编辑 494 添加视图 817 信息检索
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：10300次
排名：千里之外
(1)(1)(1)(1)(1)(5)EXCEL如何弹出打印设置界面
[问题点数：40分]
EXCEL如何弹出打印设置界面
[问题点数：40分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。[经典]使用VBA操作文件【1】:使用Excel对话框【1】
&&&&【提要】综合文库信息 : 《[经典]使用VBA操作文件【1】:使用Excel对话框【1】》由66test综合文库频道友情收集整理，来源于网络，仅供参考：
&&&&本专题主要讲述使用VBA操作文件和文件夹的相关知识，尽量不涉及对文件中具体内容的操作。如何操作文件中具体内容的知识，将在后续内容外部数据操作中作详细介绍。&&&&Excel VBA提供了一些方法和对象，能够调用Excel内置对话框来进行文件操作。&&&&GetOpenFilename方法&&&&使用GetOpenFilename方法能够获得有效的文件名，包括该文件的完整路径。此时，将显示标准的“打开”对话框，但并不真正打开指定的文件，而是返回包含用户所选文件的文件名和路径的字符串。其语法如下：&&&&object.GetOpenFilename (FileFilter,FilterIndex,Title,ButtonText,MultiSelect)&&&&所有参数均可选。其中，参数FileFilter代表指定文件筛选条件的字符串，即确定出现在在“打开”对话框中“文件类型”下拉列表中的内容，由文件筛选字符串和通配符表示的文件筛选规则说明组成，其中每一部分和每一对都用逗号隔开。如果省略，则该参数的的默认值为：&&&&"All Files (*.*),*.*"&&&&该字符串的第一部分（All Files (*.*)）是显示在“文件类型”下拉列表中的文本，第二部分（*.*）实际上确定要显示哪些文件。&&&&下面的指令将一个字符串赋值给名为Filt的变量，然后可以用作GetOpenFilename方法的参数FileFilter的值。&&&&Filt = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc),*.asc," & _
"All Files (*.*),*.*"&&&&此时，“打开”对话框允许用户从5种文件类型中选择。&&&&提示：使用换行符将长语句分成多行，有助于代码阅读。&&&&参数FilterIndex代表默认的文件筛选条件的索引号，用于指定在“文件类型”框中显示的文件类型。&&&&参数Title代表对话框的标题，如果省略该参数，则标题为“打开”。&&&&参数ButtonText只用于Macintosh机。&&&&参数MultiSelect用于指定是否能够选择多个文件名，如果为True则能够选中多个文件名，所有这些文件将返回到一个数组中。默认值为False。&&&&Sub GetImportFileName()
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
'创建文件筛选列表
Filt = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc),*.asc," & _
"All Files (*.*),*.*"
'默认显示*.*
FilterIndex = 5
'设置对话框标题
Title = "Select a File to Import"
'获取文件名
FileName = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)
'如果取消对话框则退出
If FileName = False Then
MsgBox "No file was selected."
'显示文件的完整路径和名称
MsgBox "You Selected " & FileNameEnd Sub&&&&下面的代码与上述代码类似，区别在于用户可以按Ctrl键或者Shift键选择多个文件。&&&&Sub GetImportFileName2()
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
Dim i As Integer
Dim Msg As String
'创建文件筛选列表
Filt = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc),*.asc," & _
"All Files (*.*),*.*"
'默认显示*.*
FilterIndex = 5
'设置对话框标题
Title = "Select a File to Import"
'获取文件名
FileName = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title, _
特别声明：Excel怎么调用VBA_Excel基础
Excel怎么调用VBA
学习啦【Excel基础】 编辑：嘉铭
　　打开，默认状态下，你是找不到VBA的，因为这个东西太不常用了，现在我们需要打开它，该如何调用呢?下面就跟学习啦小编一起看看吧。
　　Excel调用VBA的步骤
　　1、默认情况下，打开Excel 2010的菜单栏是这样的。
　　2、找到VBA之前，你需要把&开发工具&菜单调出来，选择&文件&，找到&选项&。
　　3、在Excel选项对话框，切换到&自定义功能区&。
　　4、勾选&开发工具&，然后点下面的确定。
　　5、好了，如图，VBA在这里了。
Excel调用VBA的相关文章：
本文已影响 人
[Excel怎么调用VBA]相关的文章
看过本文的人还看了
1170人看了觉得好
784人看了觉得好
764人看了觉得好
【Excel基础】图文推荐
Copyright & 2006 -
All Rights Reserved
学习啦 版权所有}