利用ADO读取Excel表

来源：互联网发布：windows10切换mac系统编辑：程序博客网时间：2024/05/22 13:27

首先引入

#include <stdio.h>

#pragma warning(disable:4146)

#import "C:/Program Files/Common Files/System/ado/msado15.dll" /
no_namespace rename ("EOF", "adoEOF")

而后建立函数

void readexcel()

{ CoInitialize(NULL);

_ConnectionPtr pConn("ADODB.Connection");
_RecordsetPtr pRs("ADODB.Recordset");

pConn->Open("provider=microsoft.jet.oledb.4.0; /
     Extended properties='excel 8.0; hdr=no'; /
     data source=f://ttt.xls", "", "", adConnectUnspecified);

pRs->Open("select * from [sheet1$]", _variant_t((IDispatch*)pConn, true),
  adOpenForwardOnly, adLockReadOnly, adCmdUnknown);

variant_t t0,t1;
// char *getnum0=new char[2000];
// char *getnum1=new char[2000];
CString tmp,num0="",num1="";
//num0.Format("%s",getnum0);
while (!pRs->adoEOF)
{
  t0 = _variant_t(long(0));
  tmp.Format("%s",(char*)(_bstr_t)pRs->GetCollect(t0));
  num0+=tmp;
  t1 = _variant_t(long(1));
  tmp.Format("%s",(char*)(_bstr_t)pRs->GetCollect(t1));//printf("%s/n", ;
  num1+=tmp;
  pRs->MoveNext();
}

CoUninitialize();

}