16,548
社区成员




// AfxMessageBox(m_myContent->temp5); 从1到27有变化
strItemName="";
m_contlist->AddTail(m_myContent);
CExcelCondent* m_myContent1 = (CExcelCondent*)m_contlist->GetTail();
CExcelCondent* m_myContent2 = (CExcelCondent*)m_contlist->GetHead();
AfxMessageBox("表尾元素为:"+m_myContent1->temp5);
// AfxMessageBox("表头元素为:"+m_myContent2->temp5);//表头本应不变,但也随着增大;
CPtrList* ReadExcel::OperExcel2()
{
// Excel应用对象
_Application m_oExcelApp; // Excel程序
_Worksheet m_oWorkSheet; // 工作表
_Workbook m_oWorkBook; // 工作簿
Workbooks m_oWorkBooks; // 工作簿集合
Worksheets m_oWorkSheets; // 工作表集合
Range m_oCurrRange; // 使用区域
// if (CoInitialize(NULL)!=0)
if(!AfxOleInit())
{
AfxMessageBox("初始化COM支持库失败!");
exit(1);
}
if (!m_oExcelApp.CreateDispatch( _T( "Excel.Application" ), NULL ) )
{
::MessageBox( NULL, _T( "创建Excel服务失败!" ), _T( "错误提示!" ), MB_OK | MB_ICONERROR);
exit(1);
} //设置为显示
m_oExcelApp.SetVisible(FALSE);
m_oWorkBooks.AttachDispatch( m_oExcelApp.GetWorkbooks(), TRUE ); //没有这条语句,下面打开文件返回失败。
LPDISPATCH lpDisp = NULL; COleVariant covTrue((short)TRUE);
COleVariant covFalse((short)FALSE);
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
Range oCurCell; // 打开文件
lpDisp = m_oWorkBooks.Open( "E:\\\\1.xls",
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing),
_variant_t(vtMissing) );
// 获得活动的WorkBook( 工作簿 )
m_oWorkBook.AttachDispatch( lpDisp, TRUE );
// 获得活动的WorkSheet( 工作表 )
m_oWorkSheet.AttachDispatch( m_oWorkBook.GetActiveSheet(), TRUE );
// 获得使用的区域Range( 区域 )
m_oCurrRange.AttachDispatch( m_oWorkSheet.GetUsedRange(), TRUE );
// 获得使用的行数
long lgUsedRowNum = 0;
m_oCurrRange.AttachDispatch( m_oCurrRange.GetRows(), TRUE );
lgUsedRowNum = m_oCurrRange.GetCount();
// 获得使用的列数
long lgUsedColumnNum = 0;
m_oCurrRange.AttachDispatch( m_oCurrRange.GetColumns(), TRUE );
lgUsedColumnNum = m_oCurrRange.GetCount();
// 读取Sheet的名称
CString strSheetName = m_oWorkSheet.GetName();
//得到全部Cells,此时,CurrRange是cells的集合
m_oCurrRange.AttachDispatch( m_oWorkSheet.GetCells(), TRUE );
CExcelCondent* m_myContent =new CExcelCondent();
m_contlist= new CPtrList();
for ( int i = 0; i < lgUsedRowNum; )
{
// 获取该列第一个元素
oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)(i + 1)), COleVariant( (long)1 ) ).pdispVal, TRUE );
VARIANT varItemName = oCurCell.GetText();
CString strItemName;
strItemName = varItemName.bstrVal;
// AfxMessageBox( strItemName );
// 将值存入结构中
m_myContent->temp1=strItemName;
// AfxMessageBox(m_myContent->temp1);
//获取该列第二个元素
oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)(i + 1)), COleVariant( (long)2 ) ).pdispVal, TRUE );
varItemName = oCurCell.GetText();
strItemName = varItemName.bstrVal;
ASSERT(m_myContent != NULL);
m_myContent->temp2=strItemName;
//获取该列第三个元素
oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)(i + 1)), COleVariant( (long)3 ) ).pdispVal, TRUE );
varItemName = oCurCell.GetText();
m_myContent->temp3=strItemName;
//获取该列第四个元素
oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)(i + 1)), COleVariant( (long)4 ) ).pdispVal, TRUE );
varItemName = oCurCell.GetText();
m_myContent->temp4=strItemName;
//获取该列第五个元素
oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)(i + 1)), COleVariant( (long)5) ).pdispVal, TRUE );
varItemName = oCurCell.GetText();
m_myContent->temp5=strItemName;
// 将结构存入表尾
ASSERT(m_contlist != NULL);
// AfxMessageBox(m_myContent->temp5); 从1到27有变化
strItemName="";
m_contlist->AddTail(m_myContent);
CExcelCondent* m_myContent1 = (CExcelCondent*)m_contlist->GetTail();
CExcelCondent* m_myContent2 = (CExcelCondent*)m_contlist->GetHead();
AfxMessageBox("表尾元素为:"+m_myContent1->temp5);
// AfxMessageBox("表头元素为:"+m_myContent2->temp5);//表头本应不变,但也随着增大;
i++;
}
// 关闭
m_oWorkBook.Close( covOptional, COleVariant( "E:\\\\1.xls" ), covOptional );
m_oWorkBooks.Close();
// 释放
m_oCurrRange.ReleaseDispatch();
m_oWorkSheet.ReleaseDispatch();
m_oWorkSheets.ReleaseDispatch();
m_oWorkBook.ReleaseDispatch();
m_oWorkBooks.ReleaseDispatch();
m_oExcelApp.ReleaseDispatch();
m_oExcelApp.Quit();
// 这条语句是推出Excel程序,任务管理器中的EXCEL进程会自动结束。
return m_contlist;
}