Excel服务器SaveDataAsFile函数作用
2020-03-27 00:10
Excel服务器SaveDataAsFile函数作用:导出某一份符合条件的报表(对应链接导出功能)
参数作用:导出某一份符合条件的报表(对应链接导出功能)
参数:参数1 —— 模板的名字
参数2 —— 条件字符窜,
格式:字段名称1 = 条件1;字段名称2 = 条件2;… …
(如果符合条件的报表数据有多份,则只导出第一份数据)
参数3 —— 带路径的Excel文件名字
返回值:无
示例:
Sub CommandButton1_Click()
‘定义接口变量
Dim obj As Object
‘获取E立方管理平台 的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
‘通过接口调用SaveDataAsFile
obj. SaveDataAsFile "销售单", "销售单号='" + ActiveSheet.Cells(4, 2) .text+ "'", "C:\test.xls"
‘释放编程接口
Set obj = Nothing
End Sub
解说:在工作表上放置了一个按钮,当点击按钮时就调用上面的VBA代码,导出销售单号=单元格(4,2)的数据,另存为Excel文件“C:\test.xls”。:参数1 —— 模板的名字
参数2 —— 条件字符窜,
格式:字段名称1 = 条件1;字段名称2 = 条件2;… …
(如果符合条件的报表数据有多份,则只导出第一份数据)
参数3 —— 带路径的Excel文件名字
返回值:无
示例:
Sub CommandButton1_Click()
‘定义接口变量
Dim obj As Object
‘获取E立方管理平台 的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
‘通过接口调用SaveDataAsFile
obj. SaveDataAsFile "销售单", "销售单号='" + ActiveSheet.Cells(4, 2) .text+ "'", "C:\test.xls"
‘释放编程接口
Set obj = Nothing
End Sub
解说:在工作表上放置了一个按钮,当点击按钮时就调用上面的VBA代码,导出销售单号=单元格(4,2)的数据,另存为Excel文件“C:\test.xls”。
参数作用:导出某一份符合条件的报表(对应链接导出功能)
参数:参数1 —— 模板的名字
参数2 —— 条件字符窜,
格式:字段名称1 = 条件1;字段名称2 = 条件2;… …
(如果符合条件的报表数据有多份,则只导出第一份数据)
参数3 —— 带路径的Excel文件名字
返回值:无
示例:
Sub CommandButton1_Click()
‘定义接口变量
Dim obj As Object
‘获取E立方管理平台 的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
‘通过接口调用SaveDataAsFile
obj. SaveDataAsFile "销售单", "销售单号='" + ActiveSheet.Cells(4, 2) .text+ "'", "C:\test.xls"
‘释放编程接口
Set obj = Nothing
End Sub
解说:在工作表上放置了一个按钮,当点击按钮时就调用上面的VBA代码,导出销售单号=单元格(4,2)的数据,另存为Excel文件“C:\test.xls”。:参数1 —— 模板的名字
参数2 —— 条件字符窜,
格式:字段名称1 = 条件1;字段名称2 = 条件2;… …
(如果符合条件的报表数据有多份,则只导出第一份数据)
参数3 —— 带路径的Excel文件名字
返回值:无
示例:
Sub CommandButton1_Click()
‘定义接口变量
Dim obj As Object
‘获取E立方管理平台 的编程接口
Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
‘通过接口调用SaveDataAsFile
obj. SaveDataAsFile "销售单", "销售单号='" + ActiveSheet.Cells(4, 2) .text+ "'", "C:\test.xls"
‘释放编程接口
Set obj = Nothing
End Sub
解说:在工作表上放置了一个按钮,当点击按钮时就调用上面的VBA代码,导出销售单号=单元格(4,2)的数据,另存为Excel文件“C:\test.xls”。
Copyright © 2017 沈阳凯安信通科技有限公司 All rights reserved.
Power by DedeCms 辽ICP备13002452号-5