ExcelHome技术论坛»论坛 › Excel Home原创图书读者交流论坛 › 《Excel VBA精粹/大全》系列论坛 › 运行VBA时弹出另存为对话框

EH技术汇-专业的职场技能充电站	妙哉！函数段子手趣味讲函数	Excel服务器-会Excel,做管理系统	效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战	Excel 2021函数公式学习大典	Excel数据透视表实战秘技	打造核心竞争力的职场宝典
让更多数据处理，一键完成	数据工作者的案头书	免费直播课集锦	ExcelHome出品 - VBA代码宝免费下载
	用ChatGPT与VBA一键搞定Excel	WPS表格从入门到精通	Excel VBA经典代码实践指南

查看: 1459|回复: 0

运行VBA时弹出另存为对话框

[复制链接]

岗纯一郎

TA的精华主题

TA的得分主题

发表于 2015-11-18 15:38 | 显示全部楼层 |阅读模式

[广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★

写了一个将工作表复制到新工作簿并保存的代码，但是会弹出另存为对话框，其实文件已经另存，如果我点击了另存为，则又生成一个工作簿1.xlsx的文件，点击取消，则需要关闭这个新生成的打开的工作簿1，其实这个另存为的工程是不需要的。请问怎样屏蔽此问题？

ActiveSheet.Copy
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".x")(0) & ".xlsx"
Range("a1").Select
ActiveWorkbook.Close True

代码, 运行, 弹出, 另存为, 对话

返回列表

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-26 05:27 , Processed in 0.035557 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

沪公网安备 31011702000001号沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！本站特聘法律顾问：李志群律师

		自动登录	找回密码
密码			免费注册