100分！求MFC怎么生成Excel文件，给方法，资料，步骤等都有分噢

100分！求MFC如何生成Excel文件，给方法，资料，步骤等都有分噢
如题
需求很清晰
只要言之有物，或多或少都有分数赠上

[解决办法]
_Application ExcelApp; 
Workbooks workbooks;
_Workbook workbook; 
Worksheets sheets; 
_Worksheet sheet; 
Range range;

if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 
{ 
AfxMessageBox("创建Excel服务失败!"); 
return false; 
} 
ExcelApp.SetVisible(false);

workbooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); 
workbook.AttachDispatch(workbooks.Add(_variant_t(CString())));


//得到Worksheets 
sheets.AttachDispatch(workbook.GetWorksheets(),true);


sheet.AttachDispatch(sheets.GetItem(_variant_t("Sheet1")),true);








//range.BorderAround(COleVariant((long)1),2,1,COleVariant((long)RGB(0,0,0)));
TCHAR szPath[MAX_PATH];
::GetCurrentDirectory(MAX_PATH, szPath);
CString strPath(szPath);


strPath +=_T("test.xls");
CString strPathName = strPath + _T("\\") + strFile;


sheet.SaveAs(strPathName,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing);

ExcelApp.SetVisible(true);
ExcelApp.ReleaseDispatch();
workbooks.ReleaseDispatch();
workbook.ReleaseDispatch();
sheets.ReleaseDispatch();
sheet.ReleaseDispatch();
[解决办法]

探讨

引用:
当然要，导入Excel9.cpp和excel9.h


这两个文件是哪里的？搜索了整个硬盘没找到

[解决办法]
ClassWizard里面，Automation选项卡，导入Type Library，位置是Office目录下excel9.olb文件（这个文件根据Office版本不同而有所不同）Office2000是excel9.olb。然后导入的时候选择一部分你需要的文件就可以了，不要全部导入。
[解决办法]
把网上的一些文章整理了一下

把EXCEL9.OLB里的几个常用类库导出,方便使用

***************************************************

我已导出的类
CApplication.h -> _Application接口
CWorkbooks.h -> Workbooks接口
CWorkbook.h -> _Workbook接口
CWorksheets.h -> Worksheets接口
CWorksheet.h -> _Worksheet接口
CRange.h -> Range接口

ExcelFile.h
ExcelFile.cpp -> MSN BLOG上找到的一个包装类,还不错
(转自)http://wzqxp2002.spaces.live.com/blog/cns!91353f4c90156be7!235.entry
***************************************************

下载地址: http://www.citree.com/beiouwolf/excel.rar

直接包含到项目里就能使用了
如果需要其他特殊的类库或者喜欢自己导出类库,请看下面

***************************************************

VC 6中 使用excel2000的方法

***************************************************

首先利用Visual C++ 6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程名称ExcelTest。在主对话框中加入一个按钮， 
ID IDC_EXCELTEST 
Caption Test Excel 
双击该按钮，增加成员函数void CExcelTestDlg::OnExceltest()。 
在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代码： 
if (CoInitialize(NULL)!=0) 
{ 
AfxMessageBox("初始化COM支持库失败!"); 
exit(1); 
} 
在return FALSE; 语句前，加入： 
CoUninitialize(); 
选择Menu->View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a type library，选择D:\Program Files\Microsoft Office\office\Excel9.OLB(D:\Program Files\Microsoft Office\是本机上Microsoft Office 2000的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件Excel9.h，源文件Excel9.cpp。 
在ExcelTestDlg.cpp文件的头部，#include "ExcelTestDlg.h"语句之下，增加 ： 

#include "comdef.h" 
#include "Excel9.h" 
在void CExcelTestDlg::OnExceltest() 函数中增加如下代码： 
void CExcelTestDlg::OnExceltest() 
{ 
_Application ExcelApp; 
Workbooks wbsMyBooks; 
_Workbook wbMyBook; 
Worksheets wssMysheets; 
_Worksheet wsMysheet; 
Range rgMyRge; 
//创建Excel 2000服务器(启动Excel) 

if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 
{ 
AfxMessageBox("创建Excel服务失败!"); 
exit(1); 
} 
//利用模板文件建立新文档 
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); 
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g:\\exceltest\\MyTemplate.xlt"))); 
//得到Worksheets 
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); 
//得到sheet1 
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true); 
//得到全部Cells，此时,rgMyRge是cells的集合 
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); 
//设置1行1列的单元的值 
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("This Is A Excel Test Program!")); 
//得到所有的列 
rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true); 
//得到第一列 
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true); 
//设置列宽 
rgMyRge.SetColumnWidth(_variant_t((long)200)); 
//调用模板中预先存放的宏 
ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing, 
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, 
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, 
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, 
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing); 
//打印预览 
wbMyBook.SetSaved(true); 
ExcelApp.SetVisible(true); 
wbMyBook.PrintPreview(_variant_t(false)); 
//释放对象 
rgMyRge.ReleaseDispatch(); 
wsMysheet.ReleaseDispatch(); 
wssMysheets.ReleaseDispatch(); 
wbMyBook.ReleaseDispatch(); 
wbsMyBooks.ReleaseDispatch(); 
ExcelApp.ReleaseDispatch(); 
}

******************************************************

VS.NET中使用方法

******************************************************

导入类库的时候,在解决方案管理器中右键点击项目 -> 添加类
选择MFC -> 类型库中的MFC的类

声明类库的时候方法名不一样

包含的H文件不是 excel9.h ,
#include "CApplication.h"
#include "CWorkbook.h"
#include "CWorkbooks.h"
#include "CWorksheet.h"
#include "CWorksheets.h"
#include "CRange.h"
#include "comdef.h"

类型声明改成
CApplication ExcelApp;
CWorkbooks wbMyBooks; 
 CWorkbook wbMyBook; 
 CWorksheets wssMysheets; 
 CWorksheet wssMysheet; 
 CRange rgMyRge; 



http://blog.csdn.net/beiouwolf/archive/2007/03/05/1521330.aspx

查看更多 下一篇