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

你可能感兴趣的:(Excel,Microsoft,服务器,application,mfc,books)