2023年11月30日发(作者：)
这几天通过查找资料，看相关的代码，对MFC操作Excel有了一定的理解，写出来，想和
大家分享，希望对大家有帮助。我这几天看的是如何向Excel中写数据。
首先，我们要先建立一个模板文件。打开Excel->制作自己需要的格式->点击保存时，将“保
存类型”选成模板，文件名为“”即可。
其次是就是用MFC操作Excel的关机技术。
1加载
（1） VC6.0
在里创建一个基于对话框的MFC工程。
（2） MFC ClassWizardAutomation
打开窗口(查看—>建立类向导)，选择，单击
Add ClassFrom a
按钮，选择，弹出文件选择对话框，之后定位
到
C:Program FilesMicrosoft ，选择_Application、
Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为
_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件
Excel9.h，源文件。
2具体实现过程
工程名称ExcelTest。在主对话框中加入一个按钮，
ID IDC_EXCELTEST Caption Test Excel
双击该按钮，增加成员函数void CExcelTestDlg::OnExceltest()。
在BOOL CExcelTestApp::InitInstance()中，l();之前增加代码：
if (CoInitialize(NULL)!=0)
{
AfxMessageBox("初始化COM支持库失败!");
exit(1);
}
在return FALSE; 语句前，加入：
CoUninitialize();
在文件的头部，#include "ExcelTestDlg.h"语句之下，增加 ：
#include "Excel9.h"
在void CExcelTestDlg::OnExceltest() 函数中增加如下代码：
void CExcelTestDlg::OnExceltest()
{
//
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
//创建Excel服务器
if (!Dispatch("ation",NULL))
{
AfxMessageBox("创建Excel服务失败!");
exit(1);
}
//利用模板文件建立新文档
Dispatch(kbooks(),true);
// kbooks()获得对象跟wbsMyBooks锁定起来
Dispatch((_variant_t("F:"))
);
Dispatch(ksheets(),true);
//得到sheet1
Dispatch(m(COleVariant ("sheet1")),true);
//得到全部Cells，此时,rgMyRge是cells的集合
Dispatch(ls(),true);
//设置1行1列的单元的值
m(_variant_t((long)5),_variant_t((long)1),_variant_t("This !"));
ible(true);
//释放对象
eDispatch();
eDispatch();
eDispatch();
eDispatch();
eDispatch();
eDispatch();
}
按照上述步骤即可实现用MFC操作Excel。
3代码具体函数的含义
（1）void AttachDispatch(LPDISPATCH lpDispatch,BOOL bAutorelease =1)
lpDispatch：锁定的目标指针，bAutorelease：是否自动释放
（2）（Template）：新建工作簿，新建的工作簿将成为活动工作
簿，该表达式返回一个Workbook 对象。Template ： COleVariant类型，确
定如何创建工作簿，如果本参数为指定一现有 Microsoft Excel 文件名的字符
串，那么创建新工作簿将以该指定的文件作为模板。
（3）还有另外一个函数非常常见就是：Workbooks 对象的 Open 方法：作用是
打开一个工作簿，Open方法的参数很多，其实经常用的不多，FileName经常用
（4）对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。
例如：
m(ColeVariant((long)1))m(ColeVarian
t(“Sheet1”))取得第一个工作表。
（5）对于对象的属性值的读取或赋值，需要用GetProperty()或
SetProperty(NewValue)函数，例如：
nt(), e(“Sheet1”)。
发布评论