Delphi Excel操作大全

(一)使用动态创建的方法首先创建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.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;