如何导入没有窗口屏幕更新的工作表?
问题描述:
我需要从另一本书如何导入没有窗口屏幕更新的工作表?
Application.ScreenUpdating = False
Workbooks.Open fileName:=ThisWorkbook.path & "\temp01.xlsx"
Workbooks("temp01.xlsx").Sheets.Copy before:=ThisWorkbook.Sheets("adm")
Workbooks("temp01.xlsx").Close False
Application.ScreenUpdating = True
但在Windows任务栏是可见的,这本书SI打开,几秒钟后进口片 - 封闭。
有没有办法在不打开目标书的情况下导入工作表,或者在没有获得任务栏更新的情况下打开工作表?
答
您可以将此行添加到代码的开头。
Application.Visible = False
,并且该列表来结束你的代码
Application.Visible = True
,而你的代码运行时它会隐藏任务栏上的Excel应用程序的。
罗伯特,在这种情况下,整个Excel窗口变得隐藏并再次可见。而且,加赢任务栏也会发生变化。我需要静静地导入一张纸,而不会在屏幕上闪烁任何东西。 – Alegro
看看这个答案。 http://*.com/questions/5680061/how-can-i-stop-excel-workbook-flicker-on-automation-open –
Au!让我们说 - 解决:)。感谢您的链接。 – Alegro