在填报时，为了方便填报者操作，可以在模版上放置一个便捷按钮，利用通用Excel常用VBA接口函数，从而达到编辑（修改）指定报表的效果，还可以实现模板之间的数据传递，极大的增加了模版的人性化体验。

VBA接口函数之：编辑（修改）指定报表，并将本表指定字段传递过去

Sub 编辑指定报表()

'定义接口变量

Dim obj As Object

'获取通用Excel 的编程接口

Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

'通过接口调用通用Excel系统公式

obj.editReportData "出库单", "单号='" + ActiveSheet.Cells(3, 2).Text + "'"

'释放编程接口

Set obj = Nothing

End Sub

如果我们要传输多个数据项目，接口代码如下： 

Sub 编辑指定报表()

'定义接口变量

Dim obj As Object

'获取通用Excel 的编程接口

Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

'通过接口调用通用Excel系统公式

obj.editReportData "出库单", "单号='" + ActiveSheet.Cells(3, 2).Text + "'";"客户='" + ActiveSheet.Cells(3, 3).Text + "'"

'释放编程接口

Set obj = Nothing

End Sub

注：上述代码中的“单号”是指被编辑报表的字段名； (3, 2)是指本表的字段位置。

以上由互和科技原创，转载请注明来源。