拓展屏幕運行VBA導致兩個屏幕都卡死

然後用新實例來執行操作：

Sub StartTest()

Dim xlApp As Excel.Application

Dim xlWB As Excel.Workbook

Set xlApp = New Excel.Application

Set xlWB = xlApp.Workbooks.Open("C:\BK1.xls")

xlApp.Visible = True

xlApp.ScreenUpdating = False

xlApp.Run "Test"

xlApp.ScreenUpdating = True

End Sub