通过如下的两种代码，可以打开工作薄，但是却不显示工作薄，方法如下：
一、第一种代码
Set MyApp = New Application
Set MySourceBook = MyApp.Workbooks.Open("C:\MyBook1.xls", 0, True)
Set MySourceSheet = MySourceBook.Worksheets("Sheet1")
MySourceBook.Close False
二、第二种代码
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
Set MySourceBook = Workbooks.Open("C:\MyBook1.xls", 0, True)
Set MySourceSheet = MySourceBook.Worksheets("Sheet1")
MySourceBook.Close False
Application.ShowWindowsInTaskbar = True
Application.ScreenUpdating = True
上面的两种代码，建议使用使用第二种方法，因为速度更快些。