excel - 代码作为常规 sub 运行良好，但不会作为 Workbook_Open() 事件运行

Question

我在 VBA 中有这段代码，它构建了所有当前打开的工作簿的列表，并将它们添加到命名范围，以便我可以将其用作选择列表的输入。通过这种方式，用户能够选择应处理的工作簿。

Sub Lijst_bouwen()

Dim i As Integer
Dim wb_pnt As Workbook
Set wb_pnt = Application.ThisWorkbook
Dim wb_overzicht As Workbook
Dim ws As Worksheet
Set ws = wb_pnt.Worksheets("Werkboeken")

For i = 1 To Workbooks.Count        'build list of open workbooks
    ws.Cells(i, 1) = Workbooks(i).Name
Next i

Dim Rng As Range
Set Rng = ws.Range(Cells(1, 1), Cells(i - 1, 1))
wb_pnt.Names.Add Name:="Lijst", RefersTo:=Rng


End Sub

作为一个普通的潜艇，这工作得很好。
当我尝试将它作为 Workbook_Open() 运行时子它没有。
然后代码的第一行变为: Private Sub Workbook_Open()但没有显示任何结果，也没有任何错误消息。

Answer 1

代码应在 ThisWorkbook 中对象模块为 Private Sub Workbook_Open() .但这会在仍然打开此工作簿的同时快速计算打开的工作簿，并且我猜会抛出错误。因此，最好使用 onTime 作为 ..

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:02"), "Lijst_bouwen"
End Sub

...保持 Lijst_bouwen在模块中