可以尝试使用以下代码解决该问题:
Sub FastSaveAs() Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="Filepath", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Application.ScreenUpdating = True Application.EnableEvents = True Application.DisplayAlerts = True End Sub
在此示例中,我们使用了应用程序的一些性能优化技巧,如禁用屏幕更新,启用事件以及关闭警告消息。这将显着提高保存过程的速度。还可以将此代码段与您的应用程序的相关部分一起使用,以优化整个解决方案的性能。