delphi中读取Excel数据(补足六个汉字).docx
文本预览下载声明
( 一 ) 使用动态创建的方法
首先创建 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厘米
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 ] .Font.Name := 隶书 ;
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.PageS
显示全部