Bcb中的Excel操作類
最近做一個專案，要求能將Excel表中的數據轉入數據庫，反之將數據庫的內容導入到Excel表中。看了網上寫的關于操作Excel的方法，寫了一個簡單的Excel操作類。功能還不是很完善，以后再慢慢修改。
***********************************************************************
*
Module: TExcel.cpp
*
Author: cjz
*
Modified:
2007
-
07
-
29日
11
:
07
:
30
*
Purpose: Implementation of the
class
TExcel
*
Comment: Excel巨摸
***********************************************************************/
#include
<
vcl.h
>
#include
"
TExcel.h
"
#include
"
vcl\utilcls.h
"
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::TExcel()
//
Purpose: Implementation of TExcel::TExcel()
//
Return:
/**/
////////////////////////////////////////////////////////////////////////
TExcel::TExcel()
{
Sheet=new TSheet(); NewExcel();
}
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::TExcel(AnsiString m_strFile)
//
Purpose: Implementation of TExcel::TExcel()
//
Comment: 带参数的构造函数
//
Parameters:
//
- m_strFile
//
Return:
/**/
////////////////////////////////////////////////////////////////////////
TExcel::TExcel(AnsiString m_strFile)
{ strFileName=m_strFile; Sheet=new TSheet(); OpenExcel(); }
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::~TExcel()
//
Purpose: Implementation of TExcel::~TExcel()
//
Return:
/**/
////////////////////////////////////////////////////////////////////////
TExcel::
~
TExcel()
{ //CloseExcel();}
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::OpenExcel()
//
Purpose: Implementation of TExcel::OpenExcel()
//
Return: bool
/**/
////////////////////////////////////////////////////////////////////////
bool
__fastcall TExcel::OpenExcel(
void
)
{ if(!FileExists(strFileName))
{ MessageDlg("ゅンぃ!", mtWarning, TMsgDlgButtons() << mbOK, 0); return false;
} try { CoInitialize(NULL); vEx=CreateOleObject("Excel.Application"); vEx.OPS("Visible",false); vEx.OPG("WorkBooks").OPR("Open",strFileName.c_str()); vWb=vEx.OPG("ActiveWorkBook"); vSh=vWb.OPG("ActiveSheet"); nSheetCount=vWb.OPG("sheets").OPG("count"); } catch() { ShowMessage("礚猭币笆Excel,琌⊿Τ杆!"); return false; } return true;}
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::NewExcel()
//
Purpose: Implementation of TExcel::NewExcel()
//
Return: bool
/**/
////////////////////////////////////////////////////////////////////////
bool
__fastcall TExcel::NewExcel(
void
)
{ try { CoInitialize(NULL); vEx=Variant::CreateObject("Excel.Application"); vEx.OPS("Visible",false); vEx.OPG("WorkBooks").OFN("Add",1); vWb=vEx.OPG("ActiveWorkBook"); vSh=vWb.OPG("ActiveSheet"); Sheet->vSh=&vSh; nSheetCount=1; } catch() { ShowMessage("礚猭币笆Excel,琌⊿Τ杆!"); return false; } return true;}
//
---------------------------------------------------------------------
//
睰痢
void
__fastcall TExcel::AddSheet(AnsiString SheetName)
{ vEx.OPG("WorkBooks").OFN("Add",1); nSheetCount=vWb.OPG("sheets").OPG("count"); Sheets[nSheetCount]->Name=SheetName;}
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::SaveExcel()
//
Purpose: Implementation of TExcel::SaveExcel()
//
Return: bool
/**/
////////////////////////////////////////////////////////////////////////
bool
__fastcall TExcel::SaveExcel(
void
)
{ try { vWb.OFN("save"); } catch() { MessageDlg("玂Excelゅ郎ア毖!", mtWarning, TMsgDlgButtons() << mbOK, 0); return false; } return true;}
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::SaveAsExcel()
//
Purpose: Implementation of TExcel::SaveAsExcel()
//
Return: bool
/**/
////////////////////////////////////////////////////////////////////////
bool
__fastcall TExcel::SaveAsExcel(AnsiString fileName)
{ if(FileExists(fileName)) { if(MessageDlg("ゅン,琌滦籠?",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes) { DeleteFile(fileName); } else { vWb.OPG("Application").OPS("DisplayAlerts",false); return false; } } try { vWb.OFN("SaveAs",fileName.c_str()); } catch() { MessageDlg("玂Excelゅ郎ア毖!", mtWarning, TMsgDlgButtons() << mbOK, 0); return false; } return true;}
/**/
////////////////////////////////////////////////////////////////////////
//
Name: TExcel::CloseExcel()
//
Purpose: Implementation of TExcel::CloseExcel()
//
Return: void
/**/
////////////////////////////////////////////////////////////////////////
void
__fastcall TExcel::CloseExcel(
void
)
{ vWb.OFN("close"); vEx.OFN("quit"); vWb=Unassigned; vEx=Unassigned; CoUninitialize();}
//
---------------------------------------------------------------------
//
妮┦:莉材i茂
TSheet
*
__fastcall TExcel::GetSheet(
int
i)
{ //狦讽玡痢i,玥玥痢i if(i==nCurrSheet) return Sheet; else nCurrSheet=i; if(i<1||i>nSheetCount) throw "ぃ茂"+i; vSh=vWb.OPG("Sheets",i); nRows=vSh.OPG("UsedRange").OPG("Rows").OPG("count"); nColumns=vSh.OPG("UsedRange").OPG("Columns").OPG("count"); Sheet->nRows=nRows; Sheet->nColumns=nColumns; Sheet->vSh=&vSh; return Sheet;}
TExcel.h 文件頭
/**//*********************************************************************** * Module: TExcel.h * Author: cjz * Modified: 2007-07-29日 11:07:30 * Purpose: Declaration of the class TExcel * Comment: Excel操作类 ***********************************************************************/#if !defined(__TExcel_TExcel_h)#define __TExcel_TExcel_h//--------------------------------------#include "TSheet.h"#define OPG OlePropertyGet#define OPS OlePropertySet#define OFN OleFunction#define OPR OleProcedure#define PR Procedureclass TExcel{public: TExcel(); /**//* 带参数的构造函数 */ TExcel(AnsiString m_strFile); ~TExcel(); /**//* 获取单元格row,column的值 */ bool SaveExcel(void); bool SaveAsExcel(AnsiString); void AddSheet(AnsiString); void CloseExcel(void); int nRows; int nColumns; int nSheetCount; TSheet* GetSheet(int i); __property TSheet* Sheets[int i]={read=GetSheet};protected:private: bool OpenExcel(void); bool NewExcel(void); int nCurrSheet; /**//* Excel文件名(全名) */ AnsiString strFileName; Variant vEx; Variant vWb; Variant vSh; Variant vRange; TSheet *Sheet;};#endif
工作表類：
#include <vcl.h>#pragma hdrstop#include <vcl.h>#include "vcl\utilcls.h"#include "TSheet.h"//---------------------------------------------------------------------------#pragma package(smart_init)TSheet::TSheet(){}TSheet::~TSheet(){}Variant __fastcall TSheet::GetCells(int i, int j){ return vSh->OPG("Cells",i,j).OPG("value");}/**/////////////////////////////////////////////////////////////////////////// Name: TExcel::SetCells(int i, int j, AnsiString strValue)// Purpose: Implementation of TExcel::SetCells()// Parameters:// - i// - j// - strValue// Return: void/**/////////////////////////////////////////////////////////////////////////void __fastcall TSheet::SetCells(int i, int j, AnsiString Value){ vSh->OPG("Cells",i,j).OPS("value","'"+Value); return;}//---------------------------------------------------------------------void __fastcall TSheet::SetCells(int i, int j, AnsiString Value,int Width){ vSh->OPG("Cells",i,j).OPS("value",Value); vSh->OPG("Cells",i,j).OPS("ColumnWidth",Width); return;}void __fastcall TSheet::SetCells(int i, int j, int Value){ vSh->OPG("Cells",i,j).OPS("value",Value); return;}//-----------------------------------------------------------------------AnsiString TSheet::GetName(){ return (AnsiString)vSh->OPG("name");}void TSheet::SetName( AnsiString strName){ vSh->OPS("name",strName);}
TSheet 文件頭
#ifndef TSheetH#define TSheetH #define OPG OlePropertyGet#define OPS OlePropertySet#define OFN OleFunction#define OPR OleProcedure#define PR Procedure//计沮摸class TSheet{ public: TSheet(); ~TSheet(); Variant GetCells(int i, int j); void SetCells(int i, int j, AnsiString Value); void SetCells(int i, int j, AnsiString Value,int Width); void SetCells(int i, int j, int Value); int nRows; int nColumns; //妮┦:sheet嘿 AnsiString GetName(); void SetName(AnsiString ); __property AnsiString Name={read=GetName,write=SetName}; Variant *vSh; private:};//---------------------------------------------------------------------------#endif
使用方法：
1.打開文件
TExcel *excel=new TExcel("要打開的文件名");
2.新建文件
TExcel *excel=new TExcel();
3.獲取工作薄n的單元格(i,j)
excel->Sheets[n]->GetCells(i,j);返回值是一個Varaint類型。
4.設置工作薄n的單元格(i,j)值
excel->Sheets[n]->SetCell(i,j,value);
5.獲取或設置工作薄名稱
excel->Sheets[n]->Name="...";或sheetname=excel->Sheets[n]->Name;
6.保存和另存為。
excel->SaveExcel();
excel->SaveAsExcel("新的文件名");
7.關閉
excel->CloseExcel();