DELPHI中控制EXCEL的乙個例子

unit unit1;

inte***ce

uses

windows, messages, sysutils, classes, graphics, controls, forms, dialogs,

stdctrls, comobj;

type

tform1 = class(tform)

button1: tbutton;

button2: tbutton;

button3: tbutton;

procedure button1click(sender: tobject);

procedure button2click(sender: tobject);

procedure button3click(sender: tobject);

private

public

end;

varform1: tform1;

implementation

procedure tform1.button1click(sender: tobject);

varpath: string;

begin

if copy(path, length(path) ,1) <> '/' then

path := path + '/';

button1.enabled := false;

button2.enabled := true;

button3.enabled := true;

end;

procedure tform1.button2click(sender: tobject);

varpath: string;

begin

tryif copy(path, length(path) ,1) <> '/' then

path := path + '/';

finally

button1.enabled := true;

button2.enabled := false;

button3.enabled := false;

end;

end;

procedure tform1.button3click(sender: tobject);

varbook: variant;

sheet: variant;

aftersheet: variant;

begin

aftersheet := book.worksheets[3];

sheet := book.worksheets.add(emptyparam, aftersheet, 1);

//sheet.move(book.worksheets[4],

//sheet := book.worksheets[1];

sheet.activate;

end;

end.

Delphi控制Excel2000心得

一 使用動態建立的方法 首先建立 excel 物件，使用comobj 1 顯示當前視窗 2 更改 excel 標題欄 3 新增新工作簿 4 開啟已存在的工作簿 5 設定第2個工作表為 活動 工作表 或 6 給單元格賦值 7 設定指定列的寬度 單位 字元個數 以第一列為例 8 設定指定行的高度 單位 ...

DELPHI中控制EXCEL的乙個例子

unit unit1 inte ce uses windows,messages,sysutils,classes,graphics,controls,forms,dialogs,stdctrls,comobj type tform1 class tform button1 tbutton butt...

delphi要控制EXCEL時用的，不錯，轉了。

定義變數 excelid variant 1 建立ole物件 tryexcept on exception do raise exception.create 無法建立xls檔案，請確認是否安裝excel end excelid.visible false excel顯示設定 excelid.wor...