用VC玩转Excel

Myth丶恋晨 2021-12-15 13:23 293阅读 0赞

如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！

好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程，包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。

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

\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

//\*\*\*\*\*

//变量定义

\_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 ;

//\*\*\*\*\*

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

if(!app.CreateDispatch(“Excel.Application”))

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

return;

app.SetVisible(TRUE); //使Excel可见

app.SetUserControl(TRUE); //允许其它用户控制Excel

//\*\*\*\*\*

//打开c:\\1.xls

books.AttachDispatch(app.GetWorkbooks());

lpDisp = books.Open(“C:\\\\1.xls”,

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(); //已经使用的行数

range.AttachDispatch(usedRange.GetColumns());

long iColNum=range.GetCount(); //已经使用的列数

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

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

//\*\*\*\*\*

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

range.AttachDispatch(sheet.GetCells());

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

COleVariant vResult =range.GetValue();

CString str;

if(vResult.vt == VT\_BSTR) //字符串

str=vResult.bstrVal;

else if (vResult.vt==VT\_R8) //8字节的数字

str.Format(“%f”,vResult.dblVal);

else if(vResult.vt==VT\_DATE) //时间格式

SYSTEMTIME st;

VariantTimeToSystemTime(&vResult.date, &st);

else if(vResult.vt==VT\_EMPTY) //单元格空的

str=”";

//\*\*\*\*\*

//读取第一个单元格的对齐方式，数据类型:VT\_I4

//读取水平对齐方式

range.AttachDispatch(sheet.GetCells());

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

vResult.lVal=0;

vResult=iCell.GetHorizontalAlignment();

if(vResult.lVal!=0)

switch (vResult.lVal)

case 1: //默认

break;

case -4108: //居中

break;

case -4131 : //\*左

break;

case -4152 : //\*右

break;

//垂直对齐方式

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

vResult.lVal=0;

vResult=iCell.GetVerticalAlignment();

if(vResult.lVal!=0)

switch (vResult.lVal)

case -4160 : //\*上

break;

case -4108 : //居中

break;

case -4107 : //\*下

break;

//\*\*\*\*\*

//设置第一个单元格的值”HI,EXCEL!”

range.SetItem(COleVariant(1),COleVariant(1),COleVariant(“HI,EXCEL!”));

//\*\*\*\*\*

//设置第一个单元格字体颜色:红色

Font font;

range.AttachDispatch(sheet.GetCells());

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

font.SetColor(COleVariant((long)0xFF0000));

//\*\*\*\*\*

//合并单元格的处理

//包括判断第一个单元格是否为合并单元格，以及将第一个单元格进行合并

Range unionRange;

range.AttachDispatch(sheet.GetCells());

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

vResult=unionRange.GetMergeCells();

if(vResult.boolVal==-1) //是合并的单元格

//合并单元格的行数

range.AttachDispatch (unionRange.GetRows ());

long iUnionRowNum=range.GetCount ();

//合并单元格的列数

range.AttachDispatch (unionRange.GetColumns ());

long iUnionColumnNum=range.GetCount ();

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

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

long iUnionStartCol=unionRange.GetColumn(); //起始列，从1开始

else if(vResult.boolVal==0)

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

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

range.AttachDispatch(sheet.GetCells());

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

unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)3)));

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

//\*\*\*\*\*

//将文件保存为2.xls

book.SaveAs(COleVariant(“C:\\\\2.xls”),covOptional,covOptional, \\

covOptional,covOptional,covOptional,0,\\

covOptional,covOptional,covOptional,covOptional);

//\*\*\*\*\*

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

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

books.Close();

app.Quit();

转载于:https://www.cnblogs.com/rogee/archive/2011/05/24/2055899.html

用VC玩转Excel

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关巧用AI玩转分析实事

相关 Java | POI教你玩转Excel导入与导出

相关 Springboot下使用easyExcel玩转Excel表的导出

相关用实战玩转Pandas数据分析

相关 pandas 玩转 Excel 操作总结

相关 pandas玩转excel_pandas操作excel_pandas读写excel

相关用python玩转数据|基本语法

相关 [转]VC: MultiByteToWideChar和WideCharToMultiByte用法

相关 VC Office 自动化(Word、Excel)

相关用VC玩转Excel