如何導入沒有窗口屏幕更新的工作表？

我需要從另一本書如何導入沒有窗口屏幕更新的工作表？

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打開，幾秒鐘後進口片 - 封閉。
有沒有辦法在不打開目標書的情況下導入工作表，或者在沒有獲得任務欄更新的情況下打開工作表？

來源

2012-09-04 Alegro

您可以將此行添加到代碼的開頭。

Application.Visible = False

，並且該列表來結束你的代碼

Application.Visible = True

，而你的代碼運行時它會隱藏任務欄上的Excel應用程序的。

來源

2012-09-04 09:34:10

羅伯特，在這種情況下，整個Excel窗口變得隱藏並再次可見。而且，加贏任務欄也會發生變化。我需要靜靜地導入一張紙，而不會在屏幕上閃爍任何東西。 – Alegro

看看這個答案。 http://stackoverflow.com/questions/5680061/how-can-i-stop-excel-workbook-flicker-on-automation-open –

Au！讓我們說 - 解決:)。感謝您的鏈接。 – Alegro

如何導入沒有窗口屏幕更新的工作表？

回答

相關問題