基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

用于生成Excel不带水印

procedure TSF_Excel.btnTestXls();
var
  xls: TXLSReadWriteII5;
  ws: TXLSWorksheet;
begin
  // 创建一个新的 Excel 对象
  xls := TXLSReadWriteII5.Create(nil);
  try
    // 添加一个新的工作表
    //ws := xls.Add;

    //默认有一个Sheet1
    ws := xls.Items[0];

    // 写入标题行
    ws.Name:='NewSheet1';
    ws.AsString[0, 0] := 'Test1';
    ws.AsString[0, 1] := 'Test2';

    ws.AsString[1, 2] := 'Age';
    ws.AsString[1, 3] := 'City';

    // 写入数据行
    ws.AsString[2, 1] := 'John Doe';
    ws.AsInteger[2, 2] := 30;
    ws.AsString[2, 3] := 'New York';

    ws.AsString[3, 1] := 'Jane Doe';
    ws.AsInteger[3, 2] := 28;
    ws.AsString[3, 3] := 'Los Angeles';

    // 保存工作簿到磁盘
    xls.SaveToFile('C:\Test\example.xlsx');

    // 显示保存成功的消息
    ShowMessage('File saved successfully.');
  finally
    // 清理资源
    xls.Free;
  end;
end;