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(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);
 
    for i := 0 to 9 do // XLS.Sheets[0].LastCol do // 從第一列到最后一列
    begin
      for n := 0 to 19 do // 從第一行到最后一行
      begin
        XLS.Sheets[0].Range.Items[i, n, i, n].BorderOutlineStyle := cbsThin;
        XLS.Sheets[0].Range.Items[i, n, i, n].BorderOutlineColor := 0; // 黑色#0
        if n = 0 then
        begin
          XLS.Sheets[0].Cell[i, n].CellColorRGB := 16744448; // 橘黃#FF8000
          XLS.Sheets[0].Cell[i, n].FontColor := 16777215; // 白色#FFFFFF
        end
        else
          XLS.Sheets[0].Cell[i, n].CellColorRGB := 16777165; // 杏仁灰#FFFFCD
      end;
      XLS.Sheets[0].AutoWidthCol(i); // 每列為自動寬度
    end;
    XLS.Write;
    ShellExecute(0, 'Open', PChar(ExtractFilePath(paramstr(0)) + 'temp.xls')
      , nil, nil, SW_SHOW);
  finally
    XLS.Free;
  end;
end;

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