VB 打开带有宏的Excel执行函数

要在VB中打开带有宏的Excel文件并执行函数，可以使用下面的代码：

Sub OpenExcelWithMacro()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlModule As Object

    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开带有宏的Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\file.xlsm")

    ' 执行宏中的函数
    xlApp.Run "NameOfYourMacroFunction"

    ' 关闭并保存Excel文件
    xlWorkbook.Close SaveChanges:=True

    ' 退出Excel应用程序
    xlApp.Quit

    ' 释放对象
    Set xlModule = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub

请将 C:\path\to\your\file.xlsm 替换为实际的Excel文件路径和文件名。将 NameOfYourMacroFunction 替换为你想要执行的宏中的函数名称。

这段代码将创建一个Excel应用程序对象，打开指定的Excel文件，执行宏中的函数，然后关闭并保存文件，并最后退出Excel应用程序