Delphi控制Excel2000心得

Delphi控制Excel2000心得

发布时间：2008-04-02 17:04:24 来源：编程爱好者网站作者：编程爱好者网站点击：311

(一) 使用动态创建的方法

首先创建Excel 对象，使用ComObj:

var ExcelApp: Variant;

ExcelApp := CreateOleObject( ’Excel.Application’ );

1) 显示当前窗口：

ExcelApp.Visible := True;

2) 更改Excel 标题栏：

ExcelApp.Caption := ’应用程序调用Microsoft Excel’;

3) 添加新工作簿：

ExcelApp.WorkBooks.Add;

4) 打开已存在的工作簿：

ExcelApp.WorkBooks.Open( ’C:＼Excel＼Demo.xls’ );

5) 设置第2个工作表为活动工作表：

ExcelApp.WorkSheets[2].Activate;

或

ExcelApp.WorksSheets[ ’Sheet2’ ].Activate;

6) 给单元格赋值：

ExcelApp.Cells[1,4].Value := ’第一行第四列’;

7) 设置指定列的宽度（单位：字符个数），以第一列为例：

ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

Array) 在第8行之前插入分页符：

ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;

10) 在第8列之前删除分页符：

ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度：

ExcelApp.ActiveSheet.Range[ ’B3:D4’ ].Borders[2].Weight := 3;

1-左2-右3-顶4-底5-斜( ＼) 6-斜( / )

12) 清除第一行第四列单元格公式：

ExcelApp.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性：

ExcelApp.ActiveSheet.Rows[1]https://www.360docs.net/doc/292100038.html, := ’隶书’;

ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;

ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;

ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置：

a.页眉：

ExcelApp.ActiveSheet.PageSetup.CenterHeader := ’报表演示’; b.页脚：

ExcelApp.ActiveSheet.PageSetup.CenterFooter := ’第&P页’;

c.页眉到顶端边距2cm：

ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

d.页脚到底端边距3cm：

ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;

e.顶边距2cm：

ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底边距2cm：

ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;

g.左边距2cm：

ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右边距2cm：

ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.页面水平居中：

ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.页面垂直居中：

ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印单元格网线：

ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷贝操作：

a.拷贝整个工作表：

https://www.360docs.net/doc/292100038.html,ed.Range.Copy;

b.拷贝指定区域：

ExcelApp.ActiveSheet.Range[ ’A1:E2’ ].Copy;

c.从A1位置开始粘贴：

ExcelApp.ActiveSheet.Range.[ ’A1’ ].PasteSpecial;

d.从文件尾部开始粘贴：

ExcelApp.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：

a. ExcelApp.ActiveSheet.Rows[2].Insert;

b. ExcelApp.ActiveSheet.Columns[1].Insert;

17) 删除一行或一列：

a. ExcelApp.ActiveSheet.Rows[2].Delete;

b. ExcelApp.ActiveSheet.Columns[1].Delete;

18) 打印预览工作表：

ExcelApp.ActiveSheet.PrintPreview;

1Array) 打印输出工作表：

ExcelApp.ActiveSheet.PrintOut;

20) 工作表保存：

if not ExcelApp.ActiveWorkBook.Saved then

ExcelApp.ActiveSheet.PrintPreview;

21) 工作表另存为：

ExcelApp.SaveAs( ’C:＼Excel＼Demo1.xls’ );

22) 放弃存盘：

ExcelApp.ActiveWorkBook.Saved := True;

23) 关闭工作簿：

ExcelApp.WorkBooks.Close;

24) 退出Excel：

ExcelApp.Quit;

(二) 使用Delphi 控件方法

在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。

1）打开Excel

ExcelApplication1.Connect;

2) 显示当前窗口：

ExcelApplication1.Visible[0]:=True;

3) 更改Excel 标题栏：

ExcelApplication1.Caption := ’应用程序调用Microsoft Exc el’;

4) 添加新工作簿：

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

5) 添加新工作表：

var Temp_Worksheet: _WorkSheet;

begin

Temp_Worksheet:=ExcelWorkbook1.

WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet; ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);

End;

6) 打开已存在的工作簿：

ExcelApplication1.Workbooks.Open (c:＼a.xls

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)

7) 设置第2个工作表为活动工作表：

ExcelApplication1.WorkSheets[2].Activate; 或

ExcelApplication1.WorksSheets[ ’Sheet2’ ].Activate;

8) 给单元格赋值：

