XLSReadWriteII5使用示例

之前一直是使用XLSReadWriteII4，今天更新到XLSReadWriteII5，测试了一下，发现一些操作变化比较大，现将XLSReadWriteII5的使用示例写一下，以下是代码和生成的excel表格的效果：

 procedure TForm1.Button1Click(Sender: TObject);

 var

   i, n: Integer;

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

 begin

   XLS := TXLSReadWriteII5.Create(nil);

   try

     XLS.Clear;

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

     for i :=  to  do

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

     for i :=  to  do

       for n :=  to  do

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

     for i :=  to  do // XLS.Sheets[0].LastCol do // 从第一列到最后一列

     begin

       for n :=  to  do // 从第一行到最后一行

       begin

         XLS.Sheets[].Range.Items[i, n, i, n].BorderOutlineStyle := cbsThin;

         XLS.Sheets[].Range.Items[i, n, i, n].BorderOutlineColor := ; // 黑色#0

         if n =  then

         begin

           XLS.Sheets[].Cell[i, n].CellColorRGB := ; // 橘黄#FF8000

           XLS.Sheets[].Cell[i, n].FontColor := ; // 白色#FFFFFF

         end

         else

           XLS.Sheets[].Cell[i, n].CellColorRGB := ; // 杏仁灰#FFFFCD

       end;

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

     end;

     XLS.Write;

     ShellExecute(, 'Open', PChar(ExtractFilePath(paramstr()) + 'temp.xls')

       , nil, nil, SW_SHOW);

   finally

     XLS.Free;

   end;

 end;

转自：http://www.offeu.com/www/index_id_144.html