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

www.ccrun.com里面有说道。

---

VC下设置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://www.joyvc.cn