ExcelApplication1.Cells[1,4].Value := ’第一行第四列’;

Array) 设置指定列的宽度（单位：字符个数），以第一列为例：

ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;

10) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

11) 在第8行之前插入分页符：

ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;

12) 在第8列之前删除分页符：

ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;

13) 指定边框线宽度：

ExcelApplication1.ActiveSheet.Range[ ’B3:D4’ ].Borders[2].Weight := 3;

1-左2-右3-顶4-底5-斜( ＼) 6-斜( / )

14) 清除第一行第四列单元格公式：

ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;

15) 设置第一行字体属性：

ExcelApplication1.ActiveSheet.Rows[1]https://www.360docs.net/doc/292100038.html, := ’隶书’;

ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue; ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True; ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;

16) 进行页面设置：

a.页眉：

ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := ’报表演示’; b.页脚：

ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := ’第&P页’;

c.页眉到顶端边距2cm：

ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

d.页脚到底端边距3cm：

ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;

e.顶边距2cm：

ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底边距2cm：

ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;

g.左边距2cm：

ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右边距2cm：

ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.页面水平居中：

ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.页面垂直居中：

ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印单元格网线：

ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;

17) 拷贝操作：

a.拷贝整个工作表：

https://www.360docs.net/doc/292100038.html,ed.Range.Copy;

b.拷贝指定区域：

ExcelApplication1.ActiveSheet.Range[ ’A1:E2’ ].Copy;

c.从A1位置开始粘贴：

ExcelApplication1.ActiveSheet.Range.[ ’A1’ ].PasteSpecial;

d.从文件尾部开始粘贴：

ExcelApplication1.ActiveSheet.Range.PasteSpecial;

18) 插入一行或一列：

a. ExcelApplication1.ActiveSheet.Rows[2].Insert;

b. ExcelApplication1.ActiveSheet.Columns[1].Insert;

1Array) 删除一行或一列：

a. ExcelApplication1.ActiveSheet.Rows[2].Delete;

b. ExcelApplication1.ActiveSheet.Columns[1].Delete;

20) 打印预览工作表：

ExcelApplication1.ActiveSheet.PrintPreview;

21) 打印输出工作表：

ExcelApplication1.ActiveSheet.PrintOut;

22) 工作表保存：

if not ExcelApplication1.ActiveWorkBook.Saved then

ExcelApplication1.ActiveSheet.PrintPreview;

23) 工作表另存为：

ExcelApplication1.SaveAs( ’C:＼Excel＼Demo1.xls’ );

24) 放弃存盘：

ExcelApplication1.ActiveWorkBook.Saved := True;

25) 关闭工作簿：

ExcelApplication1.WorkBooks.Close;

26) 退出Excel：

ExcelApplication1.Quit;

ExcelApplication1.Disconnect;

(三) 使用Delphi 控制Excle二维图

在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet var asheet1,achart, range:variant;

1）选择当第一个工作薄第一个工作表

asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];

2）增加一个二维图

achart:=asheet1.chartobjects.add(100,100,200,200);

3）选择二维图的形态

achart.chart.charttype:=4;

4）给二维图赋值

series:=achart.chart.seriescollection;

range:=sheet1!r2c3:r3cArray;

series.add(range,true);

5）加上二维图的标题

achart.Chart.HasTitle:=True;

achart.Chart.ChartTitle.Characters.Text:=’ Excle二维图’

6）改变二维图的标题字体大小

achart.Chart.ChartTitle.Font.size:=6;

7）给二维图加下标说明

achart.Chart.Axes(xlCategory, xlPrimary).HasTitle := True;

achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := ’下标说明’;

8）给二维图加左标说明

achart.Chart.Axes(xlValue, xlPrimary).HasTitle := True;

achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := ’左标说明’;

Array）给二维图加右标说明

achart.Chart.Axes(xlValue, xlSecondary).HasTitle := True;

achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text := ’右标说明’;

10）改变二维图的显示区大小

achart.Chart.PlotArea.Left := 5;

achart.Chart.PlotArea.Width := 223;

achart.Chart.PlotArea.Height := 108;

11）给二维图坐标轴加上说明

achart.chart.seriescollection[1].NAME:=’坐标轴说明’;

E-Mail: sunxiyu@https://www.360docs.net/doc/292100038.html,

wuxy@https://www.360docs.net/doc/292100038.html,

delphi 与Excel数据交换

