Excel 在 Workbook_Open 上启动宏时未完全打开

Question

我写了一个makro，我想在打开工作簿时直接运行。 它可以工作，但是，宏在真正的电子表格完全打开之前就开始了，我只看到 Excel 在 makro 运行的整个过程中飞溅。

我应该提到我通过 Windows 任务计划程序打开工作簿。 打开文件后，宏 go 通过循环打开其他 Excel 文件的列表，这些文件正在使用 SAP Analysis 插件更新外部数据。

我将带有宏的电子表格作为计划任务调用以更新数据，然后再次自动关闭它：

Private Sub Workbook_Open()
    If Range("start_on_open").value = "YES" Then
        Call Process_action_table
    End If
End Sub

start_open是我工作表中的一个命名范围，当我将其设置为“YES”时，makro 将自动启动。

当 function“Process_action_table”正在运行时，我在电子表格中显示状态信息，但当然只有启动屏幕可见，实际上没有显示任何内容。

当我“手动”运行宏时，一切正常。 在我看来，好像没有足够的处理时间来正确打开电子表格。

我在开始时添加了以下代码，但无济于事：

t_end = Now + TimeValue("0:0:10")
Do While Now < t_end
    DoEvents
Loop

任何建议将不胜感激。

Answer 1

潜水托比。 如果工作表加载是必不可少的条件，而不是使用Workbook_Open() ，则使用Worksheet_Activate()是合适的。 尝试将此代码粘贴到包含“start_on_open”范围的工作表中：

Private Sub Worksheet_Activate()
    If Range("start_on_open").value = "YES" Then
        Call Process_action_table
    End If
End Sub

Answer 2

我没有尝试过这段代码。 请反馈好不好。 它将循环/等待工作簿可写。

Private Sub Workbook_Open()
Dim wb As Workbook
Set wb = ThisWorkbook
    If Range("start_on_open").value = "YES" Then
        'wait for workbook to writeable
        Do Until wb.ReadOnly = False
            Application.Wait Now + TimeValue("00:00:01")
        Loop
        Call Process_action_table
    End If
End Sub