VC EXCEL

v

VC操作Excel文件保存问题

作者： 丑公子 提交日期：2007-8-9 23:31:00 | 分类: | 访问量：227

最近要从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 　　***************************************************************************************************************** 　　 //***** 　　 //变量定义 　　 _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保存 　　 Sheet.OleProcedure("SaveAs", FName.c_str());