VC 与Excel

Question

如何从Excel 中读出每一条记录以及每个单元格的内容

Answer 1

if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 
  { 
  AfxMessageBox("创建Excel服务失败!"); 
  exit(1); 
  } 
  //利用模板文件建立新文档 
  wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); 
  CString strPath = dlg.GetPathName();
  wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));
  //得到Worksheets 
  wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); 
  //得到sheet1 
  wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);   //得到全部Cells，此时,rgMyRge是cells的集合 
  rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); 
  //设置1行1列的单元的值
  rgMyRge.GetItem(_variant_t((long)1),_variant_t((long)1),_variant_t(strBT));