如何在<em>MFC</em>对话框中嵌入<em>Excel</em>表

你说话说半截，
搞不懂究竟是想怎样？

1. 打开 Excel 工作表，选定要嵌入的对象。 ...
2. 单击来常用工具栏中的〔复制自〕按钮，将选中的对象复制到“剪贴板”中。 ...
3. 回到正在百编辑的 Word 文档中，定位插入点度，再单击“编辑”菜单中的“选择性知粘 贴...
4. 在弹出的“选择性粘贴”对话框中，选择“粘贴”单选框，表示将道对象嵌入 Word 文档。

方法/步骤

1. 打开需要插入对象文件的百Excel表格，如下图所示。


2. 用鼠标单击要插入度对象文件单元格，然后依次点击"插入"菜单--"对象"，窗口会自动弹出"对象"对话框，如下图所示。


3. 在"对象"对话框中选择"由文件创建"选项卡，单击"浏览"，选择需要插入的对象文件，此处我们先选择一个Excel文件插入。


4. 选择"对象"对话框中的"显示图标"，点回击"更改图标"，窗口会自动弹出"更改图标"对话框。如下图所示。


5. 将"图标标题"中的文件路径及文件扩展名删掉，只保留文件名称，如下图所示。然后点击"确定"按钮。


6. 在"对象"对话框中点击"确定"按钮，Excel文件就插入完毕了。在阅读时，只需答双击这个Excel文件，就可以将之打开了。

这是我的一个操作过程，可以参考看看（如有更好，也请贴出啊）：
void CTestExcelDlg::OnButton2()
{
// TODO: Add your control notification handler code here
_Application ExcelApp;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
LPDISPATCH lpDisp = NULL;

//创建Excel 服务器(启动Excel)
if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
{
AfxMessageBox(_T("启动Excel服务器失败!"));
return;
}

ExcelApp.SetVisible(false);
ExcelApp.SetUserControl(FALSE);

/*得到工作簿容器*/
books.AttachDispatch(ExcelApp.GetWorkbooks());

/*打开一7a686964616fe58685e5aeb9339个工作簿，如不存在，则新增一个工作簿*/
CString strBookPath =_T("f:\\tmpl.xls");
try
{
/*打开一个工作簿*/
lpDisp = books.Open(strBookPath,
vtMissing, vtMissing,vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing,vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing,vtMissing, vtMissing);
book.AttachDispatch(lpDisp);
}
catch(...)
{
/*增加一个新的工作簿*/
lpDisp = books.Add(vtMissing);
book.AttachDispatch(lpDisp);
}

/*得到工作簿中的Sheet的容器*/
sheets.AttachDispatch(book.GetSheets());

/*打开一个Sheet，如不存在，就新增一个Sheet*/
CString strSheetName =_T("Sheet1");
try
{
/*打开一个已有的Sheet*/
lpDisp =sheets.GetItem(_variant_t(strSheetName));
sheet.AttachDispatch(lpDisp);
}
catch(...)
{
/*创建一个新的Sheet*/
lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
sheet.AttachDispatch(lpDisp);
sheet.SetName(strSheetName);
}

/*向Sheet中写入多个单元格,规模为4*30 */
lpDisp = sheet.GetRange(_variant_t("C6"),_variant_t("F35"));
range.AttachDispatch(lpDisp);

VARTYPE vt = VT_R4; /*数组元素的类型，float*/
SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/
sabWrite[0].cElements = 30;
sabWrite[0].lLbound = 0;
sabWrite[1].cElements = 4;
sabWrite[1].lLbound = 0;

COleSafeArray olesaWrite;
olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);

/*通过指向数组的指针来对二维数组的元素进行间接赋值*/
float (*pArray)[2]= NULL;
olesaWrite.AccessData((void **)&pArray);
memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements* sizeof(float));

/*释放指向数组的指针*/
olesaWrite.UnaccessData();
pArray = NULL;

/*对二维数组的元素进行逐个赋值*/
long index[2]= {0, 0};
long lFirstLBound = 0;
long lFirstUBound = 0;
long lSecondLBound = 0;
long lSecondUBound = 0;
olesaWrite.GetLBound(1, &lFirstLBound);
olesaWrite.GetUBound(1, &lFirstUBound);
olesaWrite.GetLBound(2, &lSecondLBound);
olesaWrite.GetUBound(2, &lSecondUBound);
long i = 0;
for (i = lFirstLBound;i <= lFirstUBound; i++)
{
index[0] = i;
for (long j =lSecondLBound; j <= lSecondUBound; j++)
{
index[1] = j;
float lElement = (float)(i * sabWrite[1].cElements + j);
olesaWrite.PutElement(index, &lElement);
}
}

/*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/
VARIANT varWrite = (VARIANT)olesaWrite;
range.SetValue2(varWrite);
range.SetNumberFormatLocal(COleVariant("0.00"));

/*根据文件的后缀名选择保存文件的格式*/
//CString strSaveAsName = _T("C:\\ew.xls");
//CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
//XlFileFormat NewFileFormat = xlOpenXMLWorkbook;
////Excel::XlFileFormat NewFileFormat = xlWorkbookNormal;
//if (0 ==strSuffix.CompareNoCase(_T(".xls")))
//{
// NewFileFormat= xlExcel8;
//}
//book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat),vtMissing, vtMissing, vtMissing,
// vtMissing, 0, vtMissing, vtMissing, vtMissing,
// vtMissing, vtMissing);
book.Save();

/*释放资源*/
sheet.ReleaseDispatch();
sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
ExcelApp.Quit();
ExcelApp.ReleaseDispatch();

}