VB.net Office VSTO Addin WorkbookBeforeSave 没有签名兼容

Question

我尝试从 Office 的 VSTO Addin 开始，并翻译了 Microsoft 在其 网站 。但是，当我实现 WorkbookBeforeSave 事件时，我总是收到此错误：

方法 'Application_WorkbookBeforeSave' 无法处理事件 'WorkbookBeforeSave' 因为它们没有兼容的签名

我在 google 中搜索并看起来签名没问题。我在 C# 中尝试了这个示例，效果很好。

这是我的代码：

Imports System.Windows.Forms
Imports Microsoft.Office.Interop.Excel

Public Class ThisAddIn
  
  Private Sub ThisAddIn_Startup() Handles Me.Startup
    AddHandler Application.WorkbookBeforeSave, New Excel.AppEvents_WorkbookBeforeSaveEventHandler(AddressOf Application_WorkbookBeforeSave)
  End Sub

  Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown

  End Sub

Sub Application_WorkbookBeforeSave(wb As Workbook, SaveUI As Boolean, Cancel As Boolean) Handles Application.WorkbookBeforeSave(
    Dim activeworksheet As Worksheet = Application.ActiveSheet
    Dim firstRow As Range = activeworksheet.get_range("A1")

    firstRow.EntireRow.Insert(Excel.XlInsertShiftDirection.xlShiftDown)
    Dim newFirstRow As Range = activeworksheet.get_tange("A1")
    newFirstRow.Value2 = "This text was added by using code"

  End Sub
End Class

错误是包含“(AddressOf Application_WorkbookBeforeSave)”的行 有人可以帮我解决这个问题吗？ 谢谢

Answer 1

我发现了问题，这是我的错误。错误出现在声明中：

Sub Application_WorkbookBeforeSave(wb As Workbook, SaveUI As Boolean, Cancel As Boolean) Handles Application.WorkbookBeforeSave

参数 Cancel as Boolean 应该是 By Ref Cancel as Boolean