勤哲Excel服务器联合VBA快速实现表格公式应用转换

粤讯 中字

如今,面对企业信息管理常见的定制成本高,使用不灵活,新增修改难等问题,企业家们迫切的希望能有一款类似与Excel表格的操作体验,灵活适用性高,低成本、好查找的企业管理软件,而一款名为“勤哲Excel服务器”的软件走进了人们视野,在统计数据、管理报表、分析走势等方面起到巨大作用。

以勤哲EXCEL服务器结合VBA为例,二者可实现连续应用指定的表间公式。以VBA可调用函数为例。ExecQuery(qryList)的功能:连续应用若干条(一条或多条)指定的表间公式;参数:qryList:表间公式名称列表,各公式名之间用逗号分割。应用场合:在模板上写VBA程序,调用此函数,可实现用户控制(手动)表间公式的运行。

实例应用:某企业的物料查询

功能描述:该企业在库存管理中,对库存商品的指定查询条件,方便业务人员按条件查找物料。在勤哲EXCEL服务器软件中建立一个“纯查询模板”通过运用表间公式就可以把涉及到库存信息做一个查询结果表现出来,实现查询物料信息的这样一个功能。

建立“物料查询表”。描述:该模板是“纯查询模板”

image.png

2.3 按模板定义的数据项写出表间公式

如:主表:品牌、供应商、品名、规格、

明细:库存数量

2.4 表间公式

运用勤哲EXCEL服务器表间公式提出所查询信息应用手动执行.

目的:按查找条件执行。

(1)按品牌提取

提取<物料表_明细>中满足下列条件的数据:

<数据筛选:物料表_明细.品牌>

按以下方式填入<物料查询表_明细>:

物料表_明细.品牌 --->(填入值) 品牌 (升序)

物料表_明细.供应商 --->(填入值) 供应商 (升序)

物料表_明细.品名 --->(填入值) 品名(升序)

物料表_明细.规格 --->(填入值) 规格 (升序)

物料表_明细.库存数量 --->(填入值) 库存数量 (升序)

(2) 按供应商

提取<物料表_明细>中满足下列条件的数据:

<数据筛选:物料表_明细.供应商>

按以下方式填入<物料查询表_明细>:

物料表_明细.品牌 --->(填入值) 品牌 (升序)

物料表_明细.供应商 --->(填入值) 供应商 (升序)

物料表_明细.品名 --->(填入值) 品名 (升序)

物料表_明细.规格 --->(填入值) 规格 (升序)

物料表_明细.库存数量 --->(填入值) 库存数量 (升序)

(3) 品名查询

提取<物料表_明细>中满足下列条件的数据:

<数据筛选:物料表_明细.品名>

按以下方式填入<物料查询表_明细>:

物料表_明细.品牌 --->(填入值) 品牌 (升序)

物料表_明细.供应商 --->(填入值) 供应商(升序)

物料表_明细.品名 --->(填入值) 品名 (升序)

物料表_明细.规格 --->(填入值) 规格 (升序)

物料表_明细.库存数量 --->(填入值) 库存数量 (升序)

(4) 规 格

提取<物料表_明细>中满足下列条件的数据:

<数据筛选:物料表_明细.规格>

按以下方式填入<物料查询表_明细>:

物料表_明细.品牌 --->(填入值) 品牌(升序)

物料表_明细.供应商 --->(填入值) 供应商 (升序)

物料表_明细.品名 --->(填入值) 品名 (升序)

物料表_明细.规格 --->(填入值) 规格(升序)

物料表_明细.库存数量 --->(填入值) 库存数量 (升序)

(5) 库 存

提取<物料表_明细>中满足下列条件的数据:

<数据筛选:物料表_明细.库存数量 <>0>

按以下方式填入<物料查询表_明细>:

物料表_明细.品牌 --->(填入值) 品牌

物料表_明细.供应商 --->(填入值) 供应商

物料表_明细.品名 --->(填入值) 品名

物料表_明细.规格 --->(填入值) 规格

物料表_明细.库存数量 --->(填入值) 库存数量

2.5   在模板中运用EXCEL VBA功能加入“命令按钮”

打开EXCEL“工具”-Viusal basic

添加“命令按钮”如图

image.png

2.6 写入VBA代码 具体格式可以参考EXCEL服务器帮助

通过双击增加的“品牌查询”命令按钮写入代码

(1)

Private Sub CommandButton1_Click()

Dim oAdd As Object

Dim ans As Boolean

′获取Excel服务器编程接口

oAdd = Application.COMAddIns.Item("ESClient.Connect").Object

ans = oAdd.execQuery("品牌查询") 这里输入表间公式名称

oAdd = Nothing

End Sub

(2) 同样的方法写入第二段代码

Private SubCommandButton2_Click()   命令按钮为“供应商查询”

Dim oAdd As Object

Dim ans As Boolean

′获取Excel服务器编程接口

oAdd = Application.COMAddIns.Item("ESClient.Connect").Object

ans = oAdd.execQuery("供应商查询") 同样写入表间公式

oAdd = Nothing

End Sub

………………………….

依次写入“品名、规格、库存数量”的代码

应用效果:

品牌查询

image.png

供应商查询

image.png

品名查询

image.png

规格查询

image.png

查全部库存

image.png

小结:

勤哲Excel是一款前端的信息化电子表格控件,可以满足各类组件的开发、数据填报、在线文档、图表公式联动等业务场景,为用户带来亲切的 Excel 体验。另外,在数据可视化、Excel 导入导出、公式引用、数据绑定、框架集成等场景下无需大量代码开发和测试,勤哲Excel极大降低了企业研发成本和项目交付风险。

声明: 本文系OFweek根据授权转载自其它媒体或授权刊载,目的在于信息传递,并不代表本站赞同其观点和对其真实性负责,如有新闻稿件和图片作品的内容、版权以及其它问题的,请联系我们。
侵权投诉

下载OFweek,一手掌握高科技全行业资讯

还不是OFweek会员,马上注册
打开app,查看更多精彩资讯 >
  • 长按识别二维码
  • 进入OFweek阅读全文
长按图片进行保存