通过VBA保存XLS文件

我创建了一个宏，允许XLS文件向所需人员发送电子邮件并附加XLS文件

如何将文件保存到某个位置

我有--

thiswoolk.SaveAs“testsave”和格式（现在是“dd-mm-yy”）和.xls“

但我希望将文档保存到内部网页，而不是我的

D:

上

我不希望创建新的保存，我希望它覆盖现有文档

完整代码，现在正在保存新文档，而不是覆盖原始文档

Sub-sendemail（）

End Sub

您应该只使用而不是SaveAs

这将覆盖您的原始文档

Application.ThisWorkbook.Save

如果要将文件保存到其他路径，则可以附加路径并将原始文件的名称与SaveAs一起使用

Application.DisplayAlerts = False
Application.ThisWorkbook.SaveAs "C:\Temp\" & ThisWorkbook.Name
Application.DisplayAlerts = True

（如果不禁用警报，则如果文件已存在，您将收到提示。）

---

如果要将文件另存为其他类型，则可以使用“另存为”，但要指定文件类型

Application.ThisWorkbook.SaveAs ThisWorkbook.Path & "\test.html", xlHtml

---

它将文档保存在我的桌面上，而不是保存在原始文档上。什么是，

此工作簿。保存

？它不是用于将当前工作簿保存在其位置的吗？@user3013325是的。但是您不需要文件名。@user3013325您可能需要尝试

Application.SaveAs thiswoolk.Path&“\testsave”&Format（现在是“dd-mm-yy”）&.xls”

如果覆盖旧文档，则不需要文件名。别提了。

Application.ThisWorkbook.SaveAs ThisWorkbook.Path & "\test.html", xlHtml