如何在VBA中保存Excel？

Question

我有Excel工作表，如果我使用Excel VBA中的Save as...选项保存文件，则当前打开的文档将关闭，并切换到新创建的文档。

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

Answer 1

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

Answer 2

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

ActiveWorkbook.SaveCopyAs "C:\XXXX.XLS"

Answer 3

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