为什么我不能使用 Private Sub Workbook_Open(ByVal Sh As Object) 任何解决方法？

Question

我希望代码在工作簿加载时运行。 我正在使用Private Sub Workbook_Open(ByVal Sh As Object) ，但它抛出一个错误“程序错误与事件描述不匹配” - 请提供任何想法，因为Private Sub Workbook_SheetActivate(ByVal Sh As Object)有效。

但我希望代码在工作簿打开时运行。

我知道不允许使用Private Sub Workbook_Open(ByVal Sh As Object) 。

Answer 1

请参阅我的评论，正如之前一些人所说，您不能只更改标准 Excel 事件处理程序的签名。

但是，您可以在该处理程序中工作并访问工作簿中的工作表。

Private Sub Workbook_Open()
    Dim objSheet As Worksheet

    For Each objSheet In ThisWorkbook.Sheets
        ' Do something with the sheet that you're interested in.
    Next
End Sub

我希望这有帮助。