通用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)是指本表的字段位置。

 

 

上一篇：如何隐藏Excel工作表

下一篇：通用Excel公式执行出错提示：“请检查！image 数据类型不能选为DISTINCT，因为它不可比。”