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
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