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
VBA后台静默打开Excel文件
5365

被折叠的 条评论
为什么被折叠?



