Excel 2016-如果其他工作簿需要解决,则隐藏的应用程序会取消隐藏

时间:2019-03-25 09:40:03

标签: excel vba

最近,我们已将Excel升级到2016。早期版本中没有该问题。

我正在使用一个隐藏的Excel应用程序(显示为​​唯一的用户窗体),并且在该应用程序中,我正在使用单独的工作簿加载数据。关闭数据加载器工作簿后,主应用程序变为可见。重新创建此行为的代码:

Sub Test()
    Dim currentWorkbook As Workbook
    Dim newWorkbook As Workbook

    Set currentWorkbook = ThisWorkbook
    currentWorkbook.Application.Visible = False

    Set newWorkbook = currentWorkbook.Application.Workbooks.Add 'Same with Workbooks.Open
    newWorkbook.Close savechanges:=False
End Sub

运行此代码后,当前工作簿窗口变为可见。在使用“即时”窗口使整个应用程序可见之后,将出现一个新的空白(灰色)Excel屏幕。在测试代​​码时,我运行了大约20次,当强行取消隐藏整个应用程序时,显示了许多空白的Excel窗口。

我担心,如果我每次关闭工作簿时都运行Application.Hide,资源管理器将阻塞所有空白Excel窗口,并可能导致性能问题。

问题:在同一应用程序中关闭工作簿并隐藏我的原始工作簿时,如何避免剩余Excel空白窗口?

谢谢。

0 个答案:

没有答案