Consejo sobre excel

[CFPA86]

Gracias Newtron por el codigo, pero en el formulario o en el programa que debo de hacer para aplicar este codigo, que se es de mucha ayuda.
Chao

[[newtron]]

A ver.

Si le echas un vistazo al código verás que se abre el archivo excel y lo va recorriendo linea por linea poniendo en la variable "contenido" el valor de la primera celda de la hoja número 1 hasta que se encuentra un valor vacío que se interpreta como el final de la hoja. Lo que debes de hacer es abrir tu tabla e ir añadiendo registros y asignando los campos de la hoja excel a los campos del registro que quieras insertar.

Saludos

[CFPA86]

Que pena con todos ustedes, pero nuevamente les dijo no se como aplicar este codigo, entiendo lo que dice pero no se como o por medio de que componente(s) usarlo en el formulario, en esto de la importacion y exportacion de datos soy nuevo, nunca lo he realizado en mis aplicaciones. Es por esto que les pido nuevamente ayuda.
Gracias

[[newtron]]

A ver.... empezamos desde el principio. Dices que tienes un programa, imagino que en tu programa abrirás la base de datos, insertarás registros, etc, ¿no?. ¿Qué base de datos usas? ¿de escritorio? ¿cliente/servidor? ¿qué componentes?.

[CFPA86]

Correcto Newtron, en mi programa creo, inserto y modifico registros de una b.d. (paradox 7), hasta aca todo va bien, leyendo me he enterado de los componentes ado que hacen lo que requiero insertar datos de excel. ahi esta el problema no se como usarlos.
Gracias.

[[newtron]]

No necesitas usar ado para esto, puedes usar el componente ttable e ir añadiendo registros de forma normal.

Código Delphi [-]
procedure TFormImportaExcel.NTButton1Click(Sender: TObject);
var
   appExcel : Variant;
   N, Hoja : SmallInt;
   contenido : String;
   begin
   appExcel := CreateOleObject('Excel.Application');
   appExcel.WorkBooks.Open('C:\ARCHIVO.XLS');
   Hoja:=1;
   N:=0;
   while true do begin
    if Contenido='' then break     Tabla.append;
    Inc(N);     Contenido := appExcel.WorkBooks[1].Worksheets[Hoja].Cells[N,1]; //codigo
    Tabla.FieldByname('CODIGO').AsString:=Contenido;
    Contenido := appExcel.WorkBooks[1].Worksheets[Hoja].Cells[N,2]; //Nombre
    Tabla.FieldByname('NOMBRE').AsString:=Contenido;
    // y así tantos campos como tengas por cada registro 
    Tabla.post;
   end;
   appExcel.Quit;
   appExcel := Unassigned;
 end;

[CFPA86]

Les quiero agradecer a todos y especialmente a Newtron, fue de gran ayuda tus codigos, logre resolver mi problema, respecto a el codigo (ultimo) use la libreria ComObj (no sabia) ademas las instrucciones dentro del ciclo.
if Contenido = '' then
break;
Las coloque al final del mismo ciclo, lo expreso para referencias futuras de otros usuarios.
Reitero mis agradecimientos a todos.
Chao