delphi TXLSReadWriteII5生成excel表格

uses XLSDbRead5, XLSSheetData5, XLSReadWriteII5,Xc12Utils5;

var

  aXlsObj: TXLSReadWriteII5; // 引用XLSReadWriteII5, Xc12DataStyleSheet5, ShellAPI

  i:Integer;

begin

  aXlsObj := TXLSReadWriteII5.Create(nil);

   //aXlsObj.Clear;

   //aXlsObj.Version:=xvExcel97;

   //aXlsObj.SkipExcel97Drawing:=true;

   aXlsObj.Sheets[0].Name := 'Sheet1';

  try

    aXlsObj.Sheets[0].AsString[0, 0] := 'id';

    aXlsObj.Sheets[0].AsString[1, 0] := 'table';

    aXlsObj.Sheets[0].AsString[2, 0] := 'kind';

    aXlsObj.Sheets[0].AsString[3, 0] := 'rows';

    aXlsObj.Sheets[0].AsString[4, 0] := 'times';

    aXlsObj.Sheets[0].AsString[5, 0] := 'desc';

    for i:=1 to Memo_MobiList.Lines.Count - 1 do

    begin

      aXlsObj.Sheets[0].AsString[0, i] := 'a1';

      aXlsObj.Sheets[0].AsString[1, i] :='a2';

      aXlsObj.Sheets[0].AsString[2, i] := 'a3';

      aXlsObj.Sheets[0].AsString[3, i] := 'a4';

      aXlsObj.Sheets[0].AsString[4, i] := 'a5';

      aXlsObj.Sheets[0].AsString[5, i] := 'a6';

    end;

    aXlsObj.Filename := '123.xlsx';

    aXlsObj.Write;

  finally

    aXlsObj.Free;

  end;

案例2：

var

  i, n: Integer;

  XLS: TXLSReadWriteII5; 

begin

  XLS := TXLSReadWriteII5.Create(nil);

  try

    XLS.Clear;

    XLS.FileName := ExtractFilePath(paramstr(0)) + 'temp.xls';

    for i := 0 to 9 do

      XLS.Sheets[0].AsString[i, 0] := '标题' + IntToStr(i + 1);

    for i := 0 to 9 do

      for n := 1 to 19 do

      XLS.Sheets[0].AsString[i, n] := IntToStr(i + 1) + ':' + IntToStr(n);

      XLS.Sheets[0].AutoWidthCol(i); // 每列为自动宽度

    XLS.Write;

  finally

    XLS.Free;

  end;