- [返回列表] [ 发布:2014/12/5 11:33:20 ] [ 浏览: ] [ 字体:大 | 小 ]
- 通用Excel模板中使用VBA按钮调用其它报表填报,并传输多个数据项目的方法
通用Excel制作模版时,有时候会用到模版间互相关联填报,并将当前表的数据传输到另一张模版上,这里就要用到VBA接口。
最常见的是使用VBA进行单个数据项目的传输,如:
Sub 出库()
Dim obj As Object
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
obj.NewReportData2 "出库单", "单号=" + Sheet1.Cells(1, 1).Text
Set obj = Nothing
End Sub
如果我们要传输多个数据项目,接口代码如下:
Sub 出库()
Dim obj As Object
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
obj.NewReportData2 "出库单", "单号=" + Sheet1.Cells(1, 1).Text + ";" + "客户=" + Sheet1.Cells(2, 2).Text
Set obj = Nothing
End Sub
注:上述代码中的“单号”是指被填报表的字段名; (1, 1)是指本表的字段位置。