VC Excel类

  时常在论坛上看到有人问这个VC操作Word或者Excel有没有书系统地介绍如何去做，有这个必要吗？其实捅破这层窗户纸，你就会恍然大悟，原来是这么回事啊！在此我觉得有必要把我工作中操纵Excel的一点小体会拿出来和大家共享，也许对初学者能有所帮助，高手就不要看了。操作Word请看牛人yingkou的BLOG( http://blog.vckbase.com/yingkou ) .基本步骤如下：

        一、Excel的层次结构   
        Application

               Workbooks

                   Workbook

                    ......

               Worksheets

                   Worksheet

                    ......

               Range

                   Font

                   Borders

                    ......

            .......

        二、插入类型库

        1、在一个已有的MFC工程按Ctrl + W 弹出ClassWizard对话框。
        2、Add Class.../From a type Library... 在 Office 目录中，找到你想使用的Excel类型库(Offce2000下，此目录在C:/Program Files/Microsoft Office/Office/EXCEL9.OLB)。选择EXCEL9.OLB此类型文件。
        3、在弹出的对话框中选择要添加的类，具体选那些类要根据实际情况而定。当然你也可以全选。

           三、基本操作

           当你要选用Excel生成报表时，表的结构可能有固定的部分，这时做一个模板，这样可以减少编码的负担。加载Excel模板的代码如下。
        

    _Application ExcelApp;           // 定义Excel应用程序
      Workbooks          wbsBooks;
      _Workbook          wbBook;
      Worksheets         wssSheets;
      _Worksheet         wsSheet;
      Range        rngXls;
      FontXls            font;               // 字体
      BordersXls         border;         // 边框
      // 初始化Com
     if (::CoInitialize( NULL ) == E_INVALIDARG)
   {
              AfxMessageBox(_T("初始化Com失败!"));
     }

     // 创建Excel2000服务器(启动Excel)
     if ( ! ExcelApp.CreateDispatch(_T( " Excel.Application " ), NULL))
   {
         AfxMessageBox(_T("创建Excel2000服务失败!"));
         ::CoUninitialize();
     }
   
       ExcelApp.SetVisible(FALSE); // 隐藏

       

     CString strPath;
     strPath += "C:/ /template.xlt " ; //     模板的路径     
     CFileFind filefind;
     if ( ! filefind.FindFile( strPath ) )
   {
         AfxMessageBox( "没有找到模版文档，请其查找" );
        
         CFileDialog dlg (TRUE,
                                     NULL,                                  
                                   NULL,
                                     OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
                                   "模版||*.xlt||",
                                   NULL );
        
        if (IDOK == dlg.DoModal())
     {
             strPath = dlg.GetPathName();
         }
     }

     COleVariant vOptional( ( long )DISP_E_PARAMNOTFOUND, VT_ERROR );

     try
   {
         wbsBooks.AttachDispatch(ExcelApp.GetWorkbooks(), TRUE);
         wbBook.AttachDispatch(wbsBooks.Add(COleVariant(strPath)), TRUE );

         wssSheets = wbBook.GetWorksheets();
         wsSheet = wssSheets.GetItem(_variant_t("Sheet1")); // Get Sheet1
          wsSheet.SetName( "Your Sheet" );    // 改名
          // 得到全部Cells，此时,rngXls 是cells的集合
          rngXls = wsSheetAcc.GetCells();      
     }
     catch (CException e)
   {
         AfxMessageBox( "" )
     }

       
        我们知道在Excel中每个单元格可以用A1,A2,C3的形式来表示。譬如获得A1到C5之间单元格集可以这样实现，rngXls = rngXls.GetRange( COleVariant(_T(“A1“)),COleVariant(_T(“C5“)) );但是我们习惯用坐标形式如(1,1),(2,1)来表示每个单元格，在上述操作中，就没有办法用我们习惯的坐标的形式实现。它们之间如何转换那？这个用如下函数实现.
       

// Converts (row,col) indices to an Excel-style A1:C1 string in Excel
void CPrintInExcel::IndexToString( int row, int col, char * strResult )
{
    if( col > 26 )
  {
          sprintf( strResult,"%c%c%d",~A~ + (col-1)/26-1,~A~ + (col-1)%26,row );
     }
    else
  {
          sprintf( strResult,"%c%d", ~A~ + (col-1)%26,row );
     }
}

          有了这个函数，操作Excel就方便多了。今天就写到这儿了，有空再继续。