FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
recorriendo un archivo de excel
Hola amigos del club, ya estoy casi terminando lo propuesto, sólo me falta de que forma se puede saber cuantas filas tiene el archivo que deseo importar, si se cuantas columnas tienes en este caso son tres, paro las filas pueden variar porque son muchos archivos a importar.
Miren como va el codigo: try Excel := CreateOleObject('Excel.Application'); except Excel.Quit; showmessage('No se pudo crear el Objecto Excel.'); raise; end; //***** Asignamos el archivo a abrir *****// if OpenDialogXls.Execute then Archivo:= OpenDialogXls.FileName else exit; Excel.Workbooks.Open(Archivo); ... //para recorrerlo con un bucle en esta parte es que me falta Excel.quit
__________________
ronimaxh Rep. Dominicana |
#2
|
||||
|
||||
¿Has probado a importar de Excel conectándolo mediante ADO? Facilita mucho las cosas.
Otro comentario, con más de 150 mensajes podrías utilizar TAG's, que ya no eres un novato...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Buenas tardes,
Un link interesante relacionado con el manejo de Excel: http://delphi.about.com/od/database/l/aa090903a.htm Saludos!
__________________
Suerte .: Gydba :. |
#4
|
|||
|
|||
Final de archivo Excel
Hola:
Una solucion podria ser de buscar la fila con una columna que sea obligatoria y chequear si esta vacia. Un ejemplo. Código:
repeat with InsertarProductos do begin Parameters.ParamByName('@codplu').Value:= Excel.Cells[j,1].Value; Parameters.ParamByName('@codtrasval').Value:= Excel.Cells[j,2].Value; Parameters.ParamByName('@codfabricante').Value:= Excel.Cells[j,3].Value; Parameters.ParamByName('@descripcionplu').Value:= Excel.Cells[j,4].Value; Parameters.ParamByName('@preciocosto').Value:= Excel.Cells[j,6].Value; Parameters.ParamByName('@precioventa').Value:= Excel.Cells[j,7].Value; Parameters.ParamByName('@um').Value:= 1; Parameters.ParamByName('@categoria').Value:= Excel.Cells[j,13].Value; Prepared:= True; ExecProc; end; inc(j); until Excel.Cells[j,2].Value = ''; Luis Garcia |
#5
|
|||
|
|||
Gracias por responder, he probado con ado, pero el asunto es que son muchos archivo de excel si hay una forma de que se conecte al acrivo que uno le diga y que se pueda redireccionar fuera mejor esa parte no la vi.
__________________
ronimaxh Rep. Dominicana |
#6
|
|||
|
|||
Gracias por la idea Garcia, ya lo resuelto.
__________________
ronimaxh Rep. Dominicana Última edición por ronimaxh fecha: 21-12-2006 a las 20:21:31. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Archivo PDF a Excel | Anabel | Varios | 1 | 20-12-2006 13:18:09 |
desde excel al archivo DB | Max_E. | Conexión con bases de datos | 2 | 07-11-2006 15:43:51 |
Guardar archivo de Excel | LinaC | Varios | 6 | 01-09-2006 14:21:18 |
Triggers - Recorriendo los campos | Sick boy | Firebird e Interbase | 1 | 06-06-2006 09:55:43 |
|