Question

我有以下代码片段，它复制了三张特定的工作表，并将它们放在一个保存在文件夹中的新工作簿中。但是，对于每次运行，将创建和保存大约20种不同的工作簿。但是，应该保存的特定工作表不能保持隐藏在过程中，每次我必须使它们可见，并在保存后再次隐藏它们。这当然会反映在用户的屏幕上，他可以观察纸张的显示和消失方式。在保存之前是否有机会避免纸张的出现？

       '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

Answer 1

在开始您想要保持“隐藏”的操作之前，请设置：

Application.ScreenUpdating = False

然后一旦完成了代码的这一部分，不要忘记将其还原为：

Application.ScreenUpdating = True

不确定它对您有多好，但值得快速尝试。

创建一个新工作簿并保存在文件夹位置

1 个答案: