| Pregunta: | 7759 - EXPORTAR DATOS DE ACCESS A EXCEL MEDIANTE CODIGO DE VISUAL 6 |
| Autor: | FELIPE DEL CAMPO |
| NECESITO CREAR UNA PLANILLA DE EXCEL CON LOS DATOS QUE TENGO EN UNA BD ACCESS POR MEDIO DEL CODIGO DE VISUAL BASIC Y NO TENGO IDEA DE COMO HACERLO SI ALGUIEN ME PUEDE AYUDAR DE ANTEMANO UCHAS GRACIAS. | |
| Respuesta: | Ximena Tamame |
| Debes poner en tu trabajo una referencia a Excel, luego por codigo debes declarar los siguiente:
Dim <nombre1> As Excel.Application (aplicacion de excel) Dim <nombre2> As Excel.Workbook (libro de excel) Dim <nombre3> As Excel.Worksheet (hoja de excel) luego setear las variables declaradas Set <nombre1> = Excel.Application Set <nombre2> = xlapp.Workbooks.Add Set <nombre3> = prueba.Worksheets.Add bueno, por supuesto debes abrir la tabla, posicionarte en el primer registro, y en un bucle escribir while not tabla.eof hoja1.celda(fila, columna1) = tabla!campo1 hoja1.celda(fila,columna2) = tabla1campo2 ... etc fila = fila + 1 tabla.moveNext wend (Guardar el archivo) hoja1.SaveAs <nombre archivo> (salir de excel) xlapp.Quit (liberar las referencias a los objetos utilizados) Set xlapp = Nothing Set prueba = Nothing Set hoja1 = Nothing Este ejemplo mueve campo a campo, registro a registro, es decir en excel va llenando celda a celda, ya que yo lo hice despues de realizar una consulta sql y no de una tabla directamente. No se si existe una forma mas sencilla de pasar directamente de la tabla de access a excel. | |