VC操作excel 内附合并单元格算法and为excel画边框算法

关于操作excel的资料不多 此文只为新手整理一下用VC操作excel的一个思路~~ 

以前给表头合并单格总是古板的一个格一个格去查，但是每个表头合并单元格肯定不是固定的，一个个查去实在是浪费精力 浪费时间

所以就写个小算法吧~

#include "excel.h" //别忘把excel.h excel.cpp拷贝到工程下面  然后引入！

#include "comdef.h"

 

 char szFilter[]="Text files(*.xls)|*.xls||";
 char szExt[]="xls";
 char szName[]="*.xls";
 CFileDialog dialog(false, szExt, szName,0,szFilter,this);
 dialog.m_ofn.lpstrTitle="存放文件夹";
 if(dialog.DoModal()==IDOK)//弹出CFileDialog 判断用户是否点击确定按钮
 {  
  CString str;
  str=dialog.GetPathName();
        CFile f;
  CFileException e;
  if( !f.Open( str, CFile::modeCreate | CFile::modeWrite, &e ) )
  {
   MessageBox("创建文件失败!!","XX软件",MB_ICONSTOP);
   return;
  }//创建并打开文件
  
  //从VC中的Microsoft FlexGrid控件逐行逐列读取数据并到str中
  CString jc="";
  for(int i=0;i<m_grid.GetRows();i++)
  {
   for(int j=0;j<m_grid.GetCols();j++)
   {
    CString temp=m_grid.GetTextMatrix(i,j);
    temp.TrimLeft();
    temp.TrimRight();
    jc+=temp+" ";
   }
   jc=jc.Left(jc.GetLength()-1);
   jc+="/r/n";
   f.Write(jc,jc.GetLength());
   jc="";
  }
  f.Close();
   
  CString sheetname;
  _Application   ExcelApp;    
  Workbooks   wbsMyBooks;    
  _Workbook   wbMyBook;    
  Worksheets   wssMysheets;    
  _Worksheet   wsMysheet;    
  Range   rgMyRge; 
  COleVariant vResult,vsty;
  COleVariant
        covTrue((short)TRUE),
        covFalse((short)FALSE),
        covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
  str = dialog.GetPathName();
  sheetname = dialog.GetFileName();
  sheetname = sheetname.Left(sheetname.Find(".xls"));
  
  try
  {
   COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); 
   //(启动Excel)    
   if(!ExcelApp.CreateDispatch("Excel.Application",NULL))    
   {    
    AfxMessageBox("创建Excel服务失败!");    
    return;   
   }    
   wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);  
   wbMyBook   =   wbsMyBooks.Add(covOptional);
   //打开excel文件
   wbMyBook.AttachDispatch(wbsMyBooks.Open(str,
    covOptional,covOptional,covOptional,covOptional,covOptional,  
    covOptional,covOptional,covOptional,covOptional,covOptional,  
    covOptional,covOptional));
   
   //得到Worksheets
   wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);    
   //得到sheet1    
   wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t(sheetname)),true); 
   //得到全部Cells，此时,rgMyRge是cells的集合    
   rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);

   Range usedRange;
   Range unionRange;
   Range uinCount;
   usedRange.AttachDispatch(wsMysheet.GetUsedRange());
   rgMyRge.AttachDispatch(usedRange.GetRows());
   long iRowNum=rgMyRge.GetCount();                   //已经使用的行数
   rgMyRge.AttachDispatch(usedRange.GetColumns());
   long iColNum=rgMyRge.GetCount();                   //已经使用的列数
  
   //设置所有列类型,都是文本类型  
