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

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

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

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

 

view plain copy to clipboard print ?

1. BOOL CAutomationExcel::GetValue(int iRow,int iColumnStart,int                                               iColumnStop,CStringArray& strarray)  
2.     {  
3.         int iElementCount = iColumnStop - iColumnStart + 1;  
4.         if(iElementCount <= 0)  
5.             return FALSE;  
6.           
7.         CString strStart,strEnd;  
8.         _variant_t start,stop;  
9.           
10.         strStart = GetItemName(iRow,iColumnStart);  
11.         start.vt = VT_BSTR;  
12.         start.bstrVal = strStart.AllocSysString();  // 不需要进行_bstr_t转换  
13.           
14.         strEnd = GetItemName(iRow,iColumnStop);  
15.         stop.vt = VT_BSTR;  
16.         stop.bstrVal = strEnd.AllocSysString();  
17.           
18.         // 创建安全数组，从Excel中读取内容  
19.         _variant_t varReturn;  
20.         varReturn.vt = VT_ARRAY | VT_VARIANT;  
21.           
22.         SAFEARRAYBOUND sab[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);  
28.           
29.         Range range;  
30.         range.AttachDispatch(m_Range.GetRange(start,stop));  
31.         if(range.m_lpDispatch == NULL)  
32.             return FALSE;  
33.           
34.         varReturn = range.GetValue2();  
35.         range.ReleaseDispatch();  
36.           
37.         strarray.RemoveAll();  
38.         // 从安全数组中读取数据  
39.         CString str;  
40.         if(iElementCount == 1)  
41.         {  
42.             CVariantCast(varReturn).GetValue(str);  
43.             strarray.Add(str);  
44.         }  
45.         else  
46.         {  
47.             _variant_t tmp;  
48.             for(int i=1;i<=iElementCount;++i)  
49.             {  
50.                 long indices[] = {1,i};  
51.                 SafeArrayGetElement(varReturn.parray, indices, (void *)&tmp);  
52.                   
53.                 CVariantCast(tmp).GetValue(str);  
54.                 strarray.Add(str);  
55.             }  
56.         }  
57.           
58.         return TRUE;  
59.     }  

 

 

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

 

view plain copy to clipboard print ?

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