為什么我不能使用 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

我希望這有幫助。