利用VBA在Excel和Word中完成复杂的数据引用.docVIP

利用VBA在Excel和Word中完成复杂的数据引用 　　摘要：文章以编程为基础，介绍了在基于Office的生产办公中，如何利用VBA语言在常用的Excel和Word中进行数据交叉引用和综合，并分析其中的重点和难点，以实现将复杂、重复的日常工作自动化，从而提高用户的工作效率。 　　关键词：VBA编程；数据引用；Excel；Word 　　中图分类号：TP311文献标识码：A文章编号：1009-3044(2011)24-5908-03 　　Complicated Data Reference Based on VBA in Excel and Word 　　WANG Gui, SHI Xian 　　(Ertan Hydropower Development Company,Ltd. Ertan Hydropower Station, Panzhihua 617000, China) 　　Abstract：In the way of programing,how to cross-reference and integrate data in the commonly used Excel and Word with VBA languages in Office-based work item will be discussed, and analyze the important and difficult,then make achievement that complicated,repetitive daily work run automatically and improve the efficiency of work. 　　Key words: VBA programing; data reference; Excel; Word 　　在日常的Office办公中，经常出现标准命令无法满足用户需求或者标准命令的操作过程过于繁琐等方面的实际问题，VBA作为嵌入在Office套件中的程序开发语言，可以使Office应用程序得到扩展或者将Office应用程序及数据集成到其它应用程序中，解决用户的诸多难题，使得Office更加实用和智能化，从而提高用户的工作效率。 　　用户无论是在Excel中还是在Word中，建立和管理VBA都使用统一的方法和标准。Application是Excel、Word对象模型中最高级别的对象，表示Excel、Word程序自身[1]。Workbooks 、Worksheet 等又为Application对象，Excel应用程序在后台运行时，可以通过他们来访问具体的工作表等。Word VBA也提供了很多对象，在它的Application对象中有个Documents集合，其中包含每个打开文档的Document对象，利用这个对象可以访问任何打开的文档。Tables对象用来表示文档中的一个表格，Cell对象表示表格中的一个单元格[2]。 　　1 问题描述 　　某公司在每个月结束之后都要对该月每天以及全月的重要的生产数据进行统计和分析，所需数据格式样表如表1所示。该问题的复杂性在于表1中的数据来自不同的Excel报表和Word报表中，数据文件的结构如图1所示。由于该工作涉及文档繁多，数据量庞大，每次依靠人工抄写和统计都耗费大量的人力和时间，工作繁琐重复，且经常难以保证数据的正确性，本文就针对这个复杂问题，讨论在Office中利用VBA编程如何实现自动提取和生成所有数据的功能。 　　2 VBA程序 　　2.1 程序准备 　　由上可知，我们需要做的是从Excel的角度用VBA程序来进行数据综合。要顺利读取各种所需要的数据，必须先做好一些准备工作： 　　准备一 定义变量 　　Dim strdir, strfl As String定义地址变量为字符串变量。 　　Dim i As Integer定义将用到的循环变量。 　　Dim axlApp As Excel.Application将Axlapp指向Excel应用程序本身。 　　Dim axlBook As Excel.Workbook将axlBook定义为工作薄类型。 　　Dim sheet,asheet As Excel.Worksheet 将sheet,asheet定义为工作表类型。 　　由于涉及到的工作薄、工作表、数据量巨大，所以我们必须要定义足够的变量来满足程序流程的要求，这将使得后续的程序语言组织起来较为灵活，提取数据的方法也可以多样。 　　准备二 计算当月的天数 　　Dim y,m,d,ds As Integer 　　Set asheet =ActiveWorkbook.Sheets(3)将asheet指向