BCB版 Excel操作类 待完善

#ifndef EXCEL_OP_H#define EXCEL_OP_H#include <vcl.h>class ExcelOp{  Variant s_vExcelApp,s_vSheet;  bool s_bOpen;  int s_nRowCount,s_nColCount;protected:  Variant GetCell(int row,int col)  {    if(s_bOpen)    {      return s_vSheet.OlePropertyGet("Cells",row,col).OlePropertyGet("Value");    }    return Null;  }  void SetCell(int row,int col,Variant &var)  {    if(!s_bOpen)    {      return ;    }    String temp=var;    s_vSheet.OlePropertyGet("Cells",row,col).OlePropertySet("Value",temp.c_str());  }  int GetRowCount()  {     if(!s_bOpen)     return 0;     int i=1;     String strValue=Cells[i][1];     if(!strValue.IsEmpty())     {       do       {         strValue=Cells[++i][1];       }while(!strValue.IsEmpty());       --i;     }     s_nRowCount=i;     return s_nRowCount;  }  int GetColCount()  {     if(!s_bOpen)     return 0;     int i=1;     String strValue=Cells[1][i];     if(!strValue.IsEmpty())     {       do       {         strValue=Cells[1][++i];       }while(!strValue.IsEmpty());       --i;     }     s_nColCount=i;     return s_nColCount;  }  void SetColumnWidth(int col,int width)  {    if(s_bOpen)    s_vExcelApp.OlePropertyGet("Columns",col).OlePropertySet("ColumnWidth",width);  }  int GetColumnWidth(int col)  {    if(s_bOpen)    return  s_vExcelApp.OlePropertyGet("Columns",col).OlePropertyGet("ColumnWidth");    return 0;  }public:  const enum Op  {     Create_Op,     Load_Op  };    ExcelOp():s_vExcelApp(Null()),            s_vSheet(Null()),            s_bOpen(false),            s_nRowCount(0),            s_nColCount(0)  {}  ~ExcelOp()  {      try      {        if(!s_vExcelApp.IsNull())        s_vExcelApp.OleFunction("Quit");        s_vSheet=Unassigned;        s_vExcelApp=Unassigned;      }      catch(...)      {}  }  void Close()  {    if(s_bOpen)    {      s_vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("Close");      s_bOpen=false;    }  }  void Save()  {    if(s_bOpen)    {      s_vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("Save");    }  }  void Save(const char* lpszFileName)  {    if(s_bOpen)    {      s_vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs",lpszFileName);    }  }  bool Open(const char* szFileName,const Op op)  {     if(op!=Create_Op)     {       if(!FileExists(szFileName))       return false;     }     Close();     do     {       try       {         s_vExcelApp=Variant::CreateObject("Excel.Application");       }       catch(...)       {         Application->MessageBoxA("CreateObject出错，请确认本机是否安装了MS-EXCEL。","错误",MB_ICONINFORMATION);         break;       }       try       {         s_vExcelApp.OlePropertySet("Visible", false);         if(op==Load_Op)         {           s_vExcelApp.OlePropertyGet("Workbooks").OleProcedure("Open",szFileName); // 工作表           s_vSheet=s_vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("ActiveSheet");         }         else if(op==Create_Op)         {           s_vExcelApp.OlePropertyGet("Workbooks").OleFunction("Add", 1); // 工作表           s_vSheet=s_vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1);         }       }       catch(...)       {         break;       }       s_bOpen=true;     }while(0);     return s_bOpen;  }  void Select()  {    if(!s_bOpen)    return;        s_vSheet.OleProcedure("Select");    s_vSheet.OlePropertyGet("Cells").OleProcedure("Select");  }  void SetSelectTextFormat()  {    if(s_bOpen)    s_vExcelApp.OlePropertyGet("Selection").OlePropertySet("NumberFormatLocal", "@");  }  void SetCellFont(int row,int col,int nFontSize,const char *szFontName,const char* szFontStyle)  {     if(s_bOpen)     {       s_vSheet.OlePropertyGet("Cells",row,col).OlePropertyGet("Font").OlePropertySet("Size",nFontSize);       s_vSheet.OlePropertyGet("Cells",row,col).OlePropertyGet("Font").OlePropertySet("Name",szFontName);       s_vSheet.OlePropertyGet("Cells",row,col).OlePropertyGet("Font").OlePropertySet("FontStyle",szFontStyle);     }  }  __property Variant Cells[int row][int col]={read=GetCell,write=SetCell};  __property int RowCount={read=GetRowCount};  __property int ColCount={read=GetColCount};  __property int ColumnWidth[int col]={read=GetColumnWidth,write=SetColumnWidth};};#endif