Excel自动化时无法正常关闭Excel的解决方案

最近的项目中需要利用VC操作Excel进行自动化输出，期间碰到网上很多朋友遇到的一个问题，无法正常关闭Excel。经过琢磨，总结如下：

1、 原因：由于使用了Range的GetItem()函数获取Excel表中内容，所以程序在调用了_Application的Quit()函数后，Excel进程不能马上关闭，整个程序退出时，Excel将关闭。若注释了调用GetItem()的代码，将可以正常关闭。内部原因不知。
2、 解决办法，不使用GetItem()获取Excel中内容，而使用其他方法。如下代码介绍读取数据的一种方法：


view plaincopy to clipboardprint?

BOOL CAutomationExcel::GetValue(int iRow,int iColumnStart,int iColumnStop,CStringArray& strarray)

{

int iElementCount = iColumnStop - iColumnStart + 1;

if(iElementCount <= 0)

return FALSE;



CString strStart,strEnd;

_variant_t start,stop;



strStart = GetItemName(iRow,iColumnStart);

start.vt = VT_BSTR;

start.bstrVal = strStart.AllocSysString(); // 不需要进行_bstr_t转换



strEnd = GetItemName(iRow,iColumnStop);

stop.vt = VT_BSTR;

stop.bstrVal = strEnd.AllocSysString();



// 创建安全数组，从Excel中读取内容

_variant_t varReturn;

varReturn.vt = VT_ARRAY | VT_VARIANT;



SAFEARRAYBOUND sab[2]; // 必须为维

sab[0].lLbound = 1;

sab[0].cElements = iElementCount;

sab[1].lLbound = 1;

sab[1].cElements = iElementCount;

varReturn.parray = SafeArrayCreate(VT_VARIANT, 2, sab);



Range range;

range.AttachDispatch(m_Range.GetRange(start,stop));

if(range.m_lpDispatch == NULL)

return FALSE;



varReturn = range.GetValue2();

range.ReleaseDispatch();



strarray.RemoveAll();

// 从安全数组中读取数据

CString str;

if(iElementCount == 1)

{

CVariantCast(varReturn).GetValue(str);

strarray.Add(str);

}

else

{

_variant_t tmp;

for(int i=1;i<=iElementCount;++i)

{

long indices[] = {1,i};

SafeArrayGetElement(varReturn.parray, indices, (void *)&tmp);



CVariantCast(tmp).GetValue(str);

strarray.Add(str);

}

}



return TRUE;

}




其中CVariantCast为一个自己实现的转换类，使用的代码如下：


view plaincopy to clipboardprint?

inline void CVariantCast::GetValue(CString& strValue)

{

strValue.Empty();



if(m_variant.vt == VT_EMPTY || m_variant.vt == VT_NULL)

return;



if(m_variant.vt == VT_BOOL)

{

if(m_variant.boolVal)

strValue = _T("TRUE");

else

strValue = _T("FALSE");



return;

}



m_variant.ChangeType(VT_BSTR);

strValue = m_variant.bstrVal;

}