-
关于
createoleobject
的使用<
/p>
大家好，
我
用的
是
delphi8.0
，
在调
用
excel := createole
object('ation')
；出
现错误
< br>，说
createoleobject
不能识
别，是
什么原
因啊？
我已经调
用
uses comobj<
/p>
了。
有谁知
道阿，
谢谢了
。
2008-5-12
17:59:25
jmahqh
uses ComObj
var
Excel,workbook,sheet: OleVariant;
begin
Excel :=
CreateOLEObject
('ation');
WorkBook:=;
Sheet:=[1];
if e then
begin
[1,1].value:='
姓名
';
(me);
;
excel:=unassigned;
end;
2008-5-12 18:02:04
jmahqh
Delphi
控制
Excel2000
心得
< br>- -
类
别
:COM & ActiveX
(
一
)
使用
动
态创建
的方法
首先创建
Excel
对
象
,
使用
ComObj:
var ExcelApp: Variant;
ExcelApp :=
CreateOleObject
( 'ation' );
1)
显
示当前
窗口
:
e := True;
2)
更
改
Excel
标题栏
:
n :=
'
应
用程序
调用
Microsoft Excel';
3)
添
加新工
作簿
:
;
4)
打
开已存
在的工
作簿
:
( 'C:'
);
5)
设
置第
2
个工作
表为活
动工作
表
:
eets[2].Activate;
或
heets[
'Sheet2' ].Activate;
6)
给
单元格
赋值
:
[1,4].Value := '
第
一行第
四列
';
7)
设
置指定
列的宽
度
(
单位
:
字符
个数
),
以第一
列为
例
:
s[1].ColumnsWidth := 5;
8)
设
置指定
行的高
度
(
单位
:
磅
)(1
磅＝
< br>0.035
厘米
),
以第
二行为
例
:
[2].RowHeight := 1/0.035; //
1
厘
米
9)
在
第
8
行
之前插
入分页
符
:
eets[1].Rows[8].PageBreak := 1;
10)
在
第
8
列之
前删除
分页符
< br>:
s[4].PageBreak := 0;
11)
指定
边框线
< br>宽度
:
[ 'B3:D4'
].Borders[2].Weight := 3;
1-
左
2-
右
3-
顶
4-
底
5-
斜
( )
6-
斜
( / )
12)
清除
第一行
第四列
单
元格
公式
:
[1,4].ClearContents;
13)
设置
第一行
字体属
性
:
[1]. :=
'
隶书
';
[1]. :=
clBlue;
[1]. := True;
[1].ine := True;
14)
进行
页面设
置
:
a.
页眉
:
Header :=
'
报
表演示
';
b.
页脚
:
Footer := '
第
&P
页
';
c.
页眉
到
顶端边
距
2cm:
Margin := 2/0.035;
d.
页脚到
底端边
距
3cm:
Margin := 3/0.035;
e.
顶边
距
2cm:
gin
:= 2/0.035;
f.
底边
距
2cm:
Margin := 2/0.035; <
/p>
g.
左边
距
2c
m:
rgin := 2/0.035;
h.
右边
距
2cm:
argin := 2/0.035;
i.
页面水
平居中
:
Horizontally := 2/0.035;
j.
页面垂
直居中
:
Vertically := 2/0.035;
k.
打印单
元格网
线
:
ridLines := True;
15)
拷贝
操作
:
a.
拷贝整
个工作
表
:
;
b.
拷贝指
定区域
:
[ 'A1:E2'
].Copy;
c.
从
A1
位置
开始粘
贴
:
.[ 'A1' ].PasteSpecial;
d.<
/p>
从文件
尾部开
始粘贴
:
pecial;
16)
插入
一行或
一列
:
a. [2].Insert;
b.
s[1].Insert;
17)
删除
< br>一行或
一列
:
a.
[2].Delete;
b. s[1].Delete;
18)
打印
预览工
< br>作表
:
review;
19)
打印
输出工
< br>作表
:
ut;
20)
工作
表保存
:
if not then
review;
21)
工作
表另存
< br>为
:
( 'C:' );
22)
放弃
存盘
:
:= True;
23)
关闭
工作簿
:
;
24)
退出
Excel:
;
(
二
)
使用
Delphi
控
件方法
在
Form
中分
别放
< br>入
ExcelApplication, ExcelWorkbook
和
ExcelWorksheet
。
1)
打
开
Excel
t;
2)
显
示当前
窗口
:
e[0]:=True;
3)
更
改
Excel
标题栏
:
n := '
应
用程序
调用
Microsoft Excel';
4)
添
加新工
作簿
:
tTo((EmptyParam,0));
5)
添
加新工
作表
:
var Temp_Worksheet: _WorkSheet;
begin
Temp_Worksheet:=ExcelWorkbook1.
(EmptyParam,EmptyParam,EmptyParam,EmptyParam,
0) as _WorkSheet;
tTo(Temp_WorkSheet);
End;
6)
打
开已存
在的工
作簿
:
(c:
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,Empt
yParam,EmptyParam,EmptyParam,
EmptyPar
am,EmptyParam,EmptyParam,EmptyParam,0)
7)
设
置第
2
个工作
表为活
动工作
表
:
eets[2].Activate;
或
heets[
'Sheet2' ].Activate;
8)
给
单元格
赋值
:
[1,4].Value := '
第
一行第
四列
';
9)
设
置指定
列的宽
度
(
单位
:
字符
个数
),
以第一
列为
例
:
s[1].ColumnsWidth := 5;
10)
设置
指定行
< br>的高度
(
单
位
< br>:
磅
)(1
磅
< br>＝
0.035
厘米
),
以第二
行为例
:
[2].RowHeight := 1/0.035; //
1
厘
米
11)
在
第
8
行之
前插入
分页符
< br>:
eets[1].Rows[8].PageBreak := 1;
12)
在
第
8
列之
前删除
分页符
< br>:
s[4].PageBreak := 0;
13)
指定
边框线
< br>宽度
:
[ 'B3:D4'
].Borders[2].Weight := 3;
1-
左
2-
右
3-
顶
4-
底
5-
斜
( )
6-
斜
( / )
14)
清除
第一行
第四列
单
元格
公式
:
[1,4].ClearContents;
15)
设置
第一行
字体属
性
:
[1]. :=
'
隶书
';
[1]. :=
clBlue;
[1]. := True;
[1].ine := True;
16)
进行
页面设
置
:
a.
页眉
:
Header :=
'
报
表演示
';
b.
页脚
:
Footer := '
第
&P
页
';
c.
页眉
到
顶端边
距
2cm:
Margin := 2/0.035;
d.
页脚到
底端边
距
3cm:
Margin := 3/0.035;
e.
顶边
距
2cm:
gin
:= 2/0.035;
f.
底边
距
2cm:
Margin := 2/0.035; <
/p>
g.
左边
距
2c
m:
rgin := 2/0.035;
h.
右边
距
2cm:
argin := 2/0.035;
i.
页面水
平居中
:
Horizontally := 2/0.035;
j.
页面垂
直居中
:
Vertically := 2
/0.035;
k.
打印单
元格网
线<
/p>
:
ridLines := True;
17)
拷贝
操作
:
a.
拷贝整
个工作
表
:
;
b.
拷贝指
定区域
:
[ 'A1:E2'
].Copy;
c.
从
A1
位置
开始粘
贴
:
.[ 'A1' ].PasteSpecial;
d.<
/p>
从文件
尾部开
始粘贴
:
pecial;
18)
插入
一行或
一列
:
a. [2].Insert;
b.
s[1].Insert;
19)
删除
< br>一行或
一列
:
a.
[2].Delete;
b. s[1].Delete;
20)
打印
预览工
< br>作表
:
review;
21)
打印
输出工
< br>作表
:
ut;
22)
工作
表保存
:
if not then
review;
23)
工作
表另存
< br>为
:
( 'C:' );
24)
放弃
存盘
:
:= True;
25)
关闭
工作簿
:
;
26)
退出
Excel:
;
nect;
(
三
)
使用
Delphi
控
制
Excle
二维
图
在
Form
中分<
/p>
别放
入
ExcelApplicatio
n,
ExcelWorkbook
和
ExcelWorksheet
var asheet1,achart, range:variant;
1)
选择当
第一个
工
作薄
第一个
工作表
asheet1:=oks[1].Worksheets[1];
2)
增加一
个二维
图
achart:=(100,100,200,200);
3)
选择二
维图的
形态
ype:=4;
4)
给二维
图赋值
series:=collection;
range:=sheet1!r2c3:r3c9;
(range,true);
5)
加上二
维图的
标题
le:=True;
:='
Excle
二维图
'
6)
改变二
维图的
标题字
体
大小
:=6;
7)
给二维
图加下
标说明
(xlCategory, xlPrimary).HasTitle :=
True;
(xlCategory, xlPrimary). :=
'
下标说
明
';
< br>8)
给二维
图加左
标说明
(xlValue, xlPrimary).HasTitle
:= True;
(xlValue, xlPrimary). :=
'
左标说
明
';
< br>9)
给二维
图加右
标说明
(xlValue,
xlSecondary).HasTitle := True;
(xlValue, xlSecondary). :=
'
右标
说明
';
< br>10)
改
变二维
图的显
示区大
小
:=
5;
:= 223;
:= 108;
11)
给
二维图
坐标轴
加上说
明
collection[1].NAME:='
坐标
轴说明
';
unit Unit1;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls,
ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
procedure
Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private
declarations }
procedure setEclStyle;
procedure drawImg;
function
getColChar(col: Integer): string;
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$$R *.dfm}
var
eclApp: Variant;
imgFile:
string;
const
rowStart = 6;
colStart = 3;
//
生成
99
乘
法表