在Visual C++ 中调读取和控制Excel详细教程

系统教程350 更新时间：2026-04-04 12:50:09

2023年11月30日发(作者：)

在Visual C++ 中调用Excel 2000

程蓬

在开发软件时，经常要将数据输出到Excel 2000中，在Excel 2000中对该数据进行进一步地格式

化处理或进行计算处理。在Visual Basic中处理起来较简单，Excel 2000的VB编程帮助中有较为详细

的介绍。在Visual C++中如何进行处理了？利用Excel 2000的ActiveX Automate功能，处理起来同

VB中类似。但要注意以下几点：

对于对象的属性值的读取或赋值，需要用GetProperty()或SetProperty(NewValue)函数，不能象VB

中直接通过属性名称取值或赋值。例如：nt(), e(“Sheet1”)。

对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。例如：

m(ColeVariant((long)1))或m(ColeVariant(“Sheet1”))取得第一个工作

表。

在COM接口中，时常用到Variant，BSTR，SafeArray数据类型。Variant数据类型是一个联合，

可表示几乎所有的类型的数据，具体用法见MSDN中的相关介绍，类_variant_t是对VARIANT数据

类型的封装。在Excel 2000的VB编程帮助中，如果提到某函数或属性需要一个值，该值的数据类型

通常是Variant，在封装Excel 2000对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括

了字符串和字符串长度的数据结构，类_bstr_t是对BSTR数据类型的封装。在Excel 2000的VB编程

帮助中提到的字符串通常指BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。

SafeArray是一个包括数组和数组边界的结构，数组边界外的内容不允许访问。在Excel 2000的VB编

程帮助中提到的数组是指SafeArray。关于SafeArray的处理，请见MSDN的相关帮助。

对于缺省参数和缺省值。在VB中，函数的参数可以空缺，在VC++中不允许，必须将所有的参

数填写完全。如果你希望指定某个参数为缺省值，根据参数数据类型的不同，可指定不同的缺省值。

当参数数据类型为字符串时，可以用长度为0的字符串。如果参数是Variant类型，可用常量vtMissing，

该常量在comdef.h中定义。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)产生一个

Variant对象。

Excel对象中的集合对象有时包括的子对象是不一定的，例如：Range对象，可以表示Cell的集合，

也可以表示Column的集合或Row的集合，m(1)可以返回Cell或Column或Row对象。

对对象的引用或传递对象，使用IDispatch类对象，有时利用Variant对IDispatch进行包装。

以下是一段源程序，演示如何启动Excel 2000，利用一个模板文件产生一个新文档，在该文档

的”Sheet1”工作表的第一个单元中填写一段文字，设置第一列的列宽，然后调用一个模板中的宏，执

行一段程序，最后打印预览该Excel文档。模板文件名称：。程序在Visual C++ 6.0 sp4，

Windows 2000 Professional sp-1下调试通过。

首先利用Visual C++ 6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程

名称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();

选择Menu->View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a type library，选

择D:Program FilesMicrosoft (D:Program FilesMicrosoft Office是本机上

Microsoft Office 2000的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、

Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、

_Workbook、Worksheets、_Worksheet、Range，头文件Excel9.h，源文件。

在文件的头部，#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 (!Dispatch("ation",NULL))

{

AfxMessageBox("创建Excel服务失败!");

exit(1);

}

//利用模板文件建立新文档

Dispatch(kbooks(),true);

Dispatch((_variant_t("g:")));

//得到Worksheets

Dispatch(ksheets(),true);

//得到sheet1

Dispatch(m(_variant_t("sheet1")),true);

//得到全部Cells，此时,rgMyRge是cells的集合

Dispatch(ls(),true);

//设置1行1列的单元的值

m(_variant_t((long)1),_variant_t((long)1),_variant_t("This Is A Excel Test Program!"));

//得到所有的列

Dispatch(umns(),true);

//得到第一列

Dispatch(m(_variant_t((long)1),vtMissing).pdispVal,true);

//设置列宽

umnWidth(_variant_t((long)200));

//调用模板中预先存放的宏

(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing,

vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,

vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);

//打印预览

ed(true);

ible(true);

review(_variant_t(false));

//释放对象

eDispatch();

}

添加完以上程序后，可运行看结果。

例子：

如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，

我们可以在不去了解数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！

好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总

体上是个连贯的过程，包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多

人感兴趣的合并单元格的处理。

特别说明以下代码需要MFC的支持，而且工程中还要包含EXCEL2000的定义文件：EXCEL9.H，

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

//*****

//变量定义

_Application app;

Workbooks books;

_Workbook book;

Worksheets sheets;

_Worksheet sheet;

Range range;

Range iCell;

LPDISPATCH lpDisp;

COleVariant vResult;

COleVariant

covTrue((short)TRUE),

covFalse((short)FALSE),

covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

//*****

//初始化COM的动态连接库

if(!AfxOleInit())

{

AfxMessageBox("无法初始化COM的动态连接库!");

return ;

}

{

AfxMessageBox("无法启动Excel服务器!");

return;

}

ible(TRUE); //使Excel可见

rControl(TRUE); //允许其它用户控制Excel

//*****

//打开c:

Dispatch(kbooks());

lpDisp = ("C:",

covOptional, covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional );

//*****

//得到Workbook

Dispatch(lpDisp);

long iStartRow=(); //已使用区域的起始行，从1开始

long iStartCol=umn(); //已使用区域的起始列，从1开始

//*****

//读取第一个单元格的值

Dispatch(ls());

Dispatch(m (COleVariant((long)1),COleVariant((long)1)).pdispVal );

COleVariant vResult =ue();

CString str;

if( == VT_BSTR) //字符串

{

str=l;

}

else if (==VT_R8) //8字节的数字

{

("%f",);

}

else if(==VT_DATE) //时间格式

{

SYSTEMTIME st;

VariantTimeToSystemTime(&, &st);

}

else if(==VT_EMPTY) //单元格空的

break;

case -4131 : //*左

break;

case -4152 : //*右

break;

}

//垂直对齐方式

Dispatch((m (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);

=0;

vResult=ticalAlignment();

if(!=0)

{

Range unionRange;

Dispatch(ls());

Dispatch(m (COleVariant((long)1),COleVariant((long)1)).pdispVal );

vResult=geCells();

if(l==-1) //是合并的单元格

{

//合并单元格的行数

Dispatch (s ());

long iUnionRowNum=nt ();

//合并单元格的列数

Dispatch (umns ());

long iUnionColumnNum=nt ();

//合并区域的起始行，列

long iUnionStartRow=(); //起始行，从1开始

long iUnionStartCol=umn(); //起始列，从1开始

}

else if(l==0)

{//不是合并的单元格}

//将第一个单元格合并成2行，3列

Dispatch(ls());

Dispatch(m (COleVariant((long)1),COleVariant((long)1)).pdispVal );

Dispatch(ize(COleVariant((long)2),COleVariant((long)3)));

(COleVariant((long)0)); //合并单元格

本文发布于:2023-11-30，感谢您对本站的认可！

本文链接:https://www.fzithome.com/xitong/1701284507a27576.html

在Visual C++ 中调读取和控制Excel详细教程

发布评论取消回复

最近发表

相关推荐

标签列表

在Visual C++ 中调读取和控制Excel详细教程

发布评论 取消回复

最近发表

相关推荐

标签列表

发布评论取消回复