Delphi中使用OLE方法操作Excel

领测软件测试网

 工作表重命名 ExcelApp.WorkSheets[1].Name:=’工作表1’; 

或者ExcelApp.WorkSheets[’Sheet1’].Name:=’工作表1’; 

工作表数目 ExcelApp.WorkSheets.Count 

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; 

文章来源于领测软件测试网 https://www.ltesting.net/