//   CString jc="";
   CString strHcell,strZcell,str;
   int nCell1,nCell2;
    
   _variant_t  vRange1;
   _variant_t  vRange2;
   _variant_t  vRange3;
   _variant_t  vRange4;
    
   vRange1.vt =1;
   vRange1.lVal =1; 
   vRange2.vt =VT_I2;
   vRange2.lVal =2;   
   vRange3.vt =VT_I2;
   vRange3.lVal =1;  
   vRange4.vt = VT_UI4;
   vRange4.uintVal =RGB(0,0,0);
   //画excel边框  
   for(int i=3;i<iRowNum;i++)
   {
    for(int k=0;k<=iColNum;k++)
    {
     
     str.Format("%d",i+1);
     strHcell="A"+str;
     nCell1=k%26;
     nCell2=(k-1)/26;
     if(nCell1==0)
     {
      if(iColNum<26)
       nCell1 = iColNum;
      else
       nCell1=26; 
     }
     if(nCell2==0)
     {
      strZcell=64+nCell1;
      strZcell=strZcell+"4";
     }
     else
     {
      strZcell=64+nCell2;
      str=64+nCell1;
      strZcell=strZcell+str;
      strZcell=strZcell+"4";
     }
     Range myallrange=wsMysheet.GetRange(COleVariant(strHcell),COleVariant(strZcell)); 
     myallrange.BorderAround(vRange1,vRange2,vRange3,vRange4);
     myallrange.ReleaseDispatch();
    }
   }

   CString strName("");
   CString betterName("");
   int RowCount=0;
   int ColCount=0;
   //VC操作excel实现表头合并单元格的算法（当然你要合并数据行也可以）
   int startRow = 1;  //表头从哪行开始就设置为几
   int endRow = 3;    //表头结束行+1  如excel中前两行为表头 那我们就设置endRow = 2+1;(注：2代表 表头在第二行结束)
   for(int x=startRow;x<endRow;x++)
   {
    for(int y=1;y<=iColNum;y++)
    {
     usedRange.AttachDispatch(wsMysheet.GetCells());
     unionRange.AttachDispatch(usedRange.GetItem (COleVariant((long)x),COleVariant((long)y)).pdispVal );//获得第x行第y列的数据      
     vResult=unionRange.GetValue();
     if(vResult.vt==VT_R8)
     {
      strName.Format("%f",vResult.dblVal);
     }
     else
      strName=vResult.bstrVal;
     if(strName == "")
      continue;
     for(int i=0;i<15;i++)
     {
      uinCount.AttachDispatch(usedRange.GetItem (COleVariant((long)(x)),COleVariant((long)(y+i+1))).pdispVal );      
      vResult=uinCount.GetValue();
      if(vResult.vt==VT_R8)
       betterName.Format("%f",vResult.dblVal);
      else if(vResult.vt==VT_BSTR)
       betterName = vResult.bstrVal;
      else
       break;
      if(betterName==strName)
       RowCount+=1;
      else
       break;;
     }
     if(RowCount == 0)
     {
      for(int i=0;i<15;i++)
      {
       uinCount.AttachDispatch(usedRange.GetItem (COleVariant((long)(x+1+i)),COleVariant((long)(y))).pdispVal );      
       vResult=uinCount.GetValue();
       if(vResult.vt==VT_R8)
        betterName.Format("%f",vResult.dblVal);
       else if(vResult.vt==VT_BSTR)
        betterName = vResult.bstrVal;
       else
        break;
       if(betterName==strName)
        ColCount+=1;
       else
        break;
      }
     }
     if(RowCount !=0 && ColCount==0)
     {
      for(int r=0;r<RowCount;r++)
      {
       usedRange.SetItem(COleVariant((long)(x)),COleVariant((long)(y+r+1)),COleVariant(""));
      }
      unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)1),COleVariant((long)(RowCount+1))));
      unionRange.Merge(COleVariant((long)0));   //合并单元格 一行多列合并
      unionRange.SetHorizontalAlignment(COleVariant((short)3));//设置名头水平对齐方式为水平居中
     }
     if(ColCount!=0 && RowCount==0)
     {
      for(int r=0;r<ColCount;r++)
      {
       usedRange.SetItem(COleVariant((long)(x+r+1)),COleVariant((long)(y)),COleVariant(""));
      }
      unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)(ColCount+1)),COleVariant((long)(1))));
      unionRange.Merge(COleVariant((long)0));   //合并单元格 多行一列合并
      unionRange.SetHorizontalAlignment(COleVariant((short)3));//设置名头水平对齐方式为水平居中
     }
     RowCount=0;
     ColCount=0;
     strName="";
     betterName="";
    }   
   }
   uinCount.ReleaseDispatch();
   usedRange.ReleaseDispatch();
   unionRange.ReleaseDispatch();
   rgMyRge.ReleaseDispatch();
  }
  catch(...)  
  {
   ExcelApp.SetUserControl(true);
   
   rgMyRge.ReleaseDispatch();    
   wsMysheet.ReleaseDispatch();    
   wssMysheets.ReleaseDispatch();    
   wbMyBook.ReleaseDispatch();    
   wbsMyBooks.ReleaseDispatch();    
   ExcelApp.ReleaseDispatch();
   ExcelApp.Quit();
   ::MessageBox(NULL,"General Exception caught.","Catch-All",MB_SETFOREGROUND|MB_OK);
   return;
  }
  MessageBox("excel写入成功!!","XX软件",MB_ICONEXCLAMATION);
 } 

 

//此种用VC操作excel的思路是 

一：创建一个文件扩展名为.xls的文件

二：把数据写入到文件中 关闭文件

三：启动excel打开要进行操作的excel文件

四：关闭所有连接以确保关闭excel文件时进程也杀掉了

当然 这只是其中一种方法 还可以创建一个excel模板，直接在模板里写数据 操作完成后一起保存。免去了创建文件 关闭 再打开的繁琐。