delphi XLSReadWriteII5读写excel

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;

XLSReadWriteII51[0].CalcDimensions; //这条必须加，网上好多代码都没加这个

        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;

————————————————

原文链接：https://blog.csdn.net/missingzlp/article/details/89520328