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

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

1、原因：由于使用了Range的GetItem()函数获取Excel表中内容，所以程序在调用了_Application的Quit()函数后，Excel进程不能马上关闭，整个程序退出时，Excel将关闭。若注释了调用GetItem()的代码，将可以正常关闭。内部原因不知。

2、解决办法，不使用GetItem()获取Excel中内容，而使用其他方法。如下代码介绍读取数据的一种方法：

view plain copy to clipboard print ?

1. BOOLCAutomationExcel::GetValue(intiRow,intiColumnStart,intiColumnStop,CStringArray&strarray)
2. {
3. intiElementCount=iColumnStop-iColumnStart+1;
4. if(iElementCount<=0)
5. returnFALSE;
7. CStringstrStart,strEnd;
8. _variant_tstart,stop;
10. strStart=GetItemName(iRow,iColumnStart);
11. start.vt=VT_BSTR;
12. start.bstrVal=strStart.AllocSysString();//不需要进行_bstr_t转换
14. strEnd=GetItemName(iRow,iColumnStop);
15. stop.vt=VT_BSTR;
16. stop.bstrVal=strEnd.AllocSysString();
18. //创建安全数组，从Excel中读取内容
19. _variant_tvarReturn;
20. varReturn.vt=VT_ARRAY|VT_VARIANT;
22. SAFEARRAYBOUNDsab[2];//必须为维
23. sab[0].lLbound=1;
24. sab[0].cElements=iElementCount;
25. sab[1].lLbound=1;
26. sab[1].cElements=iElementCount;
27. varReturn.parray=SafeArrayCreate(VT_VARIANT,2,sab);
29. Rangerange;
30. range.AttachDispatch(m_Range.GetRange(start,stop));
31. if(range.m_lpDispatch==NULL)
32. returnFALSE;
34. varReturn=range.GetValue2();
35. range.ReleaseDispatch();
37. strarray.RemoveAll();
38. //从安全数组中读取数据
39. CStringstr;
40. if(iElementCount==1)
41. {
42. CVariantCast(varReturn).GetValue(str);
43. strarray.Add(str);
44. }
45. else
46. {
47. _variant_ttmp;
48. for(inti=1;i<=iElementCount;++i)
49. {
50. longindices[]={1,i};
51. SafeArrayGetElement(varReturn.parray,indices,(void*)&tmp);
53. CVariantCast(tmp).GetValue(str);
54. strarray.Add(str);
55. }
56. }
58. returnTRUE;
59. }

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

view plain copy to clipboard print ?

1. inlinevoidCVariantCast::GetValue(CString&strValue)
2. {
3. strValue.Empty();
5. if(m_variant.vt==VT_EMPTY||m_variant.vt==VT_NULL)
6. return;
8. if(m_variant.vt==VT_BOOL)
9. {
10. if(m_variant.boolVal)
11. strValue=_T("TRUE");
12. else
13. strValue=_T("FALSE");
15. return;
16. }
18. m_variant.ChangeType(VT_BSTR);
19. strValue=m_variant.bstrVal;
20. }