VB: 使用 VBA 打开 Excel 文件并运行指定按钮的 Click 事件函数

下面是 VB 代码示例，可以打开一个 Excel 文件并运行指定的 CommandButton3_Click 函数：

Sub OpenAndRun()
    ' 打开 Excel 应用程序
    Dim xlApp As Excel.Application
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    
    ' 打开指定的 Excel 文件
    Dim xlBook As Excel.Workbook
    Set xlBook = xlApp.Workbooks.Open("C:\Data\example.xlsx")
    
    ' 在 Excel 文件中运行指定的函数
    Call xlApp.Run("Sheet1.CommandButton3_Click")
    
    ' 关闭 Excel 文件和应用程序
    xlBook.Close False
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

在上面的示例中，我们使用 CreateObject 函数创建了一个 Excel 应用程序实例，并设置了 Visible 属性为 True，以便在打开 Excel 文件时可以看到它。然后，我们使用 Workbooks.Open 方法打开了指定的 Excel 文件，并将返回值赋值给 xlBook 对象。接下来，我们使用 xlApp.Run 方法运行了 Excel 文件中名为 Sheet1 的工作表中的 CommandButton3_Click 函数。最后，我们关闭了 Excel 文件和应用程序，并将 xlBook 和 xlApp 对象设置为 Nothing。

请注意，上面的代码示例假定 Excel 文件中有一个名为 Sheet1 的工作表，并且该工作表中有一个名为 CommandButton3 的按钮，它的 Click 事件已经与名为 CommandButton3_Click 的函数关联。如果您的 Excel 文件中没有这些元素，那么上面的代码将无法正常工作。您需要根据实际情况进行调整。