nnsea 发表于 2023-11-9 15:20:59

另存为VBA


Sub 另存为()
    ' 打开另存为对话框
    Application.Dialogs(xlDialogSaveAs).Show
      
    ' 在这里可以添加代码来设置保存的文件名、路径等
      
    ' 模拟用户点击保存按钮
    Application.SendKeys "{ENTER}"
End Sub
页: [1]
查看完整版本: 另存为VBA