VC中实现读取Excel表数据总结.doc

VC中实现读取Excel表数据总结利用VC对Excel进行操作。主要的函数是从网上找的，有些东西自己做了修改。可以对一个目录下的所有Excel表进行处理。主要代码如下： ? //获取一个目录下所有Excel表名，并加入到一个数组中。 char oldPath[MAX_PATH];?getcwd(oldPath,MAX_PATH);?chdir(m_strDirectory);?CFileFind fileFind;?BOOL bExist=FALSE;?bExist=fileFind.FindFile(*.xls);?while(bExist)?{??bExist=fileFind.FindNextFile();??CString strTitle=fileFind.GetFileTitle();???m_strTableAll.Add(strTitle);?}?fileFind.Close();?chdir(oldPath); ? ? //处理所有Excel数据，并把所有数据加入到一个二维数组中 CString m_strArray[i][j] ? CoInitialize(NULL);?int i,j;??//用来循环?// 获得EXCEL的CLSID?CLSID clsid;?HRESULT hr = CLSIDFromProgID(LExcel.Application, clsid);??if(FAILED(hr)) {??AfxMessageBox(CLSIDFromProgID() 函数调用失败!);??return;?}??// 创建实例?IDispatch *pXlApp;?hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)pXlApp);?if(FAILED(hr)) {??AfxMessageBox(请检查是否已经安装EXCEL!);??return;?}??// 显示，将Application.Visible属性置1?/VARIANT x;?x.vt = VT_I4;?x.lVal = 1;?AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlApp, LVisible, 1, x); ?// 获取Workbooks集合?IDispatch *pXlBooks;?{??VARIANT result;??VariantInit(result);??AutoWrap(DISPATCH_PROPERTYGET, result, pXlApp, LWorkbooks, 0);??pXlBooks = result.pdispVal;?}??CString strName;??//Excel表完整路径?CString strTmp;???//临时变量，保存单元格数据中的CString型?double dblTmp;???//临时变量，保存单元格数据中的double型?//用来保存信息的数组?VARIANT arr;?arr.vt = VT_ARRAY | VT_VARIANT;?SAFEARRAYBOUND sab[2];?sab[0].lLbound = 1; sab[0].cElements = 40;?sab[1].lLbound = 1; sab[1].cElements = 16;?arr.parray = SafeArrayCreate(VT_VARIANT, 2, sab); ?int tableNum;?int nCount=m_DataConn.m_strTableAll.GetSize();??for(tableNum=0;tableNumnCount;tableNum++)?{ ??strName.Format(%s\\%s,m_DataConn.m_strDirectory,m_DataConn.m_strTableAll.GetAt(tableNum));??????// 调用Workbooks.Open()方法，打开一个已经存在的Workbook??IDispatch *pXlBook;??{???VARIANT parm;???parm.vt = VT_BSTR;???//?parm.bstrVal = ::SysAllocString(LstrName);???parm.bstrVal=strName.AllocSysString();???VARIANT result;???VariantInit(result);