delphi调用Excel查找定位

最新推荐文章于 2023-01-17 15:09:54 发布

最新推荐文章于 2023-01-17 15:09:54 发布 · 496 阅读

本示例演示了如何使用 VCL 和 OleObject 在 Delphi 中打开 Excel 文件，并在指定范围内写入数据。首先通过 OpenDialog 获取 Excel 文件路径，然后创建 Excel 应用程序对象，打开文件并定位到含有“姓名”的单元格，接着向下偏移一行开始写入重复的数据。

部署运行你感兴趣的模型镜像

var ExcelFile:string; SourceRange,DesRange:Variant; Row,Column,i:integer; begin if OpenDialog1.Execute then begin ExcelFile:=OpenDialog1.Files[0]; if not FileExists(ExcelFile) then Exit; end else Exit; try ExcelApp:=CreateOleObject('Excel.Application'); ExcelApp.WorkBooks.open(ExcelFile); DesRange:=ExcelApp.WorkSheets[1].Cells.Find('姓名'); DesRange:=DesRange.offset[1]; //在查找到的单元格向下偏移1 Row:=DesRange.Row; //开始的行号 Column:=DesRange.Column; //列号 i:=1; while i<10 do begin ExcelApp.WorkSheets[1].Cells[Row,Column]:='love my wife';//写入数据 I:=I+1; Row:=Row+1; end; ExcelApp.Visible:=True; finally End; end;

您可能感兴趣的与本文相关的镜像