如何在VBA中保存Excel？

我有一张Excel工作表，如果使用Excel VBA中的

另存为…

选项保存文件，当前打开的文档将关闭，并切换到新创建的文档

---

如何在不切换控件的情况下保存文档副本？

您可以使用SaveCopyAs执行您想要的操作

CurrentFile = ThisWorkbook.FullName
ActiveWorkbook.SaveAs "C:\myfile.xls", FileFormat:=52
Workbooks.Open CurrentFile

ActiveWorkbook.SaveCopyAs "C:\XXXX.XLS"

---

我甚至会为您键入答案：找到问题的最佳答案，然后单击左上角显示的箭头接受它。

file_name = Application.GetSaveAsFilename(InitialFileName:="File Name", _
filefilter:="Excel Files,*.xls,All Files,*.*", _
Title:="Save As File Name")

Worksheets("Sheet1").Copy
Set wb = ActiveWorkbook
wb.SaveAs Filename:=file_name
wb.Close