查看: 140|回复: 0

另存为VBA

977 主题	1093 帖子	1万积分

Rank: 9 Rank: 9 Rank: 9

发表于 2023-11-9 15:20:59 | 显示全部楼层 |阅读模式

Sub 另存为()
' 打开另存为对话框
Application.Dialogs(xlDialogSaveAs).Show

' 在这里可以添加代码来设置保存的文件名、路径等

' 模拟用户点击保存按钮
Application.SendKeys "{ENTER}"
End Sub

网站简介：表格智创网，是一家以表格设计和技能分享的专业社区，由会计帮帮网投资建设，尽专业，助提高专业技能。

表格智创网欢迎您！