<em>MFC</em>创建EXCEL问题：-mfc 操作office,office

图片看不清，把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）,excel样表文件（示例数据，非实际数据，把现状和目标效果表示出来）作为附件发来看下 ！

"excelApplication"应为"Excel.Application"。
少了一个点。
合并单元格只保留左上角第一个单元格，其它的都是空白
可以加辅助列，或调整公式

1、单击“查看”菜单上的“ClassWizard”（或按 Ctrl+W）。
如果要使 Excel 97 自动运行，请选择 Microsoft Excel 8.0 对象库；默认位置为 C:\ProgramFiles\Microsoft Office\Office\Excel8.olb）。
如果要使 Microsoft Excel 2000 自动运行，请选择 Microsoft Excel 9.0 对象库，其默认位置为 C:\Program Files\Microsoft Office\Office\Excel9.olb。
如果要使 Microsoft Excel 2002 和 Microsoft Office Excel 2003 自动运行，则对象库将被嵌入到文件 Excel.exe 中。Office 2002 中的 Excel.exe 文件的默认位置为 C:\Program Files\Microsoft Office\Office10\Excel.exe。
2、 在***Dlg.H中添加头文件
#include<comdef.h>
#include "excel.h"
在***Dlg::OnInitDialog()中添加
// 初始化Com
if (::CoInitialize( NULL ) == E_INVALIDARG)
{
AfxMessageBox(_T("初始化Com失败!e69da5e6ba907a64338"));
exit(1);
}
if ( !ExcelApp.CreateDispatch(_T("Excel.Application"), NULL))
{
AfxMessageBox(_T("创建Excel2000服务失败!"));
::CoUninitialize();
}
//打开ExcelApp等等
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("c:\aa.xls")));
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
//得到sheet1
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
CString a = (LPCTSTR)(_bstr_t)rgMyRge.GetItem(_variant_t((long)i),_variant_t((long)1));
SetItem((_variant_t((long)2),_variant_t((long)3)),_variant_t("fafdad"));
//释放资源关闭EXCEL
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.Close (COleVariant((short)(FALSE)), COleVariant((short)(FALSE)),vtMissing);
wbsMyBooks.Close();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();

ExcelApp.Quit();
ExcelApp.ReleaseDispatch();