delphi+excel的源代码得高分

/1/25944.html日常办公中，Word和Excel是最常用的，Excel在处理数据报表(运算公式、打印格式等)时特别方便。).如果我们将数据导入Excel，就可以快速编辑我们有用的数据(比如领导的报告等。)靠的就是我们平时熟练操作Excel。通过控制Excel，可以自动编译出我们想要的格式和格式。/(一)运用动态创作的方法

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

var ExcelApp:Variant；

Excel app:= create ole object(' Excel。应用’)；

1)显示当前窗口:

ExcelApp。可见:=真；

2)更改Excel标题栏:

ExcelApp。标题:= '应用程序调用Microsoft Excel '；

3)添加新工作簿:

ExcelApp。WorkBooks . Add

4)打开现有工作簿:

ExcelApp。WorkBooks . Open(' C:\ Excel \ demo . xls ')。

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

ExcelApp。工作表。值:= '第一行，第四列'；

7)以第一列为例，设置指定列的宽度(单位:字符数):

ExcelApp。active sheet . columns . clear contents；

13)设置首行的字体属性:

Excelapp。activesheet.rows.value: = '第一行，第四列'；

9)以第一列为例，设置指定列的宽度(单位:字符数):

ExcelApplication1。active sheet . columns . clear contents；

15)设置首行的字体属性:

Excel应用程序1 . active sheet . rows[1]。font.name: = '隶书'；

ExcelApplication1。active sheet . Rows[1]. font . color:= cl blue；

ExcelApplication1。active sheet . Rows[1]. font . bold:= True；

ExcelApplication1。active sheet . Rows[1]. font . underline:= True；

16)用于页面设置:

A.标题:

excel application 1 . active sheet . page setup . center header:= '报表演示'；

B.页脚:

excel application 1 . active sheet . page setup . center footer:= '第一个&；第p页'；

C.页眉到上边距2厘米:

ExcelApplication1。active sheet . page setup . header margin:= 2/0.035；

D.页脚到下边距3厘米:

ExcelApplication1。active sheet . page setup . header margin:= 3/0.035；

E.上边距2厘米:

ExcelApplication1。active sheet . page setup . top margin:= 2/0.035；

F.底边之间的距离为2厘米:

ExcelApplication1。active sheet . page setup . bottom margin:= 2/0.035；

G.左侧距离为2厘米:

ExcelApplication1。active sheet . page setup . left margin:= 2/0.035；

H.距离右侧2厘米:

ExcelApplication1。active sheet . page setup . right margin:= 2/0.035；

I .页面水平居中:

ExcelApplication1。active sheet . page setup . center horizontally:= 2/0.035；

J.垂直居中页面:

ExcelApplication1。active sheet . page setup . center vertically:= 2/0.035；

K.打印单元格网络线:

ExcelApplication1。active sheet . page setup . print gridlines:= True；

17)复制操作:

A.复制整个工作表:

ExcelApplication1。active sheet . used . range . copy；

B.复制指定区域:

ExcelApplication1。active sheet . Range[' a 1:E2 ']。复制；

C.从A1位置粘贴:

excel application 1 . active sheet . range .[' a 1 ']。PasteSpecial

D.从文件末尾粘贴:

ExcelApplication1。active sheet . range . paste special；

18)插入一行或一列:

a.ExcelApplication1。ActiveSheet.Rows[2]。插入；

b.ExcelApplication1。ActiveSheet.Columns[1]。插入；

19)删除行或列:

a.ExcelApplication1。ActiveSheet.Rows[2]。删除；

b.ExcelApplication1。ActiveSheet.Columns[1]。删除；

20)打印预览工作表:

ExcelApplication1。ActiveSheet . PrintPreview

21)打印出工作表:

ExcelApplication1。ActiveSheet . PrintOut

22)保存工作表:

如果不是ExcelApplication1。ActiveWorkBook .然后保存

ExcelApplication1。ActiveSheet . PrintPreview

23)将工作表另存为:

ExcelApplication1。另存为(' C:\ Excel \ demo 1 . xls ')；

24)放弃储蓄:

ExcelApplication1。active workbook . Saved:= True；

25)关闭工作簿:

ExcelApplication1。工作簿。关闭；

26)退出Excel:

ExcelApplication1。退出；

ExcelApplication1。断开连接；

(3)用Delphi控制Excle 2D绘图

将ExcelApplication、ExcelWorkbook和ExcelWorksheet分别放入表单中。

var asheet1，achart，range:variant；

1)选择作为第一个工作簿中的第一个工作表。

ashet 1:= excelapplication 1。工作簿[1]。工作表[1]；

2)添加二维图表

achart:= asheet 1 . chart objects . add(100，100，200，200)；

3)选择二维图形的形式。

achart . chart . charttype:= 4；

4)给二维图形赋值

series:= achart . chart . series collection；

范围:=sheet1！r2c 3:r3c 9；

series.add(range，true)；

5)添加2D图的标题。

阿哈特。chart . HasTitle:= True；

阿哈特。chart . chart title . characters . text:= '不包括2D图表'

6)更改2D图纸标题的字体大小。

阿哈特。chart . chart title . font . size:= 6；

7)下标二维图。

阿哈特。图表。坐标轴(xlCategory，xlPrimary)。HasTitle:= True；

阿哈特。图表。轴(XL类别，XL主)。轴标题。Characters.text: = '下标描述'；

8)在二维图中添加左标签。

阿哈特。图表坐标轴(xlValue，xlPrimary)。HasTitle:= True；

阿哈特。图表。坐标轴(xlvalue，xlprimary)。轴标题。Characters.text: = '左标签的描述'；

9)在二维图中添加右标签。

阿哈特。图表坐标轴(xlValue，xlSecondary)。HasTitle:= True；

阿哈特。图表。坐标轴(xlvalue，xlsecondary)。轴标题。Characters.text: = '右标签的描述'；

10)来改变二维图形的显示区域的大小。

阿哈特。chart . plot area . left:= 5；

阿哈特。chart . plot area . width:= 223；

阿哈特。chart . plot area . height:= 108；

11)标注二维图形的坐标轴。

achart . chart . series collection[1]。名称:= '轴描述'；

(3)数据库

1.存储过程

首先执行以下存储过程

EXEC sp_addlinkedserver

'外部资源'，

Jet 4.0 '，

微软。Jet.OLEDB.4.0 '，

' c:\ documents and settings \ administrator \ desktop \ xinxi 3 . xls '，

空，

' Excel 5.0 '

EXEC sp _ addlinkedsrvlogin excel source，FALSE，NULL，NULL

然后执行下面的存储过程。

execsp _ tables _ EXEXEXCELSource//显示几个表。

此时会返回几个表的名称(数量与excel中的表数一致)。

然后你用下面这句话:

select * from ExcelSource...Sheet1美元

你可以在excel里找出数据，然后就可以倒进去了。

请记住在导入后执行以下两个存储过程:

-EXEC sp _ droplinkedsrvlogin excel source，NULL

- EXEC sp_dropserver ExcelSource

以上所有操作都可以先在查询分析器中测试，然后你可以编写存储过程来实现它。