Question

怎么在delphi中读取Excel数据

Answer 1

首先创建 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 ;