创build一个新的工作簿并保存在文件夹位置
我有下面的代码片段，它复制三个特定的工作表，并把它们放在一个新的工作簿保存在一个文件夹中。 但是，每次运行都会有大约20个不同的工作簿被创build和保存。 但是，应该保存的特定工作表不能隐藏在该过程中，每次我不得不使其可见并在保存之后再次隐藏。 这当然会反映在用户的屏幕上，他们可以观察到纸张如何出现和消失。 在保存之前是否有机会避免纸张的外观？
'make the sheets visible before saving Sheets("Statement").Visible = True Sheets("Current Run").Visible = True Sheets("Stock").Visible = True Sheets(Array("Statement", "Current Run", "Stock")).Copy ActiveWorkbook.SaveAs Filename:="C:\solved\" & ringi & "-" & date_from & "-" & date_to & ".xlsx", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False ActiveWorkbook.Close SaveChanges:=False 'hide them again Sheets("Statement").Visible = xlSheetVeryHidden Sheets("Current Run").Visible = xlSheetVeryHidden Sheets("Stock").Visible = xlSheetVeryHidden 在开始你想保持“隐藏”的操作之前，设置这个：
Application.ScreenUpdating = False
然后一旦你完成了这部分的代码，不要忘记像这样恢复它：
Application.ScreenUpdating = True
不知道它会为你工作多么好，但值得一试。