< classid="clsid:38481807-CA0E-42D2-BF39-B33AF135CC4D" id=ieooui> 资料一。

从数据库导数据至excel 容易，但要是想把excel 里的数据通过delphi写的程式导入数据库就没那么简单了，并且网上讲的都不全面，没有几个完整可行的方案，以下是我收集的个人认为比较可行的方案，不敢独享，故拿出来供大家学习参考之用!

procedure load(rowCount,colCount:integer; fileName:String; var

grid:TStringGrid);

//从Excel中读取数据到 Grid

var

v:variant;

i,j:integer;

begin

grid.RowCount:=rowCount;

grid.ColCount:=colCount;

v:=createoleobject('Excel.Application');//创建OLE对象

try

form2.show;

form2.ProgressBar1.Position := 0;

form2.ProgressBar1.Max := 65535;

V.workBooks.Open(fileName);

//for i:=1 to rowCount do

for i:=1 to 65535 do

for j:=1 to colCount do

//if grid.Cells[j-1,i-1] = '' then break;

form2.ProgressBar1.Position := i;

grid.Cells[j-1,i-1]:=v.workbooks[1].sheets[1].cells[i,j]; v.workbooks[1].close;

finally

v.quit;

form2.close;

end

end;

{

procedure save(tableName:String;grid:TStringGrid);

// 将 Grid 中的数据保存到 SQL Server 数据表中

var

valuesStr:string;

i,j:integer;

begin

if not CreateTable(tableName,grid.ColCount) then

begin

showmessage('Error On CreateTable');

exit;

end;

for i:=1 to grid.RowCount-1 do

begin

valuesStr:=inttostr(i)+',';

for j:=0 to grid.ColCount-1 do

valuesStr:=valuesStr+Grid.Cells[j,i]+',';

if not insertone(tableName,valuesStr) then

begin

showmessage('Error On Row('+inttostr(i)+')');

exit;

end;

end;

showmessage('数据导入成功');

end;

function insertone(const tableName, ValuesStr: string): boolean;

// 插入一条记录

var

tmpstr,s:string;

p:integer;

begin

result:=true;

tmpstr:=ValuesStr;

with query1 do

begin

close;

sql.Clear;

sql.Add('insert into '+tableName+' values(');

s:='';

while tmpstr<>'' do

begin

p:=pos(',',tmpstr);

s:=s+''''+copy(tmpstr,1,p-1)+''',';

system.Delete(tmpstr,1,p);

end;

s:=copy(s,1,length(s)-1);

sql.Add(s);

sql.Add(')');

try

execsql;

except

result:=false;

end;

end;

end;

function CreateTable(const tableName:String; aFieldCount: integer): boolean;

// 创建表

var

tmpstr:string;

i:integer;

begin

result:=true;

tmpstr:='if exists (select * from sysobjects where Name='''

+tableName+''') drop table '+tableName+' create table

'+tableName+'(';

for i:=1 to aFieldCount do

tmpstr:=tmpstr+'F'+inttostr(i)+' varchar(50),';

delete(tmpstr,length(tmpstr),1);

tmpstr:=tmpstr+')';

with query1 do

begin

close;

sql.Clear;

sql.Add(tmpstr);

try

execsql;

except

result:=false;

end;

end;

end;

}

资料二：

delphi excel导入delphi

2008年02月22日星期五 23:52

单元接口部分引用 comobj 单元(uses )

procedure TForm1.Button1Click(Sender: TObject);

var excelx,excely : string;

begin

try

ExcelApp := CreateOleObject('Excel.Application');

WorkBook := ExcelApp.WorkBooks.Open(opendialog.FileName);//使用opendialog对话框指定

//excel档路径

ExcelApp.Visible := false; ExcelRowCount :=

WorkBook.WorkSheets[1].UsedRange.Rows.Count;

for i := 1 to excelrowcount 1

do

begin

excelx := excelapp.Cells[i,1].Value;

excely := excelapp.Cells[i,2].Value;

if ((excelapp.Cells[i,1].Value = '') and (ExcelApp.Cells[i,2].Value = '')) then //指定excel档的第 i 行 ,第 1,2(看情况而定)行如果为空就退出,这样的设定,最好是你的档案力这两行//对应数据库中不能为空的数据

exit

else

with query1 do

begin

close;

sql.clear;

sql.add(insert into test(name,address) values(:name,:address)); parambyname('name').asstring := excelx;//excel档的第一列插入到test表的 name栏位;

parambyname('address').asstring := excely;//excel档的第二列插入到test 表的 address 栏位;

execsql;

end;

end;

finally WorkBook.Close;

ExcelApp.Quit;

ExcelApp := Unassigned;

WorkBook := Unassigned;

end;

end;

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

用CreateOleObject( 'Excel.Application' );打开EXCEL文件，读入想要的单元格内容，再通过数据库控件写入数据库！看看下面代码：

function import_abclib_from_excel(Gau:TGauge;var emsg:string;var errorrow:integer;total,stnum:integer):integer;

var

col:integer;

temp:string;

item_input:array[1..MAX_ABCLIB_COLS]of string;

libno:longint;

libtype:integer;

libname,libfirst,liblast,liblist:string;

begin

emsg:='';

result:=0;

ExcelApp.WorkSheets[2].Activate;

while true do

begin

// 读取一行记录

for col:=1 to MAX_ABCLIB_COLS do

begin

temp:=create_excelrowcol_name(result+2,col);

item_input[col]:=trim(get_excel_value(temp));

end;

if item_input[ABCLIBNUM_POS]='' then break;//导入完毕

libno:=strtoint(item_input[LIBNO_POS]);

libname:=item_input[LIBNAME_POS];

libtype:=0;

if item_input[LIBTYPE_POS]='输入' then libtype:=1;

libfirst:=item_input[LIBFIRST_POS];

liblast:=item_input[LIBLAST_POS];

liblist:=item_input[LIBLIST_POS];

liblist:=get_liblist(item_input[LIBLIST_POS]);

if not

insert_abclib(libno,libname,libtype,libfirst,liblast,liblist,emsg) then

begin

errorrow:=result+2;

exit;

end;

result:=result+1;

Gau.Progress:=(result+stnum)*100 div total;

end;

end;

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\

您正在看的DELPHI是:Excel文件导入StringGrid。EXCEL电子表格作为办公软件OFFICE中的重要组成部份，是日常办公系统的主要助手，因此许多日常所需的业务方面的数据通常是通过电子表格存取。有时我们需要从日常工作中创建的EXCEL中取得数据进行操作、打印、查询，统计等工作。在这里我将介绍如何利用delphi完成excel电子表格中数据的操作。

一、新建一项目，从控件栏servers中分别选取控件：excelapplication、excelworkbook1、excelworksheet，放到主窗体from1中，并加入stringgrid、三个按钮、五个显示字段内容的EDIT、二个操作显示记录的label、一个用于打开excel电子表格的控件opendialog等，如下图所示：

二、选择excel表'按钮，用于打开excel文件,其代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

opendialog1.InitialDir:=ExtractFileDir(paramstr(0));//文件的打存放初始路径

opendialog1.Execute;

Try

ExcelApplication1.Connect;//excel应用程序

Except

MessageDlg('excel may not be installed',mtError, [mbOk], 0);

Abort;

End;

excelApplication1.Visible[0]:=True;

ExcelApplication1.Caption:='excel Application';

try

excelapplication1.Workbooks.Open(opendialog1.FileName,

null,null,null,null,null,null,null,null,null,null,null,null,0);//打开指定的excel 文件

except

begin

excelApplication1.Disconnect;//出现异常情况时关闭

ExcelApplication1.Quit;showmessage('请选择excel电子表格!');

exit;

end;

end;

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);//ExcelWorkb ook1与Eexcelapplication1建立连接

ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as

_Worksheet);//Excelworksheet1与excelworkbook1建立连接

//开始从EXCEL中取数，放到stringgrid1中，取完数后关闭excel

for i:=1 to 1000 do//最大取值1000

for j:=1 to 6 do

begin

if trim(excelworksheet1.cells.item[i+1,1])<>'' then

begin

stringgrid1.rowCount:=i+1;

stringgrid1.Cells[j,i]:=excelWorksheet1.Cells.Item[i+1,j];

end

else

begin

label3.caption:=inttostr(i-1);

excelApplication1.Disconnect;

excelApplication1.Quit;

//将第一条数据赋给编辑框

edit2.text:=stringgrid1.Cells[1,1];

edit1.text:=stringgrid1.Cells[2,1];

edit3.text:=stringgrid1.Cells[3,1];

edit4.text:=stringgrid1.Cells[4,1];

edit5.text:=stringgrid1.Cells[5,1];

exit;

end;

end;

end;

三、'下一条记录'按钮，完成记录向下移动，代码如下：

procedure TForm1.Button2Click(Sender: TObject);

var x:integer;

begin

x:=stringgrid1.row+1;

if x<> stringgrid1.RowCount then

begin

stringgrid1.row:=stringgrid1.row+1;

label1.caption:=inttostr(x);

edit2.text:=stringgrid1.Cells[1,x];

edit1.text:=stringgrid1.Cells[2,x];

edit3.text:=stringgrid1.Cells[3,x];

edit4.text:=stringgrid1.Cells[4,x];

edit5.text:=stringgrid1.Cells[5,x];

exit;

end

else

showmessage('已到第一条记录!');

end;

四、'上一条记录'，完成记录上移，代码如下：

var x:integer;

begin

x:=stringgrid1.row-1;

if x<>0 then

begin

stringgrid1.row:=stringgrid1.row-1;

label1.caption:=inttostr(x);

edit2.text:=stringgrid1.Cells[1,x];

edit1.text:=stringgrid1.Cells[2,x];

edit3.text:=stringgrid1.Cells[3,x];

edit4.t

您正在看的DELPHI是:Excel文件导入StringGrid。

ext:=stringgrid1.Cells[4,x];

edit5.text:=stringgrid1.Cells[5,x];

exit;

end

else

showmessage('已到最后一条记录!');

end;

五、stringgrid中上下移动时代码：

procedure TForm1.StringGrid1Click(Sender: TObject); var i:integer;

begin

i:=stringgrid1.Row;

label1.caption:=inttostr(i);

edit1.text:=stringgrid1.Cells[2,i];

edit2.text:=stringgrid1.Cells[1,i];

edit3.text:=stringgrid1.Cells[3,i];

edit4.text:=stringgrid1.Cells[4,i];

edit5.text:=stringgrid1.Cells[5,i];

end;

六、运行程序，点击按钮1打开excel表格。程序将启动EXCEL，并打开了选择的电子表格，这时请不要关闭EXCEL，当程序从EXCEL取数完毕将自动关闭EXCEL 程序，应用程序取出了excel数据，显示在stringgrid中，并将第一笔数据各字段的值赋给了左边的对应的edit字段。点击按钮2、按钮3可以查看下一条或上一条记录。也可以使用光标在stringgrid1上移动。

同时我们也可以对stringgrid中的记录进行查询、定位。相反，也可以将数据库中的数据输入到EXCEL中。总之，只要我们从EXCEL提取出数据，并保存到stringgrid中，我们就可以进行相应操作，如统计、查询、重新输出，使平进的excel电子表格中的数据在应用程序中得到利用。

Delphi操作Excel命令

作

者：

未知使用Excel最好用Comobj方式，它能够达到完全控制excel的目的。

不过这种方式在Delphi中没有代码提示,而使用Server控件的方式有！

下边是使用comobj的，使用Server 的就不放进来了！另外用完Variant要释

放掉

这样比较好（ExcelApp:=Unassigned;）

use Comobj

(一) 使用动态创建的方法

首先创建Excel 对象,使用ComObj:

var ExcelApp: Variant;

ExcelApp := CreateOleObject( 'Excel.Application' );

1) 显示当前窗口:

ExcelApp.Visible := True;

2) 更改Excel 标题栏:

ExcelApp.Caption := '应用程序调用Microsoft Excel';

3) 添加新工作簿:

ExcelApp.WorkBooks.Add;

4) 打开已存在的工作簿:

ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );

5) 设置第2个工作表为活动工作表:

ExcelApp.WorkSheets[2].Activate;

或

ExcelApp.WorksSheets[ 'Sheet2' ].Activate;

6) 给单元格赋值:

ExcelApp.Cells[1,4].Value := '第一行第四列';

7) 设置指定列的宽度(单位:字符个数),以第一列为例: ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 5;

8) 设置指定行的高度(单位:磅)(1磅＝0.035厘米),以第二行为例: ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米9) 在第8行之前插入分页符:

ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;

10) 在第8列之前删除分页符:

ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度:

ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 1-左2-右3-顶4-底5-斜( \ ) 6-斜( / )

12) 清除第一行第四列单元格公式:

ExcelApp.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性:

ExcelApp.ActiveSheet.Rows[1]https://www.360docs.net/doc/292100038.html, := '隶书'; ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue; ExcelApp.ActiveSheet.Rows[1].Font.Bold := True; ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置:

a.页眉:

ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示'; b.页脚:

ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页';

c.页眉到顶端边距2cm:

ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.页脚到底端边距3cm:

ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.顶边距2cm:

ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底边距2cm:

ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左边距2cm:

ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右边距2cm:

ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.页面水平居中:

ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.页面垂直居中:

ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印单元格网线:

ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷贝操作:

a.拷贝整个工作表:

https://www.360docs.net/doc/292100038.html,ed.Range.Copy;

b.拷贝指定区域:

ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;

c.从A1位置开始粘贴:

ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;

d.从文件尾部开始粘贴:

ExcelApp.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列:

a. ExcelApp.ActiveSheet.Rows[2].Insert;

b. ExcelApp.ActiveSheet.Columns[1].Insert;

17) 删除一行或一列:

a. ExcelApp.ActiveSheet.Rows[2].Delete;

b. ExcelApp.ActiveSheet.Columns[1].Delete;

18) 打印预览工作表:

ExcelApp.ActiveSheet.PrintPreview;

19) 打印输出工作表:

ExcelApp.ActiveSheet.PrintOut;

20) 工作表保存:

if not ExcelApp.ActiveWorkBook.Saved then

ExcelApp.ActiveSheet.PrintPreview;

21) 工作表另存为:

ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' );

22) 放弃存盘:

ExcelApp.ActiveWorkBook.Saved := True;

23) 关闭工作簿:

ExcelApp.WorkBooks.Close;

24) 退出Excel:

ExcelApp.Quit;

Delphi excel插入图片及Excel写保护

2011-07-13 17:23

Excel插入图片（此Demo是获取的Excel的总列宽，之后居中显示图片）：

变量：

FPicture:OleVariant;

r:Integer;

Lcolumn:real;

代码：

//获取单元格总列宽

lcolumn:=0;

for r:=1 to FExcel.worksheets[1].Usedrange.columns.count do

begin

lcolumn:=lcolumn+FExcel.ActiveSheet.Columns[r].ColumnWidth; end;

图片插入：

FExcel.visible:=true;

FPicture:=aSheet.Pictures.Insert( 'E:\tuzi.jpg');

FPicture.Left:=lcolumn/2*3.6+12.5;//这个居中没写好

FPicture.Top:=80;

FPicture.width:=50;

FPicture.height:=50;

FPicture:=null;

Image导出至Excel办法（接上面）：

Image2.Picture.SaveToFile('D:\zhy.jpg'); //保存Image控件的图片到指定路径

FPicture:=aSheet.Pictures.Insert( 'D:\zhy.jpg');//添加图片到Excel

if FileExists('D:\zhy.jpg') then//判断图片是否存在，存在删除图片

DeleteFile('D:\zhy.jpg');

Excel写保护：

FExcel.Activesheet.protect(password:='1',drawingobjects:=True,contents:=True,sc enarios:=false);

Excel写保护有个缺点，可以允许复制单元格到其他的工作簿，玩骨灰级的程序员帮解决这个办法。

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);

Var FExcel :OleV ariant; //excel应用程序

FWorkBook :OleV ariant; //工作表

FWorksheet:OleVariant; //工作薄

FPicture:OleVariant;

TmpStr:String;

begin

FExcel:= CreateoleObject( 'excel.Application ');

FWorkBook:=FExcel.WorkBooks.Add; //新的工作表

FWorksheet:=FWorkBook.Worksheets[1];

FWorksheet.Select;

//插入图象并设置位置与大小

tmpstr:= 'f:\1.jpg ';

FPicture:=FWorksheet.Pictures.Insert(tmpstr);

FPicture.Left:=10;

FPicture.Top:=10;

FPicture.width:=200;

FPicture.height:=200;

FPicture:=null;

FExcel.visible:=true;

end;

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExcelXP, OleServer, ExtDlgs;

type

TForm1 = class(TForm)

ExcelApplication1: TExcelApplication;

ExcelWorkbook1: TExcelWorkbook;

ExcelWorksheet1: TExcelWorksheet;

Button1: TButton;

OpenPictureDialog1: TOpenPictureDialog;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

aWorkBook : _Workbook;

aSheet : Variant;

FPicture:OleVariant;

begin

if OpenPictureDialog1.Execute then

begin