Delphi操作Excel大全.docVIP

1.往Excel中插入图片?? 用MsExcelWorkSheet.Pictures.Insert(ExtractFilePath(ParamStr(0))+temp.jpg); 可以放图片varExcelApp,MyWorkBook,MsExcelWorkSheet,Temple1:Variant;begin?? try???? ExcelApp:=CreateOleObject(Excel.Application);???? MyWorkBook:=CreateOleobject(Excel.Sheet);???? MyWorkBook:=ExcelApp.WorkBooks.open(ExtractFilePath(ParamStr(0))+testItemBook.xls);???? MsExcelWorkSheet:=MyWorkBook.WorkSheets[3]; ???? if not ADOQueryItemBook.IsEmpty then???? begin?????? Tblobfield(ADOQueryItemBook.FieldByName(pic)).SaveToFile(ExtractFilePath(ParamStr(0))+temp.jpg);?????? MsExcelWorkSheet.Pictures.Insert(ExtractFilePath(ParamStr(0))+temp.jpg);???? end;?? 提供一些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;ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;14) 进行页面设置：a.页眉：ExcelApp.ActiveSheet.PageSetup.CenterHeader := 报表演示;b.页脚：ExcelApp.ActiveSheet.PageSetup.CenterFooter := 第P页;c.页眉到顶端边距2cm：ExcelApp.ActiveSheet.PageSe