?? tsavetoexcel.h.txt
字號:
/*********************************************
文件名: TSaveToExcel.h
編寫者:
編寫日期: 2007-07-
簡要描述:
版本 : V1.0.0
編譯環境 : Borland C++ Build
實現環境 : windows 2000 sp4
--------------------------------------------------------------------------------
備注 : <其它說明>
--------------------------------------------------------------------------------
修改記錄 :
日 期 版本 修改人 修改內容
2007-07- V1.0.0
********************************************/
//---------------------------------------------------------------------------
#ifndef TSaveToExcelH
#define TSaveToExcelH
#include <Classes.hpp>
//#include <excel_2k.h>
#include "utilcls.h"
#include "comobj.hpp"
#define PG OlePropertyGet // 取對象屬性
#define PS OlePropertySet // 設置對象屬性
#define FN OleFunction // 運行對象的函數
#define PR OleProcedure // 運行對象的過程
//---------------------------------------------------------------------------
class TSaveToExcel
{
private:
Variant ExcelApp; //應用對象
Variant WorkBooks; //工作簿對象
Variant Sheets; //工作表對象
Variant Sheet; //工作簿對象
Variant WorkBook; //工作表對象
Variant Cell; //工作單元格對象
bool Connected; //Excel連接標志
bool Opened; //Excel打開標志
public:
//構造函數
TSaveToExcel();
//析構函數
~TSaveToExcel();
//打開文件
bool OpenFile(WideString FILE_NAME);
//寫入單元格內容
bool WriteCell(WideString SHEET_NAME,int CELL_X,int CELL_Y,AnsiString EVALUE);
//讀取單元格內容
bool ReadCellValue(WideString SHEET_NAME,int CELL_X,int CELL_Y,AnsiString &EVALUE);
//讀取單元格公式
bool ReadCellFormula(WideString SHEET_NAME,int CELL_X,int CELL_Y,AnsiString &EVALUE);
//重命名工作表
bool RenameSheet(WideString OLD_SHEET_NAME,WideString NEW_SHEET_NAME);
//保存
bool Save();
//存入文件
bool SaveToFile(WideString FILE_NAME);
//退出
bool Quit();
//設定可見性
bool SetVisible(bool VISIBLE);
//添加工作表
bool AddSheet(WideString SHEET_NAME);
//刪除工作表
bool DeleteSheet(WideString SHEET_NAME);
//新建文件
bool NewFile(WideString FILE_NAME);
//打開Execl
bool ConnectExcel();
//取X序號
bool GetXCount(WideString SHEET_NAME,AnsiString &X);
//取Y序號
bool GetYCount(WideString SHEET_NAME,AnsiString &Y);
//取工作表序號
int GetSheetCount();
//取工作表名稱
bool GetSheetName(int item,AnsiString &EVALUE);
};
//---------------------------------------------------------------------------
#endif
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -