?? uiexcelagent.pas
字號(hào):
{*******************************************************}
{ 軟件名稱(chēng): --通用-- }
{ 單元名稱(chēng): uIExcelAgent.pas }
{ 中文名稱(chēng): Excel訪(fǎng)問(wèn)代理接口 }
{ 單元描述: }
{ 創(chuàng) 建: SamonHua }
{ 創(chuàng)建日期: 2007-12-19 }
{ 修 改: 參見(jiàn)VSS記錄 }
{ 版權(quán)所有 (C)2002-2007 深圳壹平臺(tái)信息技術(shù)有限公司}
{*******************************************************}
unit uIExcelAgent;
interface
uses
Windows, Classes, SysUtils, Variants;
type
IExcelAgent = interface(IInterface)
['{CF5546F7-AEB7-4F37-94D3-D54C497BC544}']
//Excel文件名讀寫(xiě)方法
function GetFileName: string;
procedure SetFileName(Value: string);
//讀入和保存文件
procedure ReadFile;
procedure WriteFile;
procedure WriteToStream(Stream: TStream);
//Sheet相關(guān)
//激活Sheet,所有的讀寫(xiě)操作都是針對(duì)當(dāng)前的Sheet
function ActivateSheet(SheetIndex: integer): boolean;
function GetSheetCount: Integer;
function GetActiveSheetIndex: integer;
function GetActiveSheetName: string;
function AddSheet(SheetName: string): Integer;
function InsertSheet(SheetName: string; SheetIndex: Integer = -1): Integer;
procedure DeleteSheet(SheetIndex: Integer = -1);
//單元格讀方法
function GetCellValue(Col, Row: integer): Variant;
function GetCellStringValue(Col, Row: integer; Default: string = ''): string;
function GetCellIntegerValue(Col, Row: integer; Default: Integer = 0): Integer;
function GetCellFloatValue(Col, Row: integer; Default: Double = 0): Double;
function GetCellDateTimeValue(Col, Row: integer): TDateTime;
function GetCellBooleanValue(Col, Row: integer; Default: Boolean = False): Boolean;
//單元格寫(xiě)方法
procedure SetCellValue(Col, Row: integer; Value: Variant);
procedure SetCellStringValue(Col, Row: integer; Value: string);
procedure SetCellIntegerValue(Col, Row: integer; Value: integer);
procedure SetCellFloatValue(Col, Row: integer; Value: Double);
procedure SetCellDateTimeValue(Col, Row: integer; Value: TDateTime);
procedure SetCellBooleanValue(Col, Row: integer; Value: Boolean);
//合并/拆分單元格
procedure MergedCells(Col1, Row1, Col2, Row2: integer);
procedure DeleteMergedCell(Col1, Row1, Col2, Row2: integer);
procedure DeleteMergedCellByCell(Col, Row: integer);
//獲取包含指定單元格的坐標(biāo)
function GetMergedCell(Col, Row: integer; var Col1, Row1, Col2, Row2: integer): boolean;
end;
implementation
{ TExcelAgentHelper }
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -