打开新工作簿 Excel 2016 VBA 后功能区无响应

Question

我在编程方面是个菜鸟，但是我已经能够在 excel 中构建几个有用的应用程序，这些应用程序可以自动执行我的一些日常任务。

目前，我在尝试使用 Excel 2016 中的workbooks.open()打开新工作workbooks.open()时遇到了一个烦人的问题。

我制作了一个带有调用用户表单的按钮的工作簿。 表单启动后，用户可以选择下载和打开多种类型的 .xls 文件。 当用户单击表单的 OK 按钮时，所有适当的函数都会被调用，选定的工作簿被打开，表单被卸载和隐藏。

但是，打开的最后一个工作簿的功能区（顺便说一下，当前处于活动状态的工作簿）没有响应，解决此问题的唯一方法是在打开的窗口之间按 ALT+TAB。

似乎“焦点”仍然在带有按钮的初始工作簿上，因为如果我在卸载表单后调用Msgbox ，它就会出现在那里。 值得一提的是，尽管初始工作簿不是活动的，但会发生这种情况！

在做了一些实验之后，我能够通过在调用我的函数时禁用Application.ScreenUpdating来解决这个问题，然后在卸载表单之前重新启用它。

但是，这仅在同时打开多个工作簿时才有效。 如果用户选择仅打开一个工作簿，则问题仍然存在。 我遇到了一个使用户表单无模式的建议，这确实解决了问题，但会产生其他类型的不需要的行为。

复制问题的代码的简化版本如下：

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'solves the issue but only for multiple files - comment out to replicate the problem
If OptionButton1 Then
    Workbooks.Open ("http://www.admie.gr/fileadmin/user_upload/reports/DayAheadSchedulingUnitAvailabilities/20180602_DayAheadSchedulingUnitAvailabilities_01.xls")
Else
    Workbooks.Open ("http://www.admie.gr/fileadmin/user_upload/reports/DayAheadSchedulingUnitAvailabilities/20180603_DayAheadSchedulingUnitAvailabilities_01.xls")
    Workbooks.Open ("http://www.admie.gr/fileadmin/user_upload/reports/DayAheadSchedulingUnitAvailabilities/20180604_DayAheadSchedulingUnitAvailabilities_01.xls")
End If
Application.ScreenUpdating = True 'solves the issue but only for multiple files - comment out to replicate the problem
Unload UserForm1
UserForm1.Hide
MsgBox ActiveWorkbook.Name 'for debugging purposes - comment out to replicate the problem - the msgbox will be displayed on the workbook which called the userform, although it's not the active one
End Sub

Sub Button1_Click() 'calls the userform
UserForm1.OptionButton1.Value = True
Load UserForm1
UserForm1.Show vbModeless 'comment out to replicate the problem - solves the issue but creates unwanted behavior
End Sub

有没有人处理过这个问题？

你有什么建议？

Answer 1

当我只打开 1 个工作簿时，我在股票 excel 上遇到了同样的问题。 在 Workbooks.open 之后添加此功能区时，将再次启用功能区：

    ThisWorkbook.Activate
    Workbooks("*openedWorkbookName*").Activate

顺便说一句，在当前未激活的工作表中选择单元格时，一些较旧的代码会导致运行时错误。 这也有助于解决这个问题。

Answer 2

我知道这已经过去几年了，但我认为这可以帮助某人。

我也遇到过这个问题。 我在某个地方找到了这个问题可以通过隐藏用户表单 -before-open 工作表来解决的答案。

所以，只需像这样重新排列命令。

Private Sub CommandButton1_Click()
UserForm1.Hide 'or Me.Hide
If OptionButton1 Then
    Workbooks.Open ("filename.xls")
Else
    Workbooks.Open ("filename1.xls")
    Workbooks.Open ("filename2.xls")
End If
Unload UserForm1 'if you still want it
End Sub

Answer 3

您是否在 Excel 上启用了标准之外的任何加载项。 例如，我使用名为 ASAP 的实用程序产品，当我启动我的 excel 时，触发事件的可执行文件会相互覆盖。 它会在我第一次打开 excel 时锁定功能区，所以我每次打开第一个 excel 后都会创建一个新的 excel

Answer 4

我正在使用 Excel 宏来创建新工作簿并用数据填充它们 (Office 365)。

Public New_Wb As Workbook
Public New_Book_Name as String

Workbooks.Add
New_Book_Name = ActiveWorkbook.Name
Set New_Wb = ActiveWorkbook

我也遇到了宏完成后新工作簿将部分激活的问题。 我可以在工作簿单元格中工作，但功能区处于非活动状态。 移开并移回新工作簿会激活功能区，但这很烦人。 我注意到在工作簿中右键单击足以激活功能区。 奇怪，是的。 因此，我跟踪代码以在宏完成后强制执行鼠标右键单击事件（如下所示）。 这是一个真正的混杂，但它发生得如此之快以至于不可见，并使功能区处于活动状态。

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

...在工作簿填充后...

New_Wb.activate

mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0