（1） 在VC6.0 中点击View菜单，选中ClassWizard打开类向导对话框，点击右侧的“Add Class”按
钮选择From a Type Library选项，在打开的对话框中找到Office的安装地址并找到EXCEL.EXE,
选中后点击“打开”按钮，此时弹出一个“Confirm Classes”对话框，按住键盘上面的Ctrl键
选中“_Application”、“Workbooks”、“_Workbook”、“Worksheets”、
“_Worksheet”、“Range”（选中这几个够基本的读写操作），此时在工程中会多出来两个文
件，Excel.h和Excel.cpp文件，打开Excel.h文件在文件的开始添加namespace spaceExcel{,
在文件的结束添加｝，打开Excel.cpp文件在头文件的引用最后的地方添加
using namespace spaceExcel;
（2） 在工程项目的*App类的InitInstance函数中对OLE环境进行初始化：
if (!AfxOleInit())
{
AfxMessageBox("初始化OLE DLL失败!");
returnFALSE;
}
（3） 在工程项目的*.Dlg的类中添加成员变量并在该文件的首部添加上excel.h头文件
spaceExcel::Range rgMyRge,excelRange;//选区
spaceExcel::_Worksheet wsMysheet;//工作表对象
spaceExcel::Worksheets wssMysheets;//工作表管理器
spaceExcel::_Workbook wbMyBook;//工作薄对象
spaceExcel::Workbooks wbsMyBooks;//工作薄管理器
spaceExcel::_Application ExcelApp;//应用程序对象
（4） 操作Excel表格:【读取excel中的数据】
if(!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("未检测到Excel程序!");
}
else
{
ExcelApp.SetVisible(FALSE);//设置excel工作簿为不可见状态
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),TRUE);
wbMyBook =wbsMyBooks.Open(m_strExternalFilePath, vtMissing,vtMissing,vtMissing,vtMissing, vtMissing,vtMissing,vtMissing,vtMissing, vtMissing,vtMissing,vtMissing,vtMissing, vtMissing,vtMissing);
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),TRUE);
wsMysheet =wssMysheets.GetItem(COleVariant((short)1));
rgMyRge =wsMysheet.GetUsedRange();
excelRange =rgMyRge.GetRows();
long nRowNum = excelRange.GetCount();
excelRange =rgMyRge.GetColumns();
long nColumnNum =excelRange.GetCount();
rgMyRge.AttachDispatch(wsMysheet.GetCells(),TRUE);
for (long row = 1; row<= nRowNum; row++)
{
for (long column= 1; column <= nColumnNum; column++)
{
excelRange.AttachDispatch(rgMyRge.GetItem(_variant_t(row),
_variant_t(column)).pdispVal,TRUE);
VARIANTvarItemName = excelRange.GetText();
switch(column)
{
case 1:
strNum= varItemName.bstrVal;
continue;
case2:
strName= varItemName.bstrVal;
continue;
case 3:
strSex= varItemName.bstrVal;
continue;
case 4:
strAcademy= varItemName.bstrVal;
continue;
case 5:
strAdress= varItemName.bstrVal;
continue;
default:
break;
}
}
}
}
【写数据到excel中】
if(!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("创建Excel服务失败!");
return;
}
ExcelApp.SetVisible(FALSE);
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),TRUE);
wbMyBook.AttachDispatch(wbsMyBooks.Add((_variant_t)strSavePath),TRUE);
wssMysheets.AttachDispatch(wbMyBook.GetSheets(),TRUE);
wssMysheets.Add(vtMissing,vtMissing,_variant_t((long)1),vtMissing);
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t((long)2)),TRUE);
wsMysheet.Delete();
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t((long)1)),TRUE);
wsMysheet.SetName("student");
rgMyRge.AttachDispatch(wsMysheet.GetCells(),TRUE);
for(int i = 0; i < nCount; i++)
{ //读取列表控件中的数据到Excel文件中
m_list.GetItemText(i,0,strNum,MAX_PATH);
m_list.GetItemText(i,1,strName,MAX_PATH);
m_list.GetItemText(i,2,strSex,MAX_PATH);
m_list.GetItemText(i,3,strAcademy,MAX_PATH);
m_list.GetItemText(i,4,strAdress,MAX_PATH);
rgMyRge.SetItem(_variant_t((long)i+1),_variant_t((long)1),_variant_t(strNum));
rgMyRge.SetItem(_variant_t((long)i+1),_variant_t((long)2),_variant_t(strName));
rgMyRge.SetItem(_variant_t((long)i+1),_variant_t((long)3),_variant_t(strSex));
rgMyRge.SetItem(_variant_t((long)i+1),_variant_t((long)4),_variant_t(strAcademy));
rgMyRge.SetItem(_variant_t((long)i+1),_variant_t((long)5),_variant_t(strAdress));
}
ExcelApp.SetAlertBeforeOverwriting(FALSE);
ExcelApp.SetDisplayAlerts(FALSE);
wsMysheet.SaveAs(strSavePath,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing);
AfxMessageBox("Excel文件导出完成!");
（5） 释放excel资源：
excelRange.ReleaseDispatch();
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.Quit();
ExcelApp.ReleaseDispatch(); //注意：先Quit，再ReleaseDispatch；
注：使用vtMissing需要的头文件：#include <comutil.h>
