通过 excel vba 保存 .xlsx 文件，无需打开保存的文件

Question

我正在制作 excel vba 代码，用于制作 Outlook 消息并为消息附加 excel 文件本身（xlsx）

下面一行来自我的代码。

ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Date & " " & "Position Report Ver.2.xlsx", FileFormat:=51 

此代码将 xlsx 文件保存到特定文件夹。

我只想保存复制的 xlsx 文件。

但我的代码在保存后会自动打开保存的文件（xlsx 文件。）。并关闭原始文件。

宏应该在生成 xlsx 文件后运行，因为它应该通过 vba 宏附加到 Outlook 消息。

但是，因为保存后立即打开了 xlsx 文件，所以保存后我无法运行 vba 代码。

如何在不打开的情况下从 xlsm 保存到 xlsx？

我搜索了stackoverflow，但找不到解决方案。代码不起作用或无法保存到 xlsx（只是 xlsm 副本）...我找不到完美的答案...

Answer 1

请试试这个...

请记住检查文件名，因为我使用 Format 函数从文件名中删除无效字符。

ThisWorkbook.Sheets.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "mm.dd.yyyy") & " " & "Position Report Ver.2.xlsx", FileFormat:=51
ActiveWorkbook.Close