基于VBA的Excel报表的设计与实现.docx

基于VBA的Excel报表的设计与实现 摘要：在MFC实际应用过程当中，所要处理的数据量较大时，当从数据库读取数据，使用本身自带的控件来显示打印大批记录时，就会出现响应慢，有时会出现无法响应的情况，应用程序显示处于忙碌状态，并且会消耗大量的系统内存资源，为了解决上述问题，本文采用了在VC环境中调用VBA对象，将数据库中的数据动态生成Excel数据报表的方法来打印记录，并具体给出详细设计过程，并验证其方法的可行性。 下载 关键词：VC+ Excel VBA 数据报表 1 概述 Excel VBA程序开发中主要利用VBA的对象中成员函数来对大批数据进行数据处理，其特点是速度快、通用性好、执行效率高。Excel对象模型主要由Application、Workbook、Worksheet 、Range 、Style和Chart对象等以及Workbooks集合、Worksheets集合、Sheets集合和Styles集合其他很多对象。其中Application对象代表Excel应用程序，Workbook对象代表一个工作簿，Worksheet对象代表一张工作表，Style对象代表某一区域的样式， Chart 对象代表工作簿中的图表，Range 对象代表某一单元格、行列或选定区域。Workbooks集合代表是当前程序中所打开的全部的Workbook工作簿对象的集合，Worksheets集合代表是工作簿当中所有Worksheet工作表对象的集合。VBA对象调用的格式：对象名.属性名或对象名.方法名。 2 实验平台搭建 本文采用ADO是基于OLE DB数据库访问技术接口，后台数据库采用Access来实现，首先，在VC+中引用入Msado15.dll，初始化Com接口，并创建智能指针，_ConnectionPtr接口open方法联接数据源，打开数据库。_RecordsetPtr接口open方法来打开数据表，并向指定的数据库发送sql查询语句，返回记录休。然后，启动创建Excel文件，并生成相应报表记录。 2.1 初始化ADO环境：创建一个MFC的一个工程，导入ADO动态链接库在stdafx.h文件 ：CoInitialize（NULL）； /初始化COM对象 2.2 声明三个接口，初始化智能指针对象，连接对象（Connection）、命令对象（Command）和记录集对象（RecordSet）， 创建Connection对象，并设置数据源，访问数据库。 2.3 通过m_pRecordset 记录集对象指针中的成员函数来读取源数据表中数据 try m_pRecord创建记录集对象实例 m_pRecordset-Open（_bstr_t（sql），m_pConnectxt）； catch （_com_error e）/捕捉错误 AfxMessageBox（e.Description（）； /弹出错误 return ； 2.4 初始化VBA环境 在MFCK中：按Ctrl+W，单击Add Class，选择From a type library，弹出Import from Type Library对话框，找到Office安装目录，找到MSEXCEL.OLB打开，并选中_Application，Workbooks，_Workbook、_Worksheet和Worksheets等，并单击确定。 创建Excel文档 首先，创建三个变量，初始化所有相关对象并设置纸张横向打印，设置单元格的边框、字体、宽度及所创建工作表中列数、标题名称和列宽。 COleVariant vTrue（short）TRUE）； /真 COleVariant vFalse（short）FALSE）； /假 COleVariant vOpt（long）DISP_E_PARAMNOTFOUND， VT_ERROR）； _Application MyExcel； /创建一个新的Excel文档 Workbooks MyWorkBooks； /创建工作簿集合 _Workbook MyWorkBook； /创建工作簿 Worksheets MyWorkSheets； /创建工作表集合 _Worksheet MyWorkSheet； /创建工作表 Range MyRange；/用来接收数据的单元格 Font mFont；/字格对象 Borders mBorder；/边框对象 PageSetup mPageSetup；/分页对象 /创建Excel文件 if （！MyExeBox（创建Excel服务失败！，信息提示，0）； exit（1）； MyWorkBooks=MyEx创建工作簿集合对象 MyWorkBook=MyWorkBo创建一个空工作簿，添加到集合对象中。 MyWorkShe创建工作表集合 MyWorkSh），true）；/创建sheet1工作表 MyRa创建单元格对象 /格式化Excel工作表 mBorder = MyRa设置单元格的边框 mBor设置边框的线宽 COleVariant mxlCenter（short）-4108）； / Const xlCenter = -4108 （&HFFFFEFF4） MyRa设置单元格的居中 mColumnsRange = MyWorkSh设置工作表中第一列宽 mColumnsRa读取数据，生成报表记录 const int nMaxValue=mRecordCount+2； /总记录数 COleVariant mMyValue ； for （int j=1； j=mRecordCount+2；j+） if （j=1） /设置标题行，即所有字段名 else MyRae）； MyRae）； . 实现方法 综上所述，并结合具体项目开发，最终生成的报表如下所示。 3 结束语 实践证明，在实际的项目开发的过程当中，采用VBA技术并结合数据库技术，来生成复杂数据报表的思路，有助于提高项目开发的效率。 参考文献： 赵剑云.深入解析MFCM.中国电力出版社，2003. 任哲.MFC Windows应用程序设