如何在MFC对话框中嵌入Excel表格

1. 打开丛高 Excel 工作表，选定要嵌入的对象。 ...

2. 单击常用工具栏中的〔复制〕按钮，将选中的对象复制到“剪贴板”中。 ...

3. 回到正在编辑的 Word 文档中，定位插入点，再单击“编辑”菜渗敏尺单中的“选择性粘 贴...

4. 在d出的“选择性粘贴”对话框中，选拿慧择“粘贴”单选框，表示将对象嵌入 Word 文档。

1、首先，打开媒介工具“记事本”，将word文件里需要导入的数据，复制粘贴到记事本当中，然后保存成为txt文件，本例中将txt文件取名为“数据源.txt”。

2、打开excel表格，点击“数据”选项卡，找到“自文本”。

3、点击“自文本”，d出下森唯宴一窗口，选择刚才保存的名为“数据山慎源”的txt类型文件，点击“导入”。因“自文此银本”方式数据导入默认的只有三种文件类型txt、csv、prn，所以需要事先将word转变为txt。

这是我的一个 *** 作过程，可以参考看看（如有更好，也请贴出啊）：

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())

/*打开一个工作簿，如不存在，则新增一个工作簿*/

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 = lFirstLBoundi <= lFirstUBoundi++)

{

index[0] = i

for (long j =lSecondLBoundj <= lSecondUBoundj++)

{

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()

}

---