vc++-操作excel文件方法

我以前写了个VC操作Excel2003的例子，是一个Console的程序，你可以修改一下文件保存的路径，然后运行一下看看。

/dukejoe/archive/2007/04/16/1156319.aspx

以下是一部分的VC代码，全部的看链接吧。我就不都粘了

C/C++code/********************************************************************************这是上面VBAReportDemo的对应程序*演示使用VC操作Excel2003*功能：设置单元格，风格，冻结窗格。以及如何将对应的VB代码翻译成VC**时间：2007-04-1609:31*作者：高宏伟(DukeJoe)*QQ：21807822*Blog：*注释：本代码可单独研究，但最好和上面的VBAReportDemo对应看比较好**开发环境：VisualStudio.NET2003*操作系统：WindowsXPHomeEditionServicePack2*******************************************************************************/#include<iostream>usingnamespacestd;#import"C:\ProgramFiles\CommonFiles\MicrosoftShared\OFFICE11\mso.dll"rename("RGB","MSRGB")#import"C:\ProgramFiles\CommonFiles\MicrosoftShared\VBA\VBA6\VBE6EXT.OLB"raw_interfaces_only,\rename("Reference","ignorethis"),rename("VBE","JOEVBE")#import"C:\ProgramFiles\MicrosoftOffice\OFFICE11\excel.exe"exclude("IFont","IPicture")\rename("RGB","ignorethis"),rename("DialogBox","ignorethis"),rename("VBE","JOEVBE"),\rename("ReplaceText","JOEReplaceText"),rename("CopyFile","JOECopyFile"),\rename("FindText","JOEFindText"),rename("NoPrompt","JOENoPrompt")usingnamespaceOffice;usingnamespaceVBIDE;usingnamespaceExcel;intExportExcelFile();intmain(intargc,char*argv[]){if(FAILED(::CoInitialize(NULL)))return1;ExportExcelFile();::CoUninitialize();return0;}intExportExcelFile(){_ApplicationPtrpApplication=NULL;_WorkbookPtrpThisWorkbook=NULL;_WorksheetPtrpThisWorksheet=NULL;SheetsPtrpThisSheets=NULL;RangePtrpThisRange=NULL;_variant_tvt;Excel::XlFileFormatvFileFormat;Excel::XlSaveAsAccessModevSaveAsAccessMode;Excel::XlSaveConflictResolutionvSaveConflictResolution;pApplication.CreateInstance("Excel.Application");pApplication->PutVisible(0,VARIANT_TRUE);pThisWorkbook=pApplication->GetWorkbooks()->Add();pThisSheets=pThisWorkbook->GetWorksheets();pThisWorksheet=pThisSheets->GetItem((short)1);//设置整个sheet的填充色为白色pThisWorksheet->GetCells()->GetInterior()->PutColor(RGB(255,255,255));pThisWorksheet->GetCells()->ClearContents();pThisRange=pThisWorksheet->GetRange("A1:C5");pThisRange->ClearFormats();//如果有不会的，可以在debug文件夹的excel.tlh里找找//pThisRange->GetItem(1,1);pThisRange->PutItem(1,1,_variant_t("哈尔滨市平房区"));pThisRange->PutItem(1,2,_variant_t("高宏伟"));pThisRange->PutItem(1,3,_variant_t("QQ:21807822"));pThisRange->PutItem(2,1,_variant_t("1"));pThisRange->PutItem(3,1,_variant_t("2"));pThisRange->PutItem(4,1,_variant_t("3"));pThisRange->PutItem(5,1,_variant_t("4"));//为Range的四周和内部加上边框pThisRange->GetBorders()->GetItem(xlEdgeLeft)->PutLineStyle(xlContinuous);pThisRange->GetBorders()->GetItem(xlEdgeTop)->PutLineStyle(xlContinuous);pThisRange->GetBorders()->GetItem(xlEdgeRight)->PutLineStyle(xlContinuous);pThisRange->GetBorders()->GetItem(xlEdgeBottom)->PutLineStyle(xlContinuous);pThisRange->GetBorders()->GetItem(xlInsideHorizontal)->PutLineStyle(xlContinuous);pThisRange->GetBorders()->GetItem(xlInsideVertical)->PutLineStyle(xlContinuous);//设置第一行的格式（背景色、粗体、颜色、列宽）pThisRange->GetRange("A1:C1")->GetInterior()->ColorIndex=47;pThisRange->GetRange("A1:C1")->GetInterior()->Pattern=xlPatternSolid;pThisRange->GetRange("A1:C1")->GetFont()->ColorIndex=6;pThisRange->GetRange("A1:C1")->GetFont()->Bold=TRUE;pThisRange->GetEntireColumn()->ColumnWidth=18.63;pThisRange->GetRange("A2:C5")->GetInterior()->ColorIndex=16;pThisRange->GetRange("A2:C5")->GetInterior()->Pattern=xlPatternSolid;pThisRange->GetRange("A2:C5")->GetFont()->ColorIndex=2;//冻结窗格pApplication->ActiveWindow->FreezePanes=FALSE;pApplication->Range["A2"]->Select();pApplication->ActiveWindow->FreezePanes=TRUE;//存盘退出vSaveAsAccessMode=xlNoChange;vFileFormat=xlWorkbookNormal;vSaveConflictResolution=xlLocalSessionChanges;pThisWorkbook->SaveAs(_variant_t("D:\\VisualStudioProjects\\VCReportDemo\\joe.xls"),vFileFormat,_variant_t(""),_variant_t(""),_variant_t(false),_variant_t(false),vSaveAsAccessMode,vSaveConflictResolution,_variant_t(false));pThisWorkbook->Close();pApplication->Quit();return0;}VC操作Excel文件保存问题用VC对Excel文件进行写操作后，在程序结束前需要对一些对象进行收尾工作，如调用_Workbook::Save()方法(该方法是Microsoft提供的供VC调用的对Excel文件操作的标准方法，在文件excel9.cpp或excel.cpp中定义)保存文件。

问题就出现在这里，若选取要保存的Excel文件以前不存在则程序创建一个同名的空Excel文件，对Excel表的操作实际是对其同名副本的操作，Save()方法会触发一个"另存为"的对话框，需要覆盖原来同名的空Excel文件，否则写入Excel的数据会丢失。若选取的Excel文件已经存在，则调用Save()方法不会触发"另存为"对话框，系统会自动保存写到Excel中的数据。

需要说明的是，在调用Save()前，已经调用过SetAlertBeforeOverwriting(FALSE)和SetDisplayAlerts(FALSE)关掉一些警告窗口了。若调用SaveAs()方法，虽不会触发"另存为"对话框，但会出抛出“找不到成员”的错误，这时保存写好的Excel文件后并重新打开发现数据还是丢失。

想尽所有办法，可总无法去掉那个讨厌的"另存为"对话框，请各位大虾帮忙。多谢了！SaveAs()是excelapp的方法吗。

xlApp.ActiveWorkbook.SaveAs"C:\excel.xls"

xlApp.Quit

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

数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！

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

包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。

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

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

//*****

//变量定义

_Applicationapp;

Workbooksbooks;

_Workbookbook;

Worksheetssheets;

_Worksheetsheet;

Rangerange;

RangeiCell;

LPDISPATCHlpDisp;

COleVariantvResult;

COleVariant

covTrue((short)TRUE),

covFalse((short)FALSE),

covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

//*****

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

if(!AfxOleInit())

{

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

return;

}

//*****

//创建Excel2000服务器(启动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);

//*****

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

RangeusedRange;

usedRange.AttachDispatch(sheet.GetUsedRange());

range.AttachDispatch(usedRange.GetRows());

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

range.AttachDispatch(usedRange.GetColumns());

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

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

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

//*****

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

range.AttachDispatch(sheet.GetCells());

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

COleVariantvResult=range.GetValue();

CStringstr;

if(vResult.vt==VT_BSTR)//字符串

{

str=vResult.bstrVal;

}

elseif(vResult.vt==VT_R8)//8字节的数字

{

str.Format("%f",vResult.dblVal);

}

elseif(vResult.vt==VT_DATE)//时间格式

{

SYSTEMTIMEst;

VariantTimeToSystemTime(&vResult.date,&st);

}

elseif(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)

{

case1://默认

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!"));

//*****

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

Fontfont;

range.AttachDispatch(sheet.GetCells());

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

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

//*****

//合并单元格的处理

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

RangeunionRange;

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

longiUnionRowNum=range.GetCount();

//合并单元格的列数

range.AttachDispatch(unionRange.GetColumns());

longiUnionColumnNum=range.GetCount();

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

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

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

}

elseif(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保存

Sheet.OleProcedure("SaveAs",FName.c_str());VC写excel文件常用操作(一):字体、列宽设置、写单元格(2010-05-1322:22:39)转载▼1、字体设置从Excel.exe中导入Font类，颜色设置代码如下：Fontfont;COleVariantvTrue((short)true),vFalse((short)false);font.AttachDispatch(range.GetFont());//获得Range的字体对象

font.SetColor(_variant_t((long)0x0000ff));//设置字体颜色为红色

font.SetBold(vTrue);//粗体

font.SetItalic(vTrue);//斜体font.DetachDispatch();//释放字体对象注意：Excel中RGB的值与某些场合相反，即：0x00bbggrr|||________红色||__________绿色|____________蓝色2、列宽设置range.AttachDispatch(sheet.GetRange(_variant_t("C1"),_variant_t("C100")));//获取表单中的列"C"对象

range.SetColumnWidth(_variant_t((long)40));//设置列宽为40

range.DetachDispatch();3、写单元格range.AttachDispatch(sheet.GetCells(),true);//打印乘法表for(i=1;i<10;i++)

{

for(j=1;j<=i;j++)

{

range.SetItem(_variant_t((long)i),_variant_t((long)j),_variant_t((long)(i*j)));

}

}VC操作Excel删除里面sheet的方法2009-04-2311:55:55|分类：\o"默认分类"默认分类|字号订阅VC里可以用Excel提供的类型库来编程操作Excel表格,最近有人问及怎么删除一个sheet,该提问者说他的代码只能删除一个空的sheet,非空的总是删不了,我以前也没操作过Excel试了一下,发现是可以的,Excel提供的类型库还是瞒好用的,只要去挖掘.......代码如下,我就不解析了,看看就懂voidCOptExcelDlg::OnOK(){_Applicationapp;if(!app.CreateDispatch(_T("Excel.Application"),NULL)){AfxMessageBox(_T("fail2"));return;}app.SetVisible(FALSE);app.SetUserControl(FALSE);app.SetDisplayAlerts(F