VC实现对Excel的操作

VC实现对Excel的操作

(2010-03-04 17:37:39)

转载

标签： it

分类：编程开发

特别说明以下代码需要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, 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();

--------------------------------------------------------------------------------
// Excel保存
了能使得输出到Excel中的数据显示表格，可以调用事先设置好的模板，但是不灵活。我花了一个中午的时间摸索出如何设置它了。

具体代码如下：

LPDISPATCH pRange;

CString cell;

int c,c1,c2;

_variant_t vRange1; // 设置单元格的线；

_variant_t vRange2;

_variant_t vRange3;

_variant_t vRange4;

c='A';

c1=j/26;

c2=j%26;

if(c1==0)

cell.Format("%c%d",c2+c,i+1); // i+1 ：表示从第二行开始关联

else

cell.Format("%c%c%d",c1+c-1,c2+c-1,i+1);

VERIFY(pRange = m_worksheet.GetRange(COleVariant(cell)));

m_range.AttachDispatch(pRange);

//对齐方式

Var.vt = VT_I2;

Var.iVal=-4108;

m_range.SetHorizontalAlignment(Var);

m_range.SetVerticalAlignment(Var);

//

// 设置单元格的线；

vRange1.vt =VT_I2;

vRange1.lVal =1; // 线的样式：0- no line; 1-solid; 2-big dot;3-small dot;4-dash dot; 5-dash dot dot;

vRange2.vt =VT_I2;

vRange2.lVal =3; // 线的粗细程度；

vRange3.vt =VT_I2;

vRange3.lVal =1; // 1-black;2-white;3-red;4-green;5-blue; 6-yellow; 7-pink;8-dark blue;

vRange4.vt = VT_UI4;

vRange4.uintVal =RGB(0,0,0); // 我测试后认为，没有实际意义，只有vRange3起作用

m_range.BorderAround(vRange1,vRange2,vRange3,vRange4);

//

//

strValue=m_book.GetTextRC(i,j+2);

strValue.TrimLeft(" ");

strValue.TrimRight(" ");

if(!strValue.IsEmpty())

{

m_range.SetValue(COleVariant(strValue));

}

m_range.ReleaseDispatch();

//

虽然没有什么高深的技术含量，只是为了让后面需要的人少走点弯路。

不当之处，还望指正。

文章来源：http://hi.baidu.com/qds316/blog/item/4ca69ded2903a11dfdfa3ce2.html