浅谈利用VBA实现EXCEL与网页的数据交互

张创建

（日立电梯（中国）有限公司，广州，511430）

【摘要】文章通过利用微软Office系列之EXCEL软件进行VBA开发辅助工具的实例，讨论了利用VBA编程实现EXCEL与企业系统网页进行数据交互的方法，并对现代企业信息化提出合理的建议。

【关键词】Office；EXCEL；VBA；数据交互；PART/BOM

Analysis On The Data Interchange Between Excel And Web By VBA

Zhang Chuangjian

(Hitachi Helicopter Corporation, Guangzhou Guangdong, 511430)

Abstract: The paper discusses the method of Data Interchange Between Excel And Web, through the case the author uses VBA to explore assisstant  tools by VBA. Meanwhile, some advice is given on the corporation informationization.

Keyword: Office；EXCEL；VBA；Data Interchage；PART/BOM

1. 前言

现代企业，只要使用到计算机，就必定会使用到办公软件，而在众多的办公软件中，又以微软的Office最受欢迎。Office办公软件的应用范围很广，大到社会统计，小到会议记录，可以说现代企业几乎离不开office软件.。但是，人们在日常的工作中，对于Office的利用，大多仅限于文字编辑、表格处理、文档演示，数据的存储、记录以及简单的表格数据分析。其实Office的功能和应用范围远不止上述的程度，可以说，现代企业的人们对Office的功能利用普遍在10%以下。

微软Office是非常强大的一款软件，除了众所周知的文字编辑，表格处理等功能之外，还有许多强大的数据处理、工作管理、流程管理等功能，笔者在日常工作中就发现有一项非常有用的功能，可以帮助我们大幅度提高日常的办公效率，这项功能就是Office软件自带的VBA（Visual Basic for Application）的应用。通过VBA，我们可以把有规律的操作工作交给计算机去处理，可以把Office的不同套件联合起来使用，从而使得我们对数据的处理和操作速度提高，工作起来事半功倍。

2. VBA的简介

         VBA（Visual Basic for Applications）是非常流行的应用程序开发语言VB（Visual Basic）的子集，它继承了VB 的开发机制，具有与VB 相似的语言结构，有几乎相同的集成开发环境IDE（Intergrated Development Environment），并且经过优化，可专门用于Office 的各应用程序的二次开发。它与VB的主要区别是必须依附于已有的应用程序（如EXCEL等），它面向的对象主要是常用的应用程序（如OFFFICE套件，AUTOCAD等），它面向的使用者主要是业余程序员爱好者。

         VBA最大的特点是它的代码可以是录制出来的，即使是完全不懂编程语言的门外汉，也可以通过录制宏的方式实现一些简单的自动化操作。如果用户有一点编程基础，就可以在录制出来的宏代码中进行适当的修改，使录制出来的宏代码更具通用性，运行效率更高。这就给业务程序爱好者提供了一个非常棒的学习和应用的平台。VBA可以录制宏的功能带来的好处就是用户可以在很短的时间熟悉应用程序（如EXCEL）的对象模型，参照录制出来的宏代码，通过运行测试结果，可以让用户快速的理解每一句代码的意义。写几行代码，然后直接运行测试结果，这种交互式的学习让用户在初始学习VBA编程即可享受到成功的乐趣，也能非常好的激发用户的学习热情，可以让用户较快的拥有独立编写VBA代码的能力。

3. VBA在Excel与网页的数据交互的应用

近十多年来，企业信息化建设进行得如火如荼，为了赶上时代的步伐，为了解决产能提升导致的产品、生产信息管理不善等问题，各企业纷纷引入包括PLM、ERP等大型系统。笔者所在的企业也不例外，在前几年引入PTC公司的PLM产品—Windchill系统，一套基于Internet和相关信息技术的软件集成平台，可以让用户通过网页对产品数据进行维护和查阅。新的系统可以让企业的产品数据更规范，可以管理更庞大的数据，但随之而来的是对数据的严格要求，尤其是在系统内构建物料清单—PART/BOM的工作，给设计人员带来了很大的冲击，很长一段时期内，设计人员感觉工作效率大幅度降低，花在纯操作的时间大大增加，甚至超过了进行产品设计的时间。这对于一个从事技术研究的设计人员来说，是非常不可思议的。

         那么，我们有什么办法可以解决这个问题呢？经过对业务和系统的深入研究，笔者发现系统后台对于产品数据的存储还是以数据库表为基础的，那么，我们是否可以将在系统网页上的操作转移到设计人员比较熟悉的EXCEL环境中来呢？通过与Windchill系统的顾问以及公司的信息部门的相关人员进行沟通后，信息部门的同事确认此前已经有通过客制化开发的数据导入接口，可实现将符合格式要求的数据导入系统形成PART/BOM数据。接下来的问题就是如何将设计人员平时所做的设计数据转化为符合Windchill系统格式要求的文件了。

3.1 系统现有的PART/BOM数据

PART属性：

图一

BOM结构：

图二

3.2 系统要求的PART/BOM文件格式

PART文件格式：

图三

BOM文件格式：

图四

说明：通过将PART文件导入系统产生PART，包括PART的各属性信息；再将BOM文件导入系统，将PART组织起来形成系统的BOM。PART/BOM数据可以作为数据流传递到ERP系统供制造部门使用。

3.3 设计原理

         非标设计工具是在EXCEL环境利用VBA语言开发的，在运行过程中，先是通过与Intranet的Windchill系统网页产品数据进行交互，获取实时产品数据结构到EXCEL；设计人员在EXCEL环境对产品进行变形设计后，再通过程序与Access数据库进行数据交互，获取相关物料的属性；最终输出产品数据文件，并导入Windchill系统形成新的PART/BOM产品数据。其操作界面及工具的运行原理如下图所示：

图五

3.4 VBA编程实现过程

3.4.1 通过网址将产品数据读取到EXCEL

         以下一段源代码（截取部分），可以根据网址将企业内部网（产品设计系统）的数据自动读取到EXCEL工作表中：

图六

运行代码获取到的数据如下：

图七

竖直方向程序自动设置了分级显示，将BOM结构中有嵌套的层级分级，方便设计人员收起或展开查看；横向也设置了分组显示，分别有层级显示组，分类属性组，公用属性组等，便于设计人员对于要做变形设计的零部件展开填写相关属性，以便后续将这些属性一并导入系统，避免在系统内补充填写属性的繁琐操作。

3.4.2标准属性参考提取

         设计人员进行变形设计时，大部分属性需要参考以前的标准属性，因此，进行变形设计后的新PART，能自动提取参考的标准属性对于效率的提高非常有帮助。为了实现此功能，笔者采用定期从系统内导出数据库的PART属性，存放到ACCESS数据库文件，并在局域网内共享。设计人员在EXCEL中完成变成设计后，只需要点击“关联零件编码多层级”菜单项，即可从ACCESS数据库自动读取参考的标准PART属性到EXCEL。下图为提取PART属性的部分源代码：

图八

3.4.3新PART/BOM数据输出

         设计人员完成属性的编辑后，就可以点击“输出PART多层级”菜单项将新PART的数据输出到硬盘，并最终将之导入系统形成新的PART数据；同理，点击“输出BOM多层级”菜单项可以将BOM结构数据输出到硬盘。下图是输出PART的部分代码：

图十

3.4.4数据导入系统

         得到工具输出的PART/BOM数据文件后，就可以将这些PART/BOM数据文件导入Windchill系统形成新的PART/BOM数据，完成设计。

图十一

         应用非标设计工具，设计人员构建PART/BOM的工作效率得到很大的提升，例如，以前要花一天的时间构建PART/BOM的工作，现在30分钟内就可以完成，而且完成的质量更高。

4.给企业信息化的建议

近年来企业开展信息化建设，纷纷引进PLM\ERP\CAPP等大型系统及平台，使开发、设计、制造、供应链、售后等各环节各部门能更紧密的协作，努力消除信息孤岛。但是可能因为系统的局限、企业具体业务需要，有些工作并不能依赖系统软件去完成而需要工作人员反复繁琐地进行操作。很多企业忽略了日常使用最普遍、最频繁的Office软件的强大功能，员工使用Office仅限于基本功能，企业也没有专门的部门进行Office的应用研究或开发。如果用户可以利用Office自带的VBA编程环境，结合本部门的实际工作情况，自行开发一些辅助工具，这些工具给工作效率带来的提升可能超过100%。把人从繁琐的操作工作中解放出来，员工可以花更多的时间去思考工作改革与创新，这将会给企业带来更多的效益。

笔者根据多年的工作经验及对Office的体验，提出以下建议：

（1）在企业内开设Office专业培训课程，并作为员工的必修培训课程。

    虽然很多员工都学过Office软件，但因为缺乏与实际工作结合，很多功能都没有充分利用；甚至有些员工对Office完全不了解。对全部员工进行Office基础教育和跟业务相关功能的培训显得尤为重要。当所有的员工都对各种软件包括Office软件加以熟练使用时，企业信息化才是真正意义上的信息化。

（2）企业鼓励员工结合本部门业务利用VBA等开发辅助工具，对贡献突出者加以奖励。

    现代企业里，有才能的员工很多，但是可能因为公司缺乏激励机制和合理奖惩，员工失去了创新的动力。企业应该制定合理、稳定的激励机制和奖惩制度，鼓励员工充分发挥自身的知识才能，开发出各种辅助工作的软件，并在全公司内推广，使得全公司范围的工作效率大大提高。

（3）扩展企业的信息部门的职能，增加对Office等软件应用的研究与客制化开发，以辅助提高业务部门的工作效率。

    现代企业大多设有信息部门，但是并不是所有的信息部门都进行软件的开发和系统的企业客制化开发。如果企业的信息部门可以根据公司的具体情况，设计符合自己企业的软件，或者根据企业的具体业务要求改良和完善已购的大型软件，那么很多不必要的操作步骤就不会出现，办公流程简单化，员工的办事效率自然就会提高了，这才最终实现了企业信息化的目的。

（4）组织员工出外参加信息化的培训，参观学习其他企业的信息化建设经验。

    企业信息化建设不能局限于自身的建设经验，应该经常请教专家，跟其他企业进行交流，实现“走出去、请进来”。组织员工到外面参观各种培训或学习其他企业的信息化建设经验，取长补短；也经常把专家们和其他企业请进来，让他们对本企业的信息化建设进行指导和给出合理的建议，从而提高和完善企业的信息化建设。

参考文献

[1]韩小良,周宁.EXCEL VBA实用技巧大全[M].北京市:中国铁道出版社,2007

[2]王莉.基于Excel和VBA的企业数据管理应用实例[J].电脑知识与技术,2012(4):760-763.

[3]姜丽杰.VB与Excel数据导入导出的研究与实现[J].辽宁师专学报,2012(1):43-45.

[4]刘旭东.利用ExcelVBA读取外部数据技术研究[J].计算机光盘软件与应用,2012(4):35-39.