Code: Select all
var
col, row: Integer;
begin
XLSReadWriteII51.FileName:='C:\XLSRW.xlsx';
XLSReadWriteII51.Add;
XLSReadWriteII51.Add;
XLSReadWriteII51.Sheets[0].Name:='Before Insert Column';
XLSReadWriteII51.Sheets[1].Name:='After Insert Column';
XLSReadWriteII51.Sheets[2].Name:='Must be';
// Before Insert Column
for col:=2 to 9 do
for row:=0 to 9 do
XLSReadWriteII51.Sheets[0].AsFormula[col, row]:='A1+L1';
XLSReadWriteII51.Sheets[0].AsInteger[ 0, 0]:=1;
XLSReadWriteII51.Sheets[0].AsInteger[11, 0]:=2;
XLSReadWriteII51.Sheets[0].Cell[ 0, 0].FillPatternForeColorRGB:=clYellow;
XLSReadWriteII51.Sheets[0].Cell[11, 0].FillPatternForeColorRGB:=clYellow;
// After Insert Column
for col:=2 to 9 do
for row:=0 to 9 do
XLSReadWriteII51.Sheets[1].AsFormula[col, row]:='A1+L1';
XLSReadWriteII51.Sheets[1].AsInteger[ 0, 0]:=1;
XLSReadWriteII51.Sheets[1].AsInteger[11, 0]:=2;
XLSReadWriteII51.Sheets[1].Cell[ 0, 0].FillPatternForeColorRGB:=clYellow;
XLSReadWriteII51.Sheets[1].Cell[11, 0].FillPatternForeColorRGB:=clYellow;
XLSReadWriteII51[1].InsertColumns(4, 1);
// Must be
for col:=2 to 3 do
for row:=0 to 9 do
XLSReadWriteII51.Sheets[2].AsFormula[col, row]:='A1+M1';
for col:=5 to 10 do
for row:=0 to 9 do
XLSReadWriteII51.Sheets[2].AsFormula[col, row]:='A1+M1';
XLSReadWriteII51.Sheets[2].AsInteger[ 0, 0]:=1;
XLSReadWriteII51.Sheets[2].AsInteger[12, 0]:=2;
XLSReadWriteII51.Sheets[2].Cell[ 0, 0].FillPatternForeColorRGB:=clYellow;
XLSReadWriteII51.Sheets[2].Cell[12, 0].FillPatternForeColorRGB:=clYellow;
XLSReadWriteII51.Write;
end;