VBA 宏：打开 Excel 工作簿并运行按钮函数

应用类型：VBA 宏

该代码是一个 VBA 宏，用于打开 Excel 应用程序并在指定的工作簿中运行名为 'CommandButton3_Click' 的按钮函数。其中，Option Explicit 用于强制声明所有变量，Private Sub Command1_Click() 则是一个事件处理程序，它在用户单击名为 'Command1' 的按钮时执行。

Option Explicit
Private Sub Command1_Click()

    Dim objExcel As Object
    Dim objWorkbook As Object
    
    ' 创建 Excel.Application 对象并打开指定文件
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("E:\检测设备\vba测试\测试\导热系数测定仪_数据导入模板.xlsm")
    
    ' 运行 Excel 工作簿中名为 "Button1_Click" 的按钮函数
    objExcel.Run '导热系数测定仪_数据导入模板.xlsm'!CommandButton3_Click'
    
    ' 关闭工作簿和 Excel 应用程序
    objWorkbook.Close SaveChanges:=False
    objExcel.Quit
    
    ' 释放对象资源
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub