Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 7282|回复: 5

[分享] 【烟花原创】VBA零基础之第164篇 各种对话框之文件件另存为对话框

[复制链接]
发表于 2014-4-23 08:45 | 显示全部楼层 |阅读模式
1. Application.FileDialog(msoFileDialogSaveAs)
语法:Application.FileDialog(msoFileDialogSaveAs)
通过调用属性返回的文件对话框的Show方法显示对话框,接着再调用Execute方法完成按指定文件名另存。
注意:
1.每个宿主应用程序只能创建一个
FileDialog 对象实例。因此,即使创建多个 FileDialog 对象,FileDialog 对象的很多属性也会保持不变。所以,在显示对话框之前请确保已经针对用途适当地设置了所有属性。
2.在使用另存为对话框时,AllowMultiselect不需要设置(即使设置为True也无效)。

示例1

含有VBA工程的工作簿在07以上版本另存为XLSX格式时,会有下图提示:

当点击 时,则会产生下图错误:

平时在技巧中,按F12时,点否不会产生任何提示,还是停留在对话框窗口。


2. 调用Excel内置的对话框
Excel内置的对话框可以通过应用程序的Dialog属性对象获取。
获取对话框对象后只需要调用Show方法即可
语法:Application.Dialogs(xlDialogSaveAs).Show
至于对话框的定制只能通过Show方法的参数传递。
关于内置的对话框的参数,大家在VBA开发人员参考中搜索内置对话框参数列表。
示例:

同样的另存,这里出现关于VBA工程的保存格式时,点击否不会有错误提示,与在日常的操作是一样的,继续停留在另存为对话框中。

发表于 2014-4-23 09:04 | 显示全部楼层
回复

使用道具 举报

发表于 2014-4-27 08:37 | 显示全部楼层
回复

使用道具 举报

发表于 2014-6-18 16:56 | 显示全部楼层
文件另存为对话框:Application.FileDialog(msoFileDialogSaveAs)
回复

使用道具 举报

发表于 2014-10-9 14:59 | 显示全部楼层
非常有用!
回复

使用道具 举报

发表于 2014-10-9 15:12 | 显示全部楼层
jason5800295 发表于 2014-10-9 14:59
非常有用!

看看吧
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-2 20:48 , Processed in 0.248776 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表