Delphi对Excel文件的操作（1）——保存

最新推荐文章于 2025-06-29 12:22:52 发布

Manson_Wang

最新推荐文章于 2025-06-29 12:22:52 发布

阅读量5.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： Delphi Excel

本文链接：https://blog.youkuaiyun.com/Manson_Wang/article/details/80724601

Delphi 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个用于将数据保存到Excel文件的功能函数。该函数能够处理已有表单的更新及新表单的创建，并包含了错误处理机制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//保存数据到文件
//path：文件所在路径
//data：待保存的数据
//SheetName：Excel表单的名字
function SaveToExcel(path:string;data:Variant;SheetName:string):boolean;
var
flag:boolean;
temp:integer;
i:Integer;
index:Integer;
MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;
begin
Result := True; //可最后在考虑
flag := false;      //判断是否会有重名表单
try
    MsExcel := CreateOleObject('Excel.Application');
    try
      MsExcelWorkBook := MsExcel.Workbooks.Open (path);
      try
        //先判断当前是否已存在同名表单
        for i := 1 to MsExcel.Sheets.Count do
        begin
          if (sheetname = MsExcel.Sheets[i].Name) then
          begin
            temp := i;
            if(messagedlg('已存在，是否修改？',mtwarning,[mbYes,mbNo],0)=1) then     //mbYes=0 ,mbNo=1
            begin
              result := false;
              exit;
            end
            else
            begin
              flag:=true;
            end;
          end;
        end;

        if flag then       //修改已经存在的表单数据，需要激活该表单
        begin
          MsExcel.WorkSheets[Temp].Activate;
          MsExcelWorkSheet := MsExcel.Worksheets.Item[temp];
          MsExcelWorkSheet.Name:=MsExcel.Sheets[temp].Name;
        end
        else                //创建新的表单
        begin
          MsExcelWorkBook.WorkSheets.Add;
          MsExcel.WorkSheets[MsExcel.Workbooks.Count].Activate;
          MsExcelWorkSheet := MsExcel.Worksheets.Item[MsExcel.Workbooks.Count];
          MsExcelWorkSheet.Name:=sheetname;
        end;

        MsExcelWorkSheet.Cells.item[1,1] := '';         //excel数据是先行后列
        //MsExcelWorkSheet.Columns[1].ColumnWidth := 120;       //设置例宽
        MsExcelWorkSheet.Cells.item[1,2] := '';
        MsExcelWorkSheet.Cells.item[1,3] := '';

        MsExcelWorkSheet.Cells.item[2,1] := '';
        MsExcelWorkSheet.Cells.item[2,2] := data[1,0];         //存入数据
        MsExcelWorkSheet.Cells.item[2,3] := data[14,0];

        MsExcel.DisplayAlerts:=false;              //不将该Excel表显示在屏幕上
        MsExcel.ActiveWorkBook.Save;          //保存Excel
      finally
        MsExcel.WorkBooks.Close;              //关闭Excel
      end;
    finally
      MsExcel.Quit;
      MsExcel := Unassigned;
    end;
except
    ShowMessage('保存文件失败');
    result:= false;
end;

end;