VC6下操作Excel时内存一直增长, 还有怎样关闭Excel进程(给分)
100ben988211]
编辑：www.fx114.net
本篇文章主要介绍了"VC6下操作Excel时内存一直增长, 还有怎样关闭Excel进程(给分)
100ben988211]"，主要涉及到VC6下操作Excel时内存一直增长, 还有怎样关闭Excel进程(给分)
100ben988211]方面的内容，对于VC6下操作Excel时内存一直增长, 还有怎样关闭Excel进程(给分)
100ben988211]感兴趣的同学可以参考一下。
在VC6下操作Excel时,&为什么退出时Excel进程总是关不掉,&如何不用TerminateProcess方法关闭Excel进程,&还有我在操作Excel时程序的内存一直在增长,&每次用完对象我也都释放了,&不懂了???
int&ExportExcelFile()
CString&strT
&&&&_ApplicationPtr&pApplication&=&NULL&;
&&&&_WorkbookPtr&pThisWorkbook&=&NULL&;
&&&&_WorksheetPtr&pThisWorksheet&=&NULL&;
WorkbooksPtr&pWbs=NULL;
&&&&SheetsPtr&pThisSheets&=&NULL&;
&&&&RangePtr&pThisRange&=&NULL&;
&&&&_variant_t&vt&;
_CrtSetDbgFlag&(&_CRTDBG_ALLOC_MEM_DF&|&_CRTDBG_LEAK_CHECK_DF&);&
if(FAILED(::CoInitialize(NULL)))
&&&&&&&&return&&0;
for(int&i=1;&i&&20;&i++)
pApplication.CreateInstance("Excel.Application");
pApplication-&PutVisible&(0,VARIANT_TRUE);
pWbs&=&pApplication-&GetWorkbooks();
pThisWorkbook&=&pWbs-&Add()&;
pThisSheets&=&pThisWorkbook-&GetWorksheets()&;
pThisWorksheet&=&pThisSheets-&GetItem((short)1);
for(int&j=1;&j&100;&j++)
strTmp.Format("A%d",&j);
pThisRange&=&pThisWorksheet-&GetRange(_variant_t(strTmp),&vtMissing);
pThisRange-&PutValue2(_variant_t(strTmp));
pThisRange.Release();
pThisWorksheet.Release();
pThisSheets.Release();
pThisWorkbook-&Close(_variant_t(false),&vtMissing,&vtMissing);
pThisWorkbook.Release();
pWbs.Release();
pApplication-&Quit();&&
pApplication.Release();
::CoUninitialize();
&&& _CrtDumpMemoryLeaks();&
return&0&;
}把Release换成ReleaseDispatch，实验一下内存一直在增长，说明有那个函数需要大的内存，建议你将一些代码分割调试，看看问题出在那儿了！只是运行上边这一小段代码,&内存就增长了,&而且函数运行完关闭Excel,&内存还是不能释放,&我不知道哪出现了问题,&呵呵&ReleaseDispatch,同意一楼的说法先只打开关闭，然后逐条加上读写操作，看哪个影响的
另外可以看看这个
http://www.vckbase.com/document/viewdoc/?id=1168不懂，帮顶_CrtSetDbgFlag&(&_CRTDBG_ALLOC_MEM_DF&|&_CRTDBG_LEAK_CHECK_DF&);&
把这行CRT检查内存leaks的代码去掉。
关闭excel进程的代码没有问题。
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
利用VC操作Excel生成图文报表.doc 16页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
利用VC操作Excel生成图文报表
你可能关注的文档：
··········
··········
VC中利用Excel2003生成图文报表
写： 邵江 日 期：
武汉东健科技有限公司
文档变更记录
序号 变更（+/-）说明 作者 版本号 日期 批准
VC利用EXCEL模板实现报表打印的九大步骤#include "excel9.h" //使用EXCEL类需要包含的头文件
　　#include "comdef.h" //使用EXCEL类需要包含的头文件
　　（注：需要"excel9.h"和"excel9.cpp"，是通过类向导添加新类中的from a type library 到office安装目录下加载olb 文件 注意excel加载exe文件）
　　第二步：创建对象
　　_Application ExcelA
　　Workbooks wbsMyB
　　_Workbook wbMyB
　　Worksheets wssM
　　_Worksheet wsM
　　Range rgMyR
　　第三步：创建EXCEL服务器
　　/*创建EXCEL服务器*/
　　if (!ExcelApp.CreateDispatch("Excel.Application", NULL))
　　AfxMessageBox("创建EXCEL服务器失败!");
　　第四步：利用EXCEL模板创建EXCEL文档
　　//strPath为模板的全路径名
　　wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(), true);
　　wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));
　　catch(...)
　　AfxMessageBox("EXCEL模板打开失败，请检查文件是否存在!", MB_OK | MB_ICONSTOP);
　　ExcelApp.Quit();
　　第五步：关联对象
　　/*得到Worksheets*/
　　wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(), true);
　　/*得到Worksheet1*/
　　wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")), true);
　　/*得到全部Cells，此时,rgMyRge是cells的集合*/
　　rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
　　第六步：设置单元格的值
　　rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("姓名")); //1*1
　　rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)2),_variant_t("QQ号")); //1*2
　　rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)1),_variant_t("风云在线")); rgMyRge.SetItem(_variant_t((long)2),_variant_t((long)2),_variant_t(""));
　　第七步：打印预览
　　ExcelApp.SetVisible(true);
　　wbMyBook.PrintPreview(_variant_t(false));
　　第八步：退出EXCEL应用程序
　　/*设置保存标志为已保存，则不会弹出保存模板对话框,
　　实际上并未保存，只是认为的标志保存了，因为这里不需要保存*/
　　wbMyBook.SetSaved(true);
　　/*退出EXCEL应用程序*/
　　ExcelApp.Quit();
　　第九步：释放对象
　　/*释放对象*/
　　rgMyRge.ReleaseDispatch();
　　wsMysheet.
正在加载中，请稍后...拒绝访问 | www.ggdoc.com | 百度云加速
请打开cookies.
此网站 (www.ggdoc.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(43939eb14aba438e-ua98).
重新安装浏览器，或使用别的浏览器POI操作excel内存一直增大解决方法_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&10W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
POI操作excel内存一直增大解决方法
网络应用师|
总评分4.2|
用知识赚钱
&&POI操作excel内存一直增大的原因及解决办法
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩1页未读，
定制HR最喜欢的简历
你可能喜欢VC++操作EXCEL表格，附带两个小例子
我的图书馆
VC++操作EXCEL表格，附带两个小例子
读取的文件的方法有很多，但是也许就是因为方法太多，大家在选择的时候会很疑惑。
由于前两天要做导表工具，比较了常用的方法，总结一下写个短文，
&&&&&&OLE的方式
这个大约是最常用的方式，这个方式其实启动了一个的进程在背后读写文件，这个方式的最大好处是什么事情都能做。包括设置的格式，增加删除，读写单元格，等等。功能几乎是最全的，而且使用起来也不是特别的难。
其基本方法都是使用导出的文件进行操作，但是由于的接口说明文档不多，想非常完美的使用她们也不是太容易，好在例子也很多。
网上普遍认为速度慢，的读写方式也基本一样。但是读取速度可以改进，如果在读取的加载整个的的全部数据，而不是一个个单元格读取，那么速度还是相对不错。想想原理也很简单，整体读取减少了的交互次数。的写入方式一般只能几个进行比较方便，所以速度可能要快很多。
我自己的亲身体会是，一个文件，多列的字段，如果采用一个个单元格的读取方式，大约条左右的记录，如果整体读取，速度可以提高几十倍。
读写方式功能很强大，读取速度还可以，但写入速度不高，当然这个方式不可能移植的，而且你必须安装了。
这是上的一个推荐开源工程了，
作者是基于的文件格式进行的处理。但是为什么叫呢。他不支持很多东西，公式，文件格式，表格合并等（有人说中文支持也不好），所以可以认为他只支持最基本的表格，我自己的尝试是如果这个文件有其他元素（公式，格式等），使用读取会失败。
读写方式功能比较弱，由于是直接根据文件格式操作，读写速度都不错，你也不需要按照，另外这个方式是可以移植的，但是有一些成本，其代码比较晦涩难懂，而且没有注释，另外即使在平台上，告警也很多。
上的几个库。
上有几个开源的的库，但是完善的不多，有的是为了读写准备的，包括，，等。我下载了几个实验了一下，在都没有编译成功。也罢了。
这个亲身没有尝试过，但是按照原理，应该只能读写。速度吗，的速度本来就是出名的慢了。
的方式听说应该就是使用的方式。和的方式应该没有本质区别。我看了看例子也和很像
是一个收费的的库。
按照他的说明，他可以不依赖读取文件。包括设置格式等。看例子操作应该很简单。但是是否可以移植到平台，我估计难度也不小。呵呵。
由于要收费，没有法子测试了。
网上一些号称不用读取例子
初步看了一下，这个应该是网上探索格式文档的例子。可以实际操作的方式不强。
一、直接通过读、写表格文件
首先，我们要明白的是，是通过来访问表格的，也就是说，将表格，当作数据库来处理。当然了，也可以通过读以键隔开的文件来处理这样的文件，但是，我还是更加愿意用读取数据库的方式来访问表格。
第二，既然是数据库，那么，就需要建立一个与该库对应的，这个，而且，在建立之前，首先要确定，已经安装了的驱动。
第三，要访问数据库中的表格，就要先打开该表格，如此，就需要一个与之对应的
想要通过直接读、写表格文件，首先，应确保中已安装有表格文件的驱动。然后，可根据下面步骤进行：
在文件中加入：
通过直接创建文件暂定文件名：
创建并写入文件
要建立的文件
创建进行存取的字符串
创建数据库既表格文件创建表结构姓名、年龄(Name&TEXT,Age&NUMBER)";
&&&&&&database.ExecuteSQL(sSql);
&&&&&&//&插入数值
&(Name,Age)&VALUES&('徐景周&(Name,Age)&VALUES&('徐志慧郭徽
序号射杀方被射杀方时间为字符串类型
关闭数据库
驱动没有安装
通过直接读取文件暂定文件名：
将被读取的文件名
检索是否安装有驱动没有发现驱动
没有安装驱动创建进行存取的字符串
打开数据库既文件设置读取的查询语句注意此处表名的写法，里的表默认为系统表，所以访问表时表明应为表明&"&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&"ORDER&BY&Name&";
&&&&&&&&//&执行查询语句
获取查询结果
读取内部数值
移到下一行
关闭数据库
数据库操作产生异常时数据库错误获取中驱动函数
获取已安装驱动的名称涵数在里检索已安装的驱动是否有发现
二、通过OLE/COM实现对Excel表格的操作
、添加支持。
首先，应用程序必须添加对的支持，才能导入组件。
本文使用的是对话框程序，在创建工程的向导中选中选项即可为程序自动添加相应的头文件和库初始化代码。
通过查看源代码，可以知道在的头文件中，添加了很多类所需添加的头文件。
同时，在应用程序类的函数中，添加了的初始化代码，如下所示：
、导入并封装中的接口
作为库插件，定义好了各类交互的接口，这些接口是跨语言的接口。可以通过导入这些接口，并通过接口来对的操作。
由于本文只关心对表格中的数据的读取，主要关注几个、、、、、等几个接口。的各类接口的属性、方法可以通过的进行查询。
导入组件的接口的步骤为：，先选择要导入的组件所在的路径，即所在的路径，然后再选择
要导入的类型库中的接口。
在完成接口导入后，将自动为导入的接口创建相应的实现类，用于对接口属性和方法的实现。由于标准的没有属性访问器，只能添加一个两个存取函数来实现对属性的访问，通过在属性名称前加上和前缀分别实现对属性的读写操作。即，由自动完成类对接口的封装。
本文所导入的接口对应的类和头文件的说明如下所示
<span style="color:#、导入Excel的整个类型库
接口对应类只是对接口的属性和方法进行了封装，而Excel中的数据类型，如枚举类型却并为并不能使用，因此，为了更方便的操作Excel，还需要导入Excel的数据类型。
通过查看导入接口对应的头文件可以发现，在所有导入接口的头文件中，都会有这么行：
#import"D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE"no_namespace
这行代码的作用是导入Excel整个类型库到工程中。
由VS2010自动产生的导入代码存在以下几个问题：
（<span style="color:#）如果导入了多个接口，每个头文件都会把类型库导入一次，如果引用多个头文件，会导致类型库重复导入。
（<span style="color:#）Excel类型库中有些类型会跟MFC类库的某些类型冲突。
（<span style="color:#）Excel类型库的某些类型跟其他Office和VB的某些库相关，如果不导入相关库，将导致这些类型无法使用。。
以上三点问题的解决方法如下：
（<span style="color:#）仅在_Application接口对应头文件中导入Excel类型库。
（<span style="color:#）对冲突的类型进行重命名。
（<span style="color:#）在导入Excel类型库之前，先导入Office和VB的相关库。
更改后的导入类型库的代码如下：
/*导入Office的类型库*/
#import"C:\\Program Files\\Common Files\\MicrosoftShared\\OFFICE12\\MSO.DLL" \
rename("RGB","MSORGB") \
rename("DocumentProperties","MSODocumentProperties")
usingnamespace O
/*导入VB的类型库*/
#import"C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"
usingnamespace VBIDE;
/*导入Excel的类型库*/
#import"D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" \
rename("DialogBox","ExcelDialogBox") \
rename("RGB","ExcelRGB") \
rename("CopyFile","ExcelCopyFile") \
rename("ReplaceText","ExcelReplaceText") \
no_auto_exclude
Using namespace E
编译程序后，会在Debug或Release目录下生成三个文件mso.tlh、vbe6ext.tlh和excel.tlh。通过打开文件可知，该三个文件的命名空间分别是Office、VBIDE和Excel。导入了Excel的整个类型库后，就可以使用Excel中的所有类型了。
<span style="color:#、操作Excel步骤
操作Excel的主要步骤如下：
（<span style="color:#）创建一个Excel应用程序。
（<span style="color:#）得到Workbook的容器。
（<span style="color:#）打开一个Workbook或者创建一个Workbook。
（<span style="color:#）得到Workbook中的Worksheet的容器。
（<span style="color:#）打开一个Worksheet或者创建一个WorkSheet。
（<span style="color:#）通过Range对WorkSheet中的单元格进行读写操作。
（<span style="color:#）保存Excel。
（<span style="color:#）释放资源。
<span style="color:#、批量处理Excel表格
VC通过OLE/COM操作Excel，是通过进程间的组件技术。因此，每次读写Excel中的单元格时，都要进行进程间的切换。当数据量大，如果一个单元格一个单元格的读取，主要的时间都花费在进程切换中。因此读取多个单元格，将可有效的提高程序的运行效率。
对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。
VARIANTget_Value2();
voidput_Value2(VARIANT& newValue);
其中，输入参数newValue只要输入一个二维数组，即可实现向Excel中一次写入多个单元格的值。
其中，VARIANT中实现二维数据的方法可参考
http://www.cnblogs.com/xianyunhe/archive//2174703.html
当然，在对CRange类进行操作之前，要设置CRange类对应的单元格。
<span style="color:#、Excel表格的保存
（<span style="color:#）如果要保存打开的工作簿，使用CWorkbook类的Save函数就可以保存工作簿，原文件将被覆盖。
（<span style="color:#）如果是新创建的工作簿，或者是要另存为，可使用CWorkbook类的SaveAs函数。
SaveAs的参数比较多。其中，第<span style="color:#个参数是设置要保存文件的路径；第<span style="color:#个参数是设置文件的格式，可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试，在本文所用的测试环境中，Excel2003的文件格式是xlExcel8，Excel2007的文件格式是xlExcel4。
<span style="color:#、获取当前Excel的版本
可以通过CApplication的get_Version函数来获得Excel的版本，其中，Excel2007的主版本号是<span style="color:#，Excel2003的主版本号是<span style="color:#。
<span style="color:#、示例源代码
主要代码如下：
创建服务器启动启动服务器失败判断当前的版本当前的版本是。当前的版本是。当前的版本是其他版本。得到工作簿容器打开一个工作簿，如不存在，则新增一个工作簿打开一个工作簿增加一个新的工作簿得到工作簿中的的容器打开一个，如不存在，就新增一个打开一个已有的
创建一个新的
)1), vtMissing);
sheet.AttachDispatch(lpDisp);
sheet.put_Name(strSheetName);
system("pause");
/*向中写入多个单元格规模为
),_variant_t("J10"));
range.AttachDispatch(lpDisp);
VARTYPE vt = VT_I4; /*数组元素的类型，
/*用于定义数组的维数和下标的起始值
].cElements =
sabWrite[0].lLbound =
sabWrite[1].cElements =
sabWrite[1].lLbound =
COleSafeArray olesaW
olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);
/*通过指向数组的指针来对二维数组的元素进行间接赋值
(*pArray)[2]= NULL;
olesaWrite.AccessData((void **)&pArray);
memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements*
sizeof(long));
/*释放指向数组的指针
对二维数组的元素进行逐个赋值
index[2]= {0,
long lFirstLBound = 0;
long lFirstUBound = 0;
long lSecondLBound = 0;
long lSecondUBound = 0;
olesaWrite.GetLBound(1, &lFirstLBound);
olesaWrite.GetUBound(1, &lFirstUBound);
olesaWrite.GetLBound(2, &lSecondLBound);
olesaWrite.GetUBound(2, &lSecondUBound);
for (long i = lFirstLBi &= lFirstUB i++)
index[0] =
for (long j =lSecondLB j &= lSecondUB j++)
index[1] =
long lElement = i * sabWrite[1].cElements +
olesaWrite.PutElement(index, &lElement);
/*把变量转换为并写入到表格中
/*根据文件的后缀名选择保存文件的格式
CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
XlFileFormat NewFileFormat = xlOpenXMLW
if (0 ==strSuffix.CompareNoCase(_T(".xls")))
)NewFileFormat),vtMissing, vtMissing, vtMissing,
vtMissing, 0, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing);
system("pause");
/*读取表中的多个单元格的值，在中显示
lFirstUBound = 0;
lSecondLBound = 0;
lSecondUBound = 0;
olesaRead.GetLBound(1, &lFirstLBound);
olesaRead.GetUBound(1, &lFirstUBound);
olesaRead.GetLBound(2, &lSecondLBound);
olesaRead.GetUBound(2, &lSecondUBound);
memset(index, 0, 2*
sizeof(long));
m_ListCtrl.InsertColumn(0, _T(""),
for (long j =lSecondLB j&= lSecondUB j++)
CString strColName = _T("");
strColName.Format(_T("%d"), j);
m_ListCtrl.InsertColumn(j, strColName, 0,
for (long i =lFirstLB i &= lFirstUB i++)
CString strRowName = _T("");
strRowName.Format(_T("%d"), i);
m_ListCtrl.InsertItem(i-1, strRowName);
index[0] =
for (long j =lSecondLB j &= lSecondUB j++)
index[1] =
olesaRead.GetElement(index, &varItem);
switch (varItem.vt)
case VT_R8:
strItem.Format(_T("%d"), (int)varItem.dblVal);
case VT_BSTR:
strItem = varItem.bstrV
case VT_I4:
strItem.Format(_T("%ld"), (int)varItem.lVal);
, j, strItem);
/*释放资源
版权声明：本文为博主原创文章，未经博主允许不得转载。
[转]&[转]&[转]&[转]&
喜欢该文的人也喜欢