excel后台打开

  Sub   后台打开()  
          Application.ScreenUpdating   =   False  
          Workbooks.Open   Filename:="D:\test.xls"  
          ActiveWindow.Visible   =   False  
          Application.ScreenUpdating   =   True  
  End   Sub  
   
   
  Sub   取消隐藏()  
          Windows("text.xls").Visible   =   True  
  End   Sub