vc读取excel文件


void CPreviewDlg::InitListRowText(void)
{
 _ConnectionPtr m_pConnect;    //ADO对象,下同
 _RecordsetPtr m_pRecordset;

 m_pConnect.CreateInstance(__uuidof(Connection));
 m_pRecordset.CreateInstance(__uuidof(Recordset));
 CString sql;
 sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
 sql+=GloubleStrPath;//EXCEL文件绝对路径+它自己的文件名。
 sql += _T(";Extended Properties=\"Excel 8.0;HDR=No;IMEX=1\"");

 m_pConnect->Open((_bstr_t)sql,"","",adModeUnknown);

 m_pRecordset->Open("select * from [Sheet1$]", m_pConnect.GetInterfacePtr(), adOpenDynamic, adLockOptimistic,adCmdText);//[iomstats]就是excel左下的[sheet]修改名。

 CString str;
 int n=0;
 while(!m_pRecordset->adoEOF)
 {
  str=(LPCSTR)_bstr_t(m_pRecordset->GetCollect(_variant_t(0L)));
  m_ctrListTableColumn.InsertItem(n,str );
  str=(LPCSTR)_bstr_t(m_pRecordset->GetCollect(_variant_t(1L)));
  m_ctrListTableColumn.SetItemText(n,1,str);
  str=(LPCSTR)_bstr_t(m_pRecordset->GetCollect(_variant_t(2L)));
  m_ctrListTableColumn.SetItemText(n,2,str);
  m_pRecordset->MoveNext();
  if (n>=10)
  {
   break;
  }
  n++;
 }
 m_pRecordset->Close();
 m_pConnect->Close();
}

智能推荐

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
© 2014-2019 ITdaan.com 粤ICP备14056181号  

赞助商广告