delphi TStrings 通过TXLSReadWriteII5 导出excel

procedure StringList2XLS(InSL: TStrings; OutXls: String);
var
  XLSRW: TXLSReadWriteII5;
  i: Integer;
  DefFmt: TXLSDefaultFormat;
begin
  XLSRW := TXLSReadWriteII5.Create(nil);
  XLSRW.Filename := OutXls;
  XLSRW.Clear;

  XLSRW.Version := xvExcel97;
  XLSRW.CmdFormat.BeginEdit(Nil);
  XLSRW.CmdFormat.Font.Name := '微软雅黑';
  XLSRW.CmdFormat.Font.Size := 9;
  DefFmt := XLSRW.CmdFormat.AddAsDefault('F1');
  XLSRW.DefaultFormat := DefFmt;

  for i := 0 to InSL.Count - 1 do
  begin
    XLSRW.Sheets[0].AsString[0, i] := InSL.Names[i];
    XLSRW.Sheets[0].AsFloat[1, i] := InSL.ValueFromIndex[i].ToDouble;
  end;

  XLSRW.Sheets[0].AutoWidthCol(0);
  XLSRW.Sheets[0].AutoWidthCol(1);

  XLSRW.Write;

  FreeAndNil(XLSRW);
end;