type
  TCells = class(XLSWorkbook.TCells)
  end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
  xf: TXLSFile;
begin
   xf := TXLSFile.Create;
   try
      xf.OpenFile('in.xls');
      // Вставка новой строки после второй строки
      TCells(xf.Workbook.SheetByName('Sheet1').Cells).InternalInsertRow(1);
      xf.SaveAs('out.xls');
   finally
      xf.Destroy;
   end;
end;

// Получение списка страниц
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
   s := '';
   with XLSReadWriteII51 do
   begin
      LoadFromFile('d:\test.xlsx');
      for i := 0 to Count-1 do
         s := s + Sheets[i].Name + ^M;
   end;
   ShowMessage(s);
end;

// Поиск текста
procedure TForm1.Button1Click(Sender: TObject);
var
  Sheet, Col, Row, TextPos: Integer;
  Text: string;
begin
   with XLSReadWriteII51 do
   begin
      LoadFromFile('d:\test.xlsx');
      BeginFindText;

      while True do
      begin
         if FindText('#', False) then
         begin
            GetFindData(Sheet, Col, Row, TextPos, Text);
            ShowMessage(
               Format(
                  'Лист: %d'^M'Колонка: %d'^M'Строка: %d'^M'Позиция в тексте: %d'^M'Текст: %s',
                  [Sheet, Col+1, Row+1, TextPos, Text]
               )
            );
         end
         else
            if MessageDlg('Поиск в документе завершен. Начать сначала?',
                          mtConfirmation, mbYesNo, 0) = mrYes then
               BeginFindText
            else
               Break;
      end;
   end;
end;

// Поиск области ячеек, занятых пользовательскими данными
uses
  Xc12Utils5;

procedure TForm1.Button1Click(Sender: TObject);
var
  CellArea: TXLSCellArea;
begin
   with XLSReadWriteII51 do
   begin
      LoadFromFile('d:\test.xlsx');

      // Sheets[0].CalcDimensions;
      // Sheets[0].CalcDimensionsEx;
      Sheets[0].MMUCells.CalcDimensions;
      CellArea := Sheets[0].MMUCells.Dimension;
      ShowMessage(
         Format(
            'Столбцы: с %d по %d'^M'Строки: с %d по %d',
            [CellArea.Col1+1, CellArea.Col2+1, CellArea.Row1+1, CellArea.Row2+1]
         )
      );
   end;
end;

// Добавление формулы
procedure TForm1.Button1Click(Sender: TObject);
begin
   with XLSReadWriteII51 do
   begin
      LoadFromFile('d:\test.xlsx');

      Sheets[0].MMUCells.AddFormula(0, 0, 'B4+D6', 0);
      SaveToFile('d:\test_out.xlsx');
   end;
end;

// Обращение к ячейке
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
   with XLSReadWriteII51 do
   begin
      LoadFromFile('d:\test.xlsx');

      Sheets[0].MMUCells.GetString(0, 0, s);
      ShowMessage(s);
      Sheets[0].AsString[0, 0] := '1';
      ShowMessage(Sheets[0].AsString[0, 0]);
      SaveToFile('d:\test_out.xlsx');
   end;
end;