XLSReadWriteII5读写excel

最新推荐文章于 2025-05-20 16:50:34 发布

missingzlp

最新推荐文章于 2025-05-20 16:50:34 发布

阅读量5.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签：读写excel XLSReadWriteII

本文链接：https://blog.youkuaiyun.com/missingzlp/article/details/89520328

Delphi 专栏收录该内容

36 篇文章

订阅专栏

本文介绍了一种使用Delphi进行Excel数据导入导出的方法，通过XLSReadWriteII组件读取和写入Excel文件，包括xlsx和xls格式。文章详细展示了如何从Excel中读取数据并将其插入到数据库，以及如何将数据库中的数据导出到Excel，包括设置工作表名称和自动调整列宽。

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

procedure excelImport;
var
  Col, Row: integer;
  i, j: integer;
begin
  try
    try
      // dlgOpen.Filter := 'excel(*.xlsx)|*.xlsx|全部文件(*.*)|*.*';
      dlgOpen1.Filter := 'XLSX图标|*.xlsx|XLS图标|*.xls';

      dlgOpen1.DefaultExt := '*.xlsx|*.xls';

      if dlgOpen1.Execute then
      begin
        XLSReadWriteII51.Filename := Trim(dlgOpen1.Filename);
        XLSReadWriteII51.Read;
        Col := XLSReadWriteII51.Sheets[0].LastCol;
        Row := XLSReadWriteII51.Sheets[0].LastRow;

        cds2.Open;
        for i := 1 to Row do
        begin
          with cds2 do
          begin
            Append;
            for j := 0 to Col do
            begin
              Fields.Fields[j].Value := XLSReadWriteII51.Sheets[0].AsFmtString[j, i];
            end;
            Post;
          end;
        end;
      end;

    except
      on e: Exception do
      begin
        ShowMessage(e.Message);
      end;
    end;
  finally

  end;

end;

写excel

dlgSave1.Filter :='XLSX图标|*.xlsx|XLS图标|*.xls';

dlgSave1.DefaultExt := '*.xlsx|*.xls';

if dlgSave1.Execute then //SaveDialog1 是一个TSaveDialog 组件

begin

fileName:= dlgSave1.FileName;

XLSReadWriteII53.Clear;

XLSReadWriteII53.FileName :=fileName;

if cdsmz_bak.Active then

begin

for i := 0 to cdsmz_bak.FieldDefs.Count-1 do

XLSReadWriteII53.Sheets[0].AsString[i, 0] := cdsmz_bak.Fields.Fields[i].FieldName;