mfc写入Excel

void CweDlg::OnBnClickedButton1(){// TODO: 在此添加控件通知处理程序代码;CApplication app;CRange range;CSheets sheets;CWorksheet worksheet;CWorksheets worksheets;CWorkbook workbook;CWorkbooks workbooks;if (!app.CreateDispatch(_T("EXCEL.Application"))){AfxMessageBox(_T("excel error!"));return;}CString strFileName = _T("D:\\s.xlsx");workbooks.AttachDispatch(app.get_Workbooks(),TRUE);workbook.AttachDispatch(workbooks.Add(_variant_t(strFileName)));LPDISPATCH pWorksheets = app.get_Worksheets();ASSERT(pWorksheets != NULL);sheets.AttachDispatch(pWorksheets, TRUE);//获得当前操作的sheet;LPDISPATCH pWorksheet = sheets.get_Item(_variant_t("Sheet1"));ASSERT(pWorksheet != NULL);worksheet.AttachDispatch(pWorksheet, TRUE);CString str = _T("abcdefg");range.AttachDispatch(worksheet.get_Cells(), TRUE);range.put_Item(_variant_t(2),_variant_t(2), _variant_t(str));workbook.SaveCopyAs(_variant_t(strFileName));}