优化代码：Dim otherWorkbook As Workbook Dim otherWorksheet As Worksheet 打开另一个 Excel 文件 Set otherWorkbook = WorkbooksOpenE检测设备力学VBA测试取6个数的平均值xlsm 选择要执行函数的工作表 Set otherWorksheet = ot

Dim otherWorkbook As Workbook Set otherWorkbook = Workbooks.Open("E:\检测设备\力学\VBA测试\取6个数的平均值.xlsm") ' 打开另一个 Excel 文件

Dim result As Variant With otherWorkbook.Worksheets("首页") result = .CommandButton2_Click ' 在另一个文件中执行函数 End With

otherWorkbook.Close False ' 关闭另一个 Excel 文件

MsgBox "Result: " & result ' 处理返回值