Inserted column's contents are inserted up to line 256, all input stays remained after line number 256.
Code: Select all
var
col, row: Integer;
begin
XLSReadWriteII51.FileName:='C:\XLSRW.xlsx';
for col:=0 to 10 do
for row:=0 to 300 do
XLSReadWriteII51.Sheets[0].AsString[col, row]:='[' + IntToStr(col) + ':' + IntToStr(row) + ']';
XLSReadWriteII51[0].InsertColumns(4, 1);
XLSReadWriteII51.Write;
end;