使用VC++操作Excel文件 - [Ole]

最新推荐文章于 2024-08-08 08:28:26 发布

liucherish

最新推荐文章于 2024-08-08 08:28:26 发布

阅读量7k

点赞数 3

分类专栏： C/C++

C/C++ 专栏收录该内容

8 篇文章 1 订阅

订阅专栏

本文档适用于：

Microsoft Foundation Classes (MFC), Microsoft Visual C++, 32-bit Editions, version 6.0 以上
Microsoft OLE 库

第一步：建立一个自动化工程

启动VC 6.0，打开新建对话框，新建一个MFC AppWizard(exe)工程，这里工程明设置为TestExcel。
进入MFC 应用程序向导，选择基本对话框，直接点击完成：
打开MFC ClassWizard窗口(查看—>建立类向导)，选择Automation，单击Add Class按钮，选择From a type library...，弹出文件选择对话框，之后定位到Microsoft Office的安装目录 (通常为C:\Program Files\Microsoft Office\Office12)，选择EXCEL.exe ^注意，确定后，弹出Confirm Classes窗口，选择列表中的所有类，单击OK按钮。
注意原来文章里说的文件名是EXCEL9.OLB，因安装的Office版本不同而有所差异，EXCEL9.OLB对应的是Microsoft Office 2000，微软命名方式为Excel+数字的形式，Office版本越高，数字越大。在我用的office2007里直接用的exe文件
返回编辑器，查看工程文件，可发现多了EXCEL.H及EXCEL.CPP两个文件。
打开stdafx.h头文件确保包含如下头文件：
#include <afxdisp.h>
#include "excel9.h"
打开TestExcel.cpp文件，修改CTestExcelApp::InitInstance()，加入如下代码：
BOOL CTestExcelApp::InitInstance()
{

if( !AfxOleInit() ){

AfxMessageBox("初始化Ole出错！");

return FALSE;

}

AfxEnableControlContaine r();

......

......

return FALSE;

}

为保证编译时不产生重复定义错误，打开excel9.h文件，在文件开始位置加入如下代码：
#if !defined _HEAD_FILE_EXCEL9_
#define _HEAD_FILE_EXCEL9_

相应的，在文件末尾加入：
#endif

到此，OLE自动化工程建立完成。按下F7，看是否能通过编译。

第二步：操作EXCEL文件

选择ResourceView工作区，打开IDD_TESTEXCEL_DIALOG，在对话框中添加一个按钮控件Button1，双击它，生成一个Button1 Click事件的处理函数：

void CTestExcelDlg::OnButton1()
{
// TODO: Add your control notification handler code here

}
在OnButton1()函数中，添加代码：

void CTestExcelDlg::OnButton1()
{
// TODO: Add your control notification handler code here
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Font font;
Range cols;
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

if( !app.CreateDispatch("Excel.Application") ){
this->MessageBox("无法创建Excel应用！");
return;
}
books=app.GetWorkbooks();
book=books.Add(covOptional);
sheets=book.GetSheets();
sheet=sheets.GetItem(COleVariant((short)1));
range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));
//range.SetValue(COleVariant("HELLO EXCEL!"));
font=range.GetFont();
font.SetBold(COleVariant((short)TRUE));
range=sheet.GetRange(COleVariant("A2"),COleVariant("A2"));
range.SetFormula(COleVariant("=RAND()*100000"));
range.SetNumberFormat(COleVariant("$0.00"));
cols=range.GetEntireColumn();
cols.AutoFit();

app.SetVisible(TRUE);
app.SetUserControl(TRUE);

}
按下Ctrl+F5，执行程序。按下Button1，将会弹出Excel窗口：
到此，即完成了我们的示例程序，下面将对程序进行详细的说明，如果大家有过使用Visual Basic操作Excel程序的经验，则应该能看懂下面程序：

void CTestExcelDlg::OnButton1()
{

// TODO: Add your control notification handler code here

_Application app;

Workbooks books;

_Workbook book;

Worksheets sheets;

_Worksheet sheet;

Range range; //Excel中针对单元格的操作都应先获取其对应的Range对象

Font font;

Range cols;

//covOptional 可选参数的VARIANT类型

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

if( !app.CreateDispatch("Excel.Application") ){

this->MessageBox("无法创建Excel应用！");

return;

}

//获取工作薄集合

books=app.GetWorkbooks();

//添加一个工作薄

book=books.Add(covOptional);

//获取工作表集合

sheets=book.GetSheets();

//获取第一个工作表

sheet=sheets.GetItem(COleVariant((short)1));

//选择工作表中A1:A1单元格区域

range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));

//设置A1=HELLO EXCEL!"

range.SetValue(COleVariant("HELLO EXCEL!"));

//调整格式，设置粗体

font=range.GetFont();

font.SetBold(COleVariant((short)TRUE));

//选择A2单元格，插入一个公式"=RAND()*100000"，并设置A2数字格式为货币形式

range=sheet.GetRange(COleVariant("A2"),COleVariant("A2"));

range.SetFormula(COleVariant("=RAND()*100000"));

range.SetNumberFormat(COleVariant("$0.00"));

//选择A:A列，设置宽度为自动适应

cols=range.GetEntireColumn();

cols.AutoFit();

//显示Excel表格，并设置状态为用户可控制

app.SetVisible(TRUE);

app.SetUserControl(TRUE);
如何自动保存我们生成的Excel文件？通过Workbook对象的SaveAs方法即可实现：

book.SaveAs(COleVariant("C:\\a.xls"),covOptional,
covOptional,covOptional,
covOptional,covOptional,(long)0,covOptional,covOptional,covOptional,
covOptional);
上面的程序只能实现新建Excel文件的功能，但大多数情况我们需要的是导入excel中的数据，即要打开现存的xls文件，那么可用如下代码：
_Application app;
Workbooks books;

_Workbook book;

Worksheets sheets;

_Worksheet sheet;
LPDISPATCH lpDisp; //接口指针

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
if( !app.CreateDispatch("Excel.Application") ){

this->MessageBox("无法创建Excel应用！");

return;

}

books=app.GetWorkbooks();
lpDisp = books.Open("C:\\a.xls",
covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional //此处多了两个参数
);
book.AttachDispatch( lpDisp );
sheets=book.GetSheets();
sheet=sheets.GetItem(COleVariant((short)1));
range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));

COleVariant rValue;
rValue=COleVariant(range.GetValue());
rValue.ChangeType(VT_BSTR);
this->MessageBox(CString(rValue.bstrVal));

book.SetSaved(TRUE);
app.Quit();
运行上面程序，单击Button1按钮，会显示出C:\a.xls文件中A1单元格中的内容。注意看以下代码，实现了Variant数据类型转换为CString类，这个只是一个示例，转换较为简单。

COleVariant rValue;
rValue=COleVariant(range.GetValue());
rValue.ChangeType(VT_BSTR);
this->MessageBox(CString(rValue.bstrVal));

8. 领导要求xls文件打开显示后不能写，只读，那么需要把books.Open函数的第三个参数改为readonly

VARIANT readonly;

readonly.vt = VT_INT;

readonly.intVal = 1;

lpDisp = books.Open("C:\\a.xls",
        covOptional, readonly , covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional,

        covOptional, covOptional //此处多了两个参数
        );

即可。