基于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工作表对象的集合。
2 实验平台搭建 本文采用ADO是基于OLE DB数据库访问技术接口，后台数据库采用Access来实现，首先，在VC++中引用入Msado15.dll，初始化Com接口，并创建智能指针，_ConnectionPtr接口open方法联接数据源，打开数据库。
_RecordsetPtr接口open方法来打开数据表，并向指定的数据库发送sql查询语句，返回记录休。
2.1 初始化ADO环境：创建一个MFC的一个工程，导入ADO动态链接库在stdafx.h文件 ：CoInitialize（NULL）； //初始化COM对象 2.2 声明三个接口，初始化智能指针对象，连接对象（Connection）、命令对象（Command）和记录集对象（RecordSet）， 创建Connection对象，并设置数据源，访问数据库。
2.3 通过m_pRecordset 记录集对象指针中的成员函数来读取源数据表中数据 try { m_pRecordset.CreateInstance（__uuidof（Recordset））； //创建记录集对象实例 m_pRecordset—>Open（_bstr_t（sql），m_pConnection.GetInterfacePtr（），adOpenKeyset，adLockOptimistic，adCmdText）； } 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 （！MyExcel.CreateDispatch（"Excel.Application"，NULL）） { MessageBox（"创建Excel服务失败！"，"信息提示"，0）； exit（1）； } MyWorkBooks=MyExcel.GetWorkbooks（）； //创建工作簿集合对象 MyWorkBook=MyWorkBooks.Add（_variant_t（""））；//创建一个空工作簿，添加到集合对象中。
MyWorkSheets.AttachDispatch（MyWorkBook.GetWorksheets（），true）；//创建工作表集合 MyWorkSheet.AttachDispatch（MyWorkSheets.GetItem（_variant_t（"sheet1"）），true）；//创建sheet1工作表 MyRange.AttachDispatch（MyWorkSheet.GetCells（），true）；//创建单元格对象 //格式化Excel工作表 mBorder = MyRange.GetBorders（）； //设置单元格的边框 mBorder.SetLineStyle（COleVariant（（short）（1）））；//设置边框的线宽 COleVariant mxlCenter（（short）—4108）； // Const xlCenter = —4108 （&HFFFFEFF4） MyRange.SetVerticalAlignment（mxlCenter）； //设置单元格的居中 mColumnsRange = MyWorkSheet.GetRange（_variant_t（"A1"），_variant_t（"A1"））；//设置工作表中第一列宽 mColumnsRange.SetColumnWidth（COleVariant（（float）20））； //读取数据，生成报表记录 const int nMaxValue=mRecordCount+2； //总记录数 COleVariant mMyValue ； for （int j=1； j参考文献： [1]赵剑云.深入解析MFC[M].中国电力出版社，2003. [2]任哲.MFC Windows应用程序设计[M].清华大学出版社，2004 [3]刘晓华.精通MFC[M].电子工业出版社，2003. [4]Jeff Prosise.MFC.Windows程序设计第二版[M].清华大学出版社，2007. 作者简介： 邵英安（1982—），男，吉林白城人，硕士，讲师，研究方向：软件开发、计算机图形学、动画与游戏、虚拟现实等。