1

Estoy haciendo un programa que haga importaciones Excel a la base de datos, este es mi código:

var
importdir, ipo: string;
begin
if OpenDialog1.Execute then
begin
importdir := ExtractFileDir( OpenDialog1.FileName );
ipo := OpenDialog1.FileName;
end;
ADOConnection1.Execute( 'insert into archivo select * from [Excel 8.0;  database='+ipo+'].hoja1' );
end;

cuando selecciono el archivo me aparece este error

el jet de Microsoft no pudo encontrar el objeto 'hoja1' Asegúrese de que el objeto exista y la ruta sea correcta.

4
  • En queries a Excel, los nombres de hoja van seguidos de un símbolo de dólar, por lo que probablemente te funcione con solo cambiar hoja1 por hoja1$
    – jachguate
    el 12 sep. 2018 a las 13:45
  • hola jachguate con el signo dolar funciono pero tengo un pequeño problema,cuando hago la inserción por primera vez la grilla no me muestra los registros cargados pero cuando ejecuto el programa por segunda vez muestra los registro que cargue previamente
    – pablo
    el 12 sep. 2018 a las 21:13
  • problema resuelto. gracias a por sus aportes
    – pablo
    el 12 sep. 2018 a las 21:59
  • Me alegra @pablo, lo publiqué como respuesta para que alguien más que llegue acá por la búsqueda pueda ver claramente cual fue la solución. Un saludo.
    – jachguate
    el 13 sep. 2018 a las 13:45

2 respuestas 2

0

Dada que las conexiones con ADO deben ser diferentes para conectar a Excel y a MSAccess (dodo que no lo dices asumo que lo estás haciendo con ADO), creo que la solución pasa por insertar los registros uno a uno. Crea 2 conexiones una para Excel y otra para Access.

Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=.\DatosExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";Persist Security Info=True

.

Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=.DatosAccess.mdb;Persist Security Info=True

A partir de ahí se trata de ir leyendo registros utilizando un ADOQuery/ADOTable desde una conexión e insertándolos utilizando la otra.

1
  • 1
    hola German, ya pude solucionar el problema con la conexion
    – pablo
    el 12 sep. 2018 a las 21:17
0

Por regla general, cuando haces queries utilizando el JetEngine contra Excel, los nombres de hoja van seguidos de un símbolo de dólar, por lo que probablemente te funcione con solo cambiar hoja1 por hoja1$, algo así:

begin
  if OpenDialog1.Execute then
    ADOConnection1.Execute( 'insert into archivo select * from [Excel 8.0;  database=' + OpenDialog1.FileName + '].hoja1$');
end;

Un saludo.

2
  • 1
    si, con este método me sirvió ya que tenia el if fuera del begin, cuando cancelaba la importacion del Excel me generaba un bug pero ahora ya no
    – pablo
    el 19 sep. 2018 a las 11:07
  • enhorabuena @pablo. En StackOverflow, puedes marcar una respuesta como aceptada. Esto ayudará a futuros visitantes de este hilo a identificar la respuesta que para tu caso fue la correcta. Puedes aprovechar esa característica también cuando estás investigando, pues identificas rápidamente, de entre todas las respuestas, cuál fue la que le sirvió al OP.
    – jachguate
    el 19 sep. 2018 a las 15:11

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.