VB工具在采购工作中的应用
当前，各类大中小型企业较为普遍地实施了ERP系统，成功地实施ERP系统可以极大的提升企业效率。
ERP项目投资大、涉及面广、实施周期长，通常会涉及到系统架构、业务流程和数据标准化、项目组织和实施策略等方面。实施ERP系统需要ERP系统知识和企业管理思想的紧密结合。
目前，虽然各类ERP系统提供了强大的标准功能并提供二次开发接口来满足需求方的各类需要，但现实中各种需求不尽相同，标准功能难以满足所有需求，二次开发又需要专业的人员来实施，对于个性化或变更频率较高的需求，系统在敏捷性、适应变化的柔性方面暴露出了其不足之处。
VB就是Visual Basic，它是Microsoft编程语言Basic一种可视化编程编程开发工具。其简单易用，初学者只要稍加学习即可掌握入门操作。
本文通过实例介绍一种VB工具在采购工作中的应用：
作者目前使用的是金蝶ERP系统，主要操作采购申请单、采购订单、入库单等相关模块。出于业务持续改善的目的，需要定期对特定物料的下单/到料周期、交期达成率、成本节省率等指标按照特定算法进行分析汇总生成报表。虽然金蝶K3系统提供了标准报表工具支持，但基于实际业务往往需要做一些特殊化的报表，此时系统工具将难以支持。以生成下单/到料周期数据报表为例，通常通过手工操作Excel的方法来实现：
从系统导出采购申请单、采购订单、入库单共三个Excel格式数据表
在三个Excel表里通过绑定采购申请单/订单/入库单+物料号的形式建立3张表中各行的联系。
将三张表中周期相关数据通过Excel的Vlookup功能添加到同一张表中,然后通过周期数据加减等运算、生成数据透视表来实现抓取下单/到料周期。
虽然上述手工操作能够实现数据报表的生成，但其效率较低，容易出现人工错误。如果用VB工具则可以通过以下方式实现上述功能：
01 建立基本逻辑图点击图片可放大
02 通过拖动工具栏，建立如下软件界面点击图片可放大
0 3 双击其中一个按钮来进行代码编辑以实现对应功能，以上图“订单下达周期”为例：首先打开Excel表格(代码示例)：
Set xlapp = CreateObject("Excel.Application")
Set xlbook=xlapp.Workbooks.Open(Dir1.Path & "" & "PR.XLS")
其次将采购申请单里每行数据的采购单号+物料号装入一维数组，并将采购申请审核日期放入另一维数组，并使两者一一对应(代码示例)：
Dim NPR As Integer
Dim LPR(0 To 32767)
Dim praptime(0 To 32767)
For NPR = 2 To MPR -1 Step 1
LPR(NPR) = Cells(NPR, "A")
praptime(NPR) = Cells(NPR, "C")
Next NPR
在其次，进行数据运算(代码示例)：
Range("AG2").Select
ActiveCell.FormulaR1C1 = "=RC[-29]-RC[-30]"
Range("AG2").Select
Selection.AutoFill Destination:=xlbook.Worksheets(1).Range("AG2:AG" & MPO - 1)
最后，生成数据透视表(代码示例)：
With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:PO审核周期")
Caption = "平均值项：PO审核周期"
.Function = xlAverage
.NumberFormat = "0.0_ "
通过上述方法，可以将繁琐的Excel操作交给软件实现，极大提高了工作效率，减少出错率，同时也满足了系统难于覆盖的需求。
小技巧：充分参考Excel自带的宏功能，能够实现部分代码的自动生成，减少代码难度。
作者：杜欢兴 天津深之蓝海洋设备科技有限公司采购主管
，
------------------------------------------END--------------------------------------------
本文为转载 。 审稿 编委:Violet 本文仅代表作 者观点，不代表SCOM之立场。如有不妥，请联系立即删除。
