Delphi操作EXCEL 函数整理.docVIP

一、使用单元： 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.设置第个工作表为活动工作表：ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ Sheet2 ].Activate; 三、单元格赋值设置数值类型 1. 给单元格赋值：ExcelApp.Cells[row, column].Value := 第一行第四列;‘第一行第四列’; 2 清除第一行第四列单元格公式： ExcelApp.ActiveSheet.Cells[row,column].ClearContents;或 Sheet.Cells[row,column]. ClearContents 3设置单元格数值类型为文字型 Range.NumberFormatLocal := @; 四、设置列宽和行高1. 设置指定列的宽度（单位：字符个数）：ExcelApp.ActiveSheet.Columns[column].ColumnsWidth := 5; 或 Sheet.Columns[column].ColumnWidth := 5; 2.设置指定行的高度（单位：磅）（1磅＝0.035厘米） ExcelApp.ActiveSheet.Rows[row].RowHeight := 1/0.035; // 1厘米Sheet. Rows [row]. RowHeight:= 1/0.035;五、对齐方式 1.水平对齐 Range.HorizontalAlignment:=xlCenter; 居中 Range.HorizontalAlignment:=xlLeft;居左 Range.HorizontalAlignment:=xlRight;居右 或 Sheet.Cells[row,column].HorizontalAlignment:=xlCenter; 居中 Sheet.Cells[row,column].HorizontalAlignment:=xlLeft;居左 Sheet.Cells[row,column].HorizontalAlignment:=xlRight;居右 2.垂直对齐 Range. VerticalAlignment:=xlCenter; 居中 Range. VerticalAlignment:= xltop;顶端对齐 Range. VerticalAlignment:= xlbottomfont;底部对齐 或 Sheet.Cells[row,column]. VerticalAlignment:=xlCenter; 居中 Sheet.Cells[row,column]. VerticalAlignment:= xltop;顶端对齐 Sheet.Cells[row,column]. VerticalAlignment:= xlbottomfont; 底部对齐 六、文字控制 1.自动换行 Range.WrapText:=true; 或 Sheet.Cells[row,column]. WrapText:=true; 2.合并单元格 Sheet.range[A17:G17].Merge; 3.跨越合并 Sheet.range[C27:D34