如何在Excel中保存Excel？

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

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

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