Como importar datos desde Excel?

[Casimiro Noteví]

Evidentemente, no puedes convertir a integer un cadena de texto.

¿Y exactamente en qué línea es eso?, ¿has seguido el programa con del depurador?

[jejo1984]

Claro que si voy a pegar nuevamente el código y de color rojo las líneas donde aparece el error:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
const
  xlCellTypeLastCell = $0000000B;
var
 Excel, Sheet,Book: OLEVariant;
 CantRow, CantCol, i, j : Integer;
 RangoMatriz: Variant;
 FileName:String;

begin
  FileName:='C:\SISTEMAPLANILLAS\Libro2.xlsx';
  try
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(FileName);
  ShowMessage(FileName);
  Sheet := Excel.Workbooks[ExtractFileName(FileName)].WorkSheets[1];
  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

  CantRow := Excel.ActiveCell.Row;
  CantCol := Excel.ActiveCell.Column;

  RangoMatriz := Excel.Range['A1',Excel.Cells.Item[CantRow,CantCol]].Value;

  for i:=1 to CantRow do
   begin
    for j:=1 to CantCol do
     begin
      Showmessage(RangoMatriz[i,j]);
      //haces todo lo que necesites hacer
     end;
   end;//for
   finally
   Excel.Quit; //Aquí cerramos la hoja de Excel
   end;
end;

Como comente le agregue StrToInt funca normal pero ya se perdería pues por que ya pasa a integer.
Como podre solucionarlo...

[jejo1984]

Las variables que utilizo:

Código Delphi [-]
const
  xlCellTypeLastCell = $0000000B;
var
 Excel, Sheet,Book: OLEVariant;
 CantRow, CantCol, i, j : Integer;
 RangoMatriz: Variant;
 FileName:String;

La primera línea en que me marca lo siguiente:

Código Delphi [-]
Sheet := Excel.Workbooks[ExtractFileName(FileName)].WorkSheets[1];
Error: Incompatible types: got "AnsiString" expected "LongInt"

La segunda igual:

Código Delphi [-]
RangoMatriz := Excel.Range['A1',Excel.Cells.Item[CantRow,CantCol]].Value;
Error: Incompatible types: got "Constant String" expected "LongInt"

Pienso que el error es por:
ExtractFileName(FileName) y 'A1'

[jejo1984]

Hola de nuevo alguien que me pueda decir en que estoy errando no quiero usar otro componente por que la verdad se que se puedo hacer lo que quiero yo

[roman]

Quizá no seas tú quien yerre sino Lázarus o FP. Un código similar al que pones corre sin problemas en Delphi, pero parece que FPC no acepta que los índices sean cadenas de caracteres.

El primer error podrías solventarlo usando un índice numérico en lugar del nombre para obtener una referencia al libro:

Código Delphi [-]
Sheet := Excel.Workbooks[1].WorkSheets[1];

El segundo error no veo como pues no habría un equivalente numérico al índice 'A1'. Pero puedes intentar poniendo:

Código Delphi [-]
var
  Celda: OleVariant;
  ...

begin
  ...
  Celda := 'A1';
  RangoMatriz := Excel.Range[Celda, Excel.Cells.Item[CantRow,CantCol]].Value;

Digo, no sé si funcione, pero nada se pierde con intentar.

// Saludos

[jejo1984]

Roman usted si que es bueno =)
ahora me aparece un error en esta línea:

Código Delphi [-]
var
 Excel,celda,Sheet: OLEVariant;
 CantRow, CantCol, i, j : Integer;
 RangoMatriz,FileName: Variant;
 //FileName:String;

begin
  FileName:='C:\SISTEMAPLANILLAS\Libro2.xlsx';
  try
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(FileName);
  ShowMessage(FileName);
  Sheet := Excel.Workbooks[1].WorkSheets[1];

y marca este error:

Código Delphi [-]
Invalid argumentispatch

[jejo1984]

El error dice:
Invalid argument: Dispatch
y señala a esta línea:
Sheet := Excel.Workbooks[1].WorkSheets[1];