描述:
void CExcelOpeDlg::TransUpData(Range &desRge, Range &sourceRge, int desSheetIndex, int ZoneIndex)
{
_variant_t OrderNum, PeopleNum;
//读取数据
OrderNum = sourceRge.GetItem(_variant_t((long)m_UpDataAddupRow),_variant_t((long)2));
PeopleNum = sourceRge.GetItem(_variant_t((long)m_UpDataAddupRow),_variant_t((long)3));
if (0 == desSheetIndex)
{
desRge.SetItem(_variant_t((long)(m_OrderNumLastYWRow + 1)), _variant_t((long)(ZoneIndex + 1)), OrderNum);
desRge.SetItem(_variant_t((long)(m_OrderNumLastYWRow + 2)), _variant_t((long)(ZoneIndex + 1)), PeopleNum);
}
else if (1 == desSheetIndex)
{
desRge.SetItem(_variant_t((long)(m_DetailedTableLastYWRow + 1)), _variant_t((long)(ZoneIndex * 2)), OrderNum);
desRge.SetItem(_variant_t((long)(m_DetailedTableLastYWRow + 1)), _variant_t((long)(ZoneIndex * 2 + 1)), PeopleNum);
}
}
这个函数把sourceRge中的数据给desRge赋值，程序运行中发现在多次调用该函数时，内存增加，直到应用程序退出时才会释放，不知道什么原因，高手帮忙看看？
解决方案1:
#include <ole2.h>
#include <stdio.h>
#pragma warning (disable:4146 4192 4786 4081)
#define USE_OFFICEXP 1
#ifdef USE_OFFICEXP
#import "C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL"
#import "c:\\Program Files\\Common Files\Microsoft Shared\\VBA\VBA6\VBE6EXT.olb"
#import "c:\Program Files\Microsoft Office\Office10\MSWORD.olb" rename("ExitWindows","ExitWindowsEx")
#import "c:\Program Files\Microsoft Office\Office10\excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#else
#import "c:\Program Files\Microsoft Office\Office\MSO9.dll"
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB" no_namespace
#import "c:\Program Files\Microsoft Office\Office\MSWORD9.OLB" rename("ExitWindows","_ExitWindows")
#import "c:\Program Files\Microsoft Office\Office\excel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#endif
int main(int argc, char* argv[])
{
int i = Excel::xlContinuous;
VARIANT varItem;
varItem.vt = VT_I4;
varItem.intVal = 1;
::CoInitialize(NULL);
CLSID clsid;
CLSIDFromProgID(L"Excel.Application", &clsid);
Excel::_ApplicationPtr pApp;
pApp .CreateInstance (clsid,NULL);
pApp ->PutVisible (0,VARIANT_TRUE);
Excel::_WorkbookPtr pWorkbook = pApp ->GetWorkbooks () ->Add ();
Excel::_WorksheetPtr pSheet = pWorkbook ->GetWorksheets () ->GetItem (varItem);
Excel::RangePtr pRange = pSheet ->GetUsedRange(0);
int iColCnt = pRange ->GetColumns() ->GetCount();
printf("used columns is %d\n",iColCnt);
int iRowCnt = pRange ->GetRows() ->GetCount();
printf("used rows is %d\n",iRowCnt);
pRange = pSheet ->GetRange(OLESTR("A1"));
pRange ->Value2 = OLESTR("SOME");
Excel::InteriorPtr pInterior= pRange ->GetInterior ();
varItem.intVal = 0xff0000;
pInterior ->PutColor (varItem);
pSheet ->PrintPreview ();
::CoUninitialize();
return 0;
}