How to remove these borders?
Code: Select all
var
XLSReadWriteII51: TXLSReadWriteII5;
begin
XLSReadWriteII51:=TXLSReadWriteII5.Create(nil);
try
XLSReadWriteII51.FileName:='C:\Temp\x.xlsx';
XLSReadWriteII51.Sheets[0].AsString[0, 0]:='0:0';
XLSReadWriteII51.Sheets[0].AsString[1, 0]:='1:0';
XLSReadWriteII51.CmdFormat.BeginEdit(XLSReadWriteII51[0]);
XLSReadWriteII51.CmdFormat.Border.Style := cbsThin;
XLSReadWriteII51.CmdFormat.Border.Preset(cbspOutlineAndInside);
XLSReadWriteII51.CmdFormat.Apply(0, 0, 1, 0);
finally
XLSReadWriteII51.Write;
XLSReadWriteII51.Destroy;
end;
end;