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 { 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