一、使用单元:
Use :EXCEL 2000, ComObj
二、定义
var ExcelApp,Sheet,Range: Variant;
注释:
ExcelApp 为定义的 Excel 对象
Sheet 为定义的工作表(Sheet)对象
Range 为定义的工作表范围
三、关于 Excel 对象创建初始化以及工作表、工作表范围的初始化
1. 创建 excel 对象:
ExcelApp := CreateOleObject( 'Excel.Application' );
2. 显示当前窗口:
ExcelApp.Visible := True;
3. 更改 Excel 标题栏:
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
4. 添加新工作簿:
ExcelApp.WorkBooks.Add;
5 打开已存在的工作簿:
ExcelApp.WorkBooks.Open(FilePath);
6.设置工作簿默认工作表张数
ExcelApp.SheetsInNewWorkbook := 1;
7.设置工作表名称
ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum].Name :=
PName;
8.工作表初始化
Sheet:= ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum];
9.工作表范围初始化
Range := Sheet.Range['A1:DL1'] ;
10.设置第 2 个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
三、单元格赋值设置数值类型
1. 给单元格赋值:
ExcelApp.Cells[row, column].Value := '第一行第四列';
或
Sheet.Cells[row, column] := ‘第一行第四列’;
2 清除第一行第四列单元格公式: