简单的SaveAs Excel宏查询 - 需要脚本更新到incl。 filename和.xls扩展名

Question

我有一个excel工作表订单表单，一旦完成，我需要最终用户单击按钮保存工作表，然后单击电子邮件链接进行发送。

我提取了一个简单的保存脚本，可以正常显示“另存为”对话框，但我现在需要添加它：

a）保存文件的名称，以便我可以将其保存为Trans_Order.xls b）将其保存为.xls，以便在通过电子邮件发送给第三方时，完成的工作表理想情况下不包含宏

目前的代码是：

Sub SaveAs()    
    Application.Dialogs(xlDialogSaveAs).Show   
End Sub

希望你能提供帮助 - 非常感谢任何帮助！

Answer 1

xlOpenXMLWorkbook位将文件保存为无宏工作簿。 Application.DisplayAlerts = False会禁止发出一条警告，指出不会保存宏元素。它还会抑制有关覆盖的警报。

Application.DisplayAlerts = False
ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") _
& "\Trans_Order.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True

N.B。您可能需要在双引号中包含工作簿的完整路径，否则它将保存回当前工作簿的文件夹。