VS2010的导入导出EXCEL

MessageBox(_T("Error!")); }
books = app.get_Workbooks();
book = books.Add(covOptional);
sheets = book.get_Worksheets(); sheet = sheets.get_Item(COleVariant((short)1)); range = sheet.get_Range(COleVariant(_T("A1")),COleVariant(_T("A1"))); range.put_Value2(COleVariant(_T("hanhan")));
// { //
int state=iRow%2;
//
CString index;
//
index.Format( _T("A%d "),iRow+1);
//
// m_cols));
range = sheet.get_Range(COleVariant(index),covOptional); range = range.get_Resize(COleVariant((short)1),COleVariant((short)
int nWidth = m_clcData.GetColumnWidth(iCol)/6;
//得到第 iCol+1 列
range.AttachDispatch(range.get_Item(_variant_t((long)(iCol+1)),vtMissi ng).pdispVal,true);
book.SaveCopyAs(COleVariant(strFileName)); book.put_Saved(true); book.ReleaseDispatch(); books.ReleaseDispatch(); app.Quit(); app.ReleaseDispatch(); }
{
GetCellName(1 ,iCol + 1, colname);
me));
range = sheet.get_Range(COleVariant(colname),COleVariant(colna
pmyHeaderCtrl-> GetItem(iCol, &hdi);
range.put_Value2(COleVariant(hdi.pszText));
font = range.get_Font();
font.put_Bold(covTrue);
-4108
range.put_VerticalAlignment(COleVariant((short)-4108));//xlVAlignCenter =
COleSafeArray saRet;
DWORD numElements[]={m_rows,m_cols}; //5x2 element array
sheets = book.get_Worksheets(); sheet = sheets.get_Item(COleVariant((short)1));
////////////////////////////////////CListCtrl 控件 report 风格 //////////////////////////////////////////////////////////
book.put_Saved(true); book.ReleaseDispatch(); books.ReleaseDispatch(); app.Quit(); app.ReleaseDispatch();
// // ls)); //
range = sheet.get_Range(COleVariant( _T("A1 ")),covOptional); range = range.get_Resize(COleVariant((short)1),COleVariant((short)m_co
books = range.get_Interior();
1、新建 C++工程 新建自己的 C++工程。 2、添加 Excel 类库 在工程名上右键，选择 Add---Class，选择 MFC Class From TypeLib，如图：
然后添加如图的几个类。
3、修改头文件 进入刚添加进来的几个类头文件中将#import 开头的这句注掉
4、修改提示的错误 将修改过的工程编译一下，出现如下错误：
bool fFound = false;
hdi.mask = HDI_TEXT;
hdi.pszText = lpBuffer;
hdi.cchTextMax = 256;
CString colname;
CString strTemp;
for(iCol=0; iCol <m_cols; iCol++)//将列表的标题头写入 EXCEL
二、导出 附录一： 导出 Excel 格式的简单流程 CFileDialog dlg(FALSE,_T("(*.xls)"),NULL,OFN_HIDEREADONLY |OFN_OVERWRITEPROMPT, _T("(*.xls)|*.xls||"),NULL);
if (dlg.DoModal() == IDOK) { //获取路径 CString strFileName=dlg.GetPathName();
EXCEL
for ( iRow = 1; iRow <= m_rows; iRow++)//将列表内容写入
{
for ( iCol = 1; iCol <= m_cols; iCol++)
{
index[0]=iRow-1;
index[1]=iCol-1;
CString szTemp;
szTemp=m_clcData.GetItemText(iRow-1,iCol-1);
long index[2];
range = sheet.get_Range(COleVariant( _T("A2 ")),covOptional);
range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short) m_cols));
// }
saRet.Detach(); //////////////////////////////////////////////////////////////////////////////////////////////////////////////////
book.SaveCopyAs(COleVariant(strFile)); // cellinterior.ReleaseDispatch();
双击提示，在 DialogBox（）前加下划线，如图：
5、添加头文件 在使用导出功能的文件中添加头文件：
6、使用 Excel 类库提供的函数将需要导出的数据导出为.xls 文件 经过以上几步，现在可以使用 Excel 类库提供的函数导出数据了。 与网上许多文章相对比一下，导出流程一样。只不过类库函数有所改变。函数名由 Get 改为 get_,Set 改为 put_。
//设置列宽
range.put_ColumnWidth(_variant_t((long)nWidth));
}
range = sheet.get_Range(COleVariant( _T("A1 ")), COleVariant(colname));
range.put_RowHeight(_variant_t((long)50));//设置行的高度
CHeaderCtrl *pmyHeaderCtrl; pmyHeaderCtrl = m_clcData.GetHeaderCtrl();//此句取得 CListCtrl 控件的列表 頭
int iRow,iCol; int m_cols = pmyHeaderCtrl-> GetItemCount(); int m_rows = m_clcData.GetItemCount(); HDITEM hdi; TCHAR lpBuቤተ መጻሕፍቲ ባይዱfer[256];
saRet.Create(VT_BSTR, 2, numElements);
range = sheet.get_Range(COleVariant( _T("A2 ")),covOptional);
range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols));
COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CApplication0 app; CWorkbook0 book; CWorkbooks0 books; CWorksheet0 sheet; CWorksheets0 sheets; CRange0 range; CFont1 font; if (!app.CreateDispatch(_T("Excel.Application"))) {
//
books=range.get_Interior();
//
cellinterior.AttachDispatch(books);
//
if(!state)
//
cellinterior.put_ColorIndex(COleVariant((short)36));
//
else
//
cellinterior.put_ColorIndex(COleVariant((short)24));
CRange range; CFont0 font;
if (!app.CreateDispatch(_T("Excel.Application"))) {
MessageBox(_T("创建失败！")); return; }
//Get a new workbook. books = app.get_Workbooks(); book = books.Add(covOptional);
C++使用 VS2010 导出/导入 Excel 的方法及步骤
最近工作需要将 listctrl 中的数据导出到 Excel 中。网上找了很多，但多数是 VC6.0 的。 结合 VC6.0 导出的方法，自己琢磨了不少时间，终于将问题解决了。轻松之余，将过程分 享出来，希望对需要的人有所帮助。
VC6.0 的请看这里：http://topic.csdn.net/t/20050718/15/4151984.html 一、设置 环境： Windows7 Microsoft Visual Studio 2010 Microsoft Office Excel 2003 说明：用的公司的电脑，操作系统和软件都是正版的。
附录二：将 ListCtrl 中的数据导出为 Excel 格式 CString strFile = _T("E:\\Test.xls"); COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); CApplication app; CWorkbooks books; CWorkbook book; CWorksheets sheets; CWorksheet sheet;
//
// 景颜色
cellinterior.AttachDispatch(books); cellinterior.put_ColorIndex(COleVariant((short)37));//设置 EXCEL 头一行的背
// for( iRow=1; iRow <= m_rows; iRow++)//设置 EXCEL 其余的背景颜色 （颜色交替变换）
BSTR bstr = szTemp.AllocSysString();
saRet.PutElement(index,bstr);
SysFreeString(bstr);
}
}
range.put_Value2(COleVariant(saRet));
// Cnterior cellinterior;