Visual Basic - importar datos celdas excel a access

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

importar datos celdas excel a access

Publicado por trigines (2 intervenciones) el 29/06/2015 10:17:07
Buenas, estoy muy bloqueado porque no sé como puedo importar los datos de una hoja de excel a una tabla de access. El problema es que los datos en excel no están a modo de tabla, sino desordenados en diferentes celdas de una hoja de excel y se quieren rellenar muchas hojas como ésta, todas con la misma "plantilla". A mí me gustaría poder importar esos datos de las celdas de excel a una tabla de access de manera que se rellene un nuevo registro de la tabla por cada hoja de excel rellenada.

Agradecería mucho vuestra ayuda. Si algo no se entiende, diganmelo por favor.

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

importar datos celdas excel a access

Publicado por Andres Leonardo (1798 intervenciones) el 29/06/2015 15:53:35
Pues si todas tienen este formato .. deberias progrmar que active la hoja.. y que vaya a la hoja,... lo que no se es que si tienes muchas hojas .. o son muchas plantillas en la misma hoja,.... quizas si compartieras los datos ... seria mas facil
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

importar datos celdas excel a access

Publicado por ignacio (2 intervenciones) el 30/06/2015 07:37:12
(Buenas, soy trigines)

La verdad es que tengo un nivel muy básico de programación.

Son 5 tipos de hojas como la adjuntada y se van a ir rellenando muchas de cada una de ellas y guardándolas cada una de ellas como un documento independiente. Lo que a mí me gustaría sería que cada vez que rellenan una de ellas, esos datos introducidos los pueda importar a una tabla en access donde cada campo tendrá el nombre del título de las celdas que se ven en el excel adjunto, y así, cada hoja rellenada será un registro de la tabla.

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

importar datos celdas excel a access

Publicado por jmmiralles (1 intervención) el 19/07/2015 01:14:14
Buenas noches,
aqui tienes un código que abre un libro llamado Clientes.xlsx (excel 2010) e importa 4 celdas distintas de la hoja 4 a cuatro texbox de access.

Donde pone Hoja4 tu puedes poner la que corresponda a la tuya, en las celdas lo haces iguamente.

Esto lo puedes poner en el evento "Click" de un Buton o "On Load" de un formulario etc.

'========================================================

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim xlsxApp As Object
    Dim xlsxBook As Object
 
 
    Set xlsxApp = CreateObject("Excel.Application") 'Crea una instancia de la aplicación Excel
    Set xlsxBook = xlsApp.WorkBooks.Open(CurrentProject.Path & "\Clientes.xlsx") 'Abre el libro de Excel
 
    Me.txtCeldaA1.Value = xlsxBook.Worksheets("Hoja4").Range("A1") 'Coloca en txtCeldaA1 el valor de la celda A1 de la Hoja "Hoja"
    Me.txtCeldaC17.Value = xlsxBook.Worksheets("Hoja4").Range("C17") 'Coloca en txtCeldaC17 el valor de la celda C17 de la Hoja "Hoja"
    Me.txtCeldaI8.Value = xlsxBook.Worksheets("Hoja4").Range("I8") 'Coloca en txtCeldaI8 el valor de la celda I8 de la Hoja "Hoja"
    Me.txtCeldaK26.Value = xlsxBook.Worksheets("Hoja4").Range("K26") 'Coloca en txtCeldaK26 el valor de la celda K26 de la Hoja "Hoja"
 
    xlsxBook.Close 'Cierra el libro
 
    Set xlsxBook = Nothing 'Destruye el objeto
 
    xlsxApp.Quit 'Cierra el libro de Excel abierto
 
    Set xlsxApp = Nothing 'Liberamos recursos
'==============================================================


Suerte

Saludos desde un lugar de la Mancha.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar