自己写的两个Excel 函数

最新推荐文章于 2022-06-18 20:41:27 发布

fhfanxin

最新推荐文章于 2022-06-18 20:41:27 发布

阅读量1k

点赞数

分类专栏：编程日记文章标签： excel integer application string forms function

本文链接：https://blog.csdn.net/fhfanxin/article/details/3188597

版权

编程日记专栏收录该内容

29 篇文章 0 订阅

订阅专栏

Unit excel;

interface

Uses
Windows,ActiveX,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;
{ ComObj是操作OLE对象的函数集}

function ReadExcel(filename:string;sheet:string;Rows:Integer;Columns:integer):string;
procedure WriteExcel(filename:string;sheet:string;Rows:Integer;Columns:integer;txt:string);
var
    ExcelApp:Variant;
    ExcelBook: Variant;
    ExcelSheet: Variant;
implementation

procedure WriteExcel(filename:string;sheet:string;Rows:Integer;Columns:integer;txt:string);
begin
{创建OLE对象：Excel Application与WordBook}
CoInitialize(nil);
ExcelApp:=CreateOleObject('Excel.Application');
   if not FileExists(filename) then
   begin
     ExcelBook:=ExcelApp.Workbooks.Add;
     ExcelSheet:=ExcelBook.WorkSheets[Sheet];
     ExcelSheet.Cells[Rows,Columns]:=txt;
     ExcelBook.SaveAs(filename);
     ExcelBook.close;
     ExcelApp.quit;
   end;
   if FileExists(filename) then
   begin
     ExcelBook:=ExcelApp.Workbooks.Open(FileName);
     ExcelSheet:=ExcelBook.WorkSheets[Sheet];
     ExcelSheet.Cells[Rows,Columns]:=txt;
     ExcelBook.Save;
     ExcelBook.close;
     ExcelApp.quit;
   end;
exit;
end;

function ReadExcel(filename:string;sheet:string;Rows:Integer;Columns:integer):string;
begin
{创建OLE对象：Excel Application与WordBook}
ExcelApp:=CreateOleObject('Excel.Application');
ExcelBook:=ExcelApp.WorkBooks.Open(FileName);
ExcelSheet:=ExcelBook.WorksSheets[sheet];
result:=ExcelSheet.Cells[Rows,Columns];
excelbook.close;
ExcelApp.Quit;
exit;
end;
end.