Importação com OpenOffice - Qtde de linhas

Delphi

06/07/2022

Salve galera,

Já estou conseguindo fazer a importação de dados utilizando o Openoffice, só uma coisinha que gostaria de melhorar na importação.

É que uso um progressBar para informar ao usuario o andamento da improtação, porém não estou conseguindo encontrar a quantidade de linhas que a planilha tem . Com o comando (y:= sheet1.getrows.count;) consigo encontrar o limite máximo de linhas, não é isso que preciso.

No Excel eu utilizo esta função:

Function TForm1.qLinhas(pFile,pPlan : String): Integer;
var
   XLApp, Sheet: Variant;
begin
   XLApp:= CreateOleObject('Excel.Application');
   try
      XLApp.WorkBooks.Open(pFile,0,True);
      Try
         Sheet := XLApp.Workbooks[1].WorkSheets[pPlan];
         Result := Sheet.Cells.SpecialCells(11).Row
      Except
         KDialog('Nome da Guia (ABA) na planilha está errado o correto é: '+pPlan,'Alerta','ERRO');
         Result := 0;
      end;
   finally
      XLApp.Quit
   end
end;



Se alguém souber o comando ou a função que me traga a "quantidade de linhas broffice" ficarei muito agradecido.

Att.
Dirceu Morais

Dirceu Morais

Curtidas 0
POSTAR