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

VBA接口函数之：填写指定报表（可以实现模板之间的数据传递）

Sub 填写指定报表()

'定义接口变量

Dim obj As Object

'获取通用Excel 的编程接口

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

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

obj.NewReportData2 "出库单", "单号=" + Sheet1.Cells(1, 1).Text

'释放编程接口

Set obj = Nothing

End Sub

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

Sub 填写指定报表()

'定义接口变量

Dim obj As Object

'获取通用Excel 的编程接口

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

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

obj.NewReportData2 "出库单", "单号=" + Sheet1.Cells(1, 1).Text + ";" + "客户=" + Sheet1.Cells(2, 2).Text

'释放编程接口

Set obj = Nothing

End Sub

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