VC操作Excel-Automation版

因为用ODBC连接Excel，不能处理任意创建的Excel文件，于是我决定另写一个版本，用Automation技术。其实就是用Excel自己的类库，进行操作。我在实习的时候，用过这种方法，开发AutoCAD图纸签名程序。

说Automation技术，只不过是随着别人叫而已，具体是什么东西，我还不太清楚。慢慢理解吧。

程序参考自：http://blog.csdn.net/bodybo/archive/2009/05/27/4219242.aspx

开发过程如下：

还是用支持MFC的控制台程序来试验

1、创建一个支持MFC的控制台工程。工程名为ExcelTest。

2、加入Excel组件。菜单选择View
->ClassWizard，添加Excel类库



进入到Office的安装目录：.



文件类型选择为All Files(*.*)。选择EXCEL.EXE：



点“打开”，然后选择要引入的类，_Application、Worksheets、_Worksheet、Workbooks、_Workbook、Range这五个类（其中Worksheets不好找，可以先在键盘上按“W”键，找到Worksheets，然后找到其余几个类，按住ctrl键，将其选中）



点OK按钮，将这几个类引入到工程中。这时工程里面就会多了两个文件，Excel.h和Excel.cpp，以及引入的六个类：



3、在ExcelTest.cpp中引入Excel头文件。

#include "excel.h"

4、在_tmain()函数前面声明一个函数，用来处理Excel。

void CalculateExcel(CString strFile);

5、编写CalculateExcel()函数。

void CalculateExcel(CString strFile)

{

_Application app;

_Workbook book;

_Worksheet sheet;

Workbooks books;

Worksheets sheets;

Range range;

LPDISPATCH lpDisp;

COleVariant vResult;

COleVariant covTrue((short)TRUE);

COleVariant covFalse((short)FALSE);

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

//创建Excel服务器(启动Excel)

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

{

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

return;

}

app.SetVisible(FALSE); //使Excel不可见

//打开demo.xls

books.AttachDispatch(app.GetWorkbooks());

lpDisp = books.Open(strFile,

covOptional, covFalse, covOptional, covOptional, covOptional,

covOptional, covOptional, covOptional, covOptional, covOptional,

covOptional, covOptional, covOptional, covOptional);

//得到Workbook

book.AttachDispatch(lpDisp);

//得到Worksheets

sheets.AttachDispatch(book.GetWorksheets());

//得到当前活跃sheet

//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待

lpDisp=book.GetActiveSheet();

sheet.AttachDispatch(lpDisp);

//读取已经使用区域的信息，包括已经使用的行数、列数、起始行、起始列

Range usedRange;

usedRange.AttachDispatch(sheet.GetUsedRange());

range.AttachDispatch(usedRange.GetRows());

long iRowNum=range.GetCount(); //已经使用的行数

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

//读取每一行的内容

CString strValue1; // 第一个单元格内容

double dValue2; // 第二个单元格内容

CString strTmp; // 临时存储字符串

double dResult = 0.0; // 计算结果

double dRowIndex; // 目标行

for (int i=iStartRow; i<=iRowNum; i++)

{

// 得到本行第一个单元格的内容（字符串）

range.AttachDispatch(usedRange.GetItem(COleVariant((long)i), COleVariant((long)1)).pdispVal);

vResult = range.GetText();

strValue1 = vResult.bstrVal;

// 得到本行第二个单元格的内容（double）

range.AttachDispatch(usedRange.GetItem(COleVariant((long)i), COleVariant((long)2)).pdispVal);

vResult = range.GetText();

strTmp = vResult.bstrVal;

dValue2 = atof(strTmp);

// 判断本行是不是应该写入计算结果的那一行

if (strValue1 == "call price")

{

dRowIndex = i;

break;

}

strTmp.Format("%d\t%s\t\t%.2f\n", i, strValue1, dValue2);

printf(strTmp);

// 求和

dResult += dValue2;

}

strTmp.Format("\nthe result:\n%s\t%.2f\n", strValue1, dResult);

printf(strTmp);

// 写入计算结果

usedRange.SetItem(COleVariant((long)dRowIndex), COleVariant((long)2), COleVariant((double)dResult));

// 保存

book.Save();

//关闭所有的book，退出Excel

book.Close (covOptional,COleVariant(strFile),covOptional);

books.Close();

app.Quit();

}

6、然后在_tmain()函数中添加如下代码，来调用CalculateExcel函数：

::CoInitialize(NULL);

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

if(!AfxOleInit())

{

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

return 0;

}

char szCurrPath[300];

::GetCurrentDirectoryA(300, szCurrPath);// 得到程序所在目录

CalculateExcel((CString)szCurrPath + "\\demo.xls");

::CoUninitialize();

7、在工程根目录下，新建一个Excel文件，命名为demo.xls，随便添加几个数据，但是要有一个单元格为call
price，以便将计算结果写入到该单元格后面：



8、编译、执行程序