VB代码自动打开Excel并执行宏函数

您可以使用以下代码打开带有宏的Excel文件，并执行其中的'CommandButton2_Click'函数：

Sub OpenAndExecuteMacro()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    
    ' 创建 Excel 应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开带有宏的 Excel 文件
    Set xlWorkbook = xlApp.Workbooks.Open("路径\文件名.xlsx")
    
    ' 执行宏
    xlApp.Run "文件名.xlsm!模块名.CommandButton2_Click"
    
    ' 关闭 Excel 文件
    xlWorkbook.Close SaveChanges:=False
    
    ' 关闭 Excel 应用程序
    xlApp.Quit
    
    ' 释放对象的内存
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub

请将代码中的'路径\文件名.xlsx'替换为您要打开的带有宏的 Excel 文件的实际路径和文件名。

请将代码中的'文件名.xlsm'替换为您要执行宏的 Excel 文件的实际文件名。

请将代码中的'模块名'替换为包含'CommandButton2_Click'函数的模块的实际名称。

执行此 VBA 代码将打开 Excel 文件并自动执行'CommandButton2_Click'函数。