VC读写EXCEL文件类（已安装excel） - VC学习之路 -
CSDN博客
以下是.h文件 #pragma once class CReadWriteExcel { private:
long CStringToLong(CString sStr);
int GetColumnWidth(CString sA,CString sB);
BOOL CheckString(CString str,CString &sLeft,CString &sRight,long &nRight);
HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, LPOLESTR ptName, int cArgs...); public:
int ReadExcelStringArray(const CString
strfilename,CStringArray &strArray,const CString sBeginCell,const CString sEndCell);
BOOL WriteExcelStringArray(const CString strfilename,CStringArray &strArray,long nColumn); //BOOL SetRangValueType(int nType,const CString
sBeginCell,const CString sEndCell); };
//以下是.cpp文件 #include \
#include \
//读取数据，返回列数
int CReadWriteExcel::ReadExcelStringArray(const CString strfilename,CStringArray &strArray,CString sBeginCell,CString sEndCell) {
//检查Range输入,并计算行列
if(sBeginCell.IsEmpty()|| sEndCell.IsEmpty()) return -1; //转成大写
sBeginCell.MakeUpper(); sEndCell.MakeUpper();
CString sBL,sBR; long nB;
if(!CheckString(sBeginCell,sBL,sBR,nB)) return -1;
CString sEL,sER; long nE;
if(!CheckString(sEndCell,sEL,sER,nE)) return -1;
int col=GetColumnWidth(sBL,sEL); int row=nE-nB+1; strArray.RemoveAll(); strArray.SetSize(row*col);
//处理所有Excel数据，并把所有数据加入到一个二维数组中
CoInitialize(NULL); int i,j; //用来循环 // 获得EXCEL的CLSID CLSID clsid;
HRESULT hr = CLSIDFromProgID(L\&clsid); if(FAILED(hr)) {
AfxMessageBox(_T(\函数调用失败!\ return -1; }
// 创建实例 IDispatch *pXlApp;
hr = CoCreateInstance(clsid, NULL,
CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp); if(FAILED(hr)) {
AfxMessageBox(_T(\请检查是否已经安装EXCEL!\ return -1; }
// 显示，将Application.Visible属性置1 VARIANT x; x.vt = VT_I4; x.lVal = 1;
AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlApp, L\
// 获取Workbooks集合 IDispatch *pXlBooks; {
VARIANT result; VariantInit(&result);
AutoWrap(DISPATCH_PROPERTYGET,
