VBA - Importar datos de hoja Excel

[uen]

Buenas a todos!

Una vez más, recurro a vuestra sabiduría para solucionar un problema que tengo con un formulario en Access.

La pregunta es facil aunque compleja.

¿Es posible, insertar en una etiqueta/textbox de Access, los datos de una celda de un archivo de Excel?Es decir, como si usasemos un archivo de excel como base de datos, sería posible a través de código en Visual Basic, leer una hoja de un libro de excel, y los datos de una determinada celda, plasmarlos en un textbox o etiqueta en un formulario de Access?

Necesito esto, porque tengo un archivo de Excel que se actualiza casi diariamente con usuarios y contraseñas. Entonces quería que al abrir mi formulario de una base de datos de acces, recogiera los datos que hay en ese momento en el Excel.

Muchas gracias a todos por vuestras respuestas!!

[ebu]

Hola uen!
hace poco q me he adentrado en el mundo de vba, pero lo poco q se lo comparto contigo.
Has probado con:

ActiveCell.Offset(0, 1).Select
TextBox1 = ActiveCell

espero q te sirva de algo!

[uen]

Muchas gracias por la contestacion ebu,

Aunque imagino que antes habría que abrir con algún comando la base de datos y elegir el rango de las celgas o algo así no?

Pregunto, pero no tengo ni idea jaja

Gracias de nuevo, un saludo

[David]

Efectivamente, no sé si desde Access hay alguna forma más simple, pero se podría hacer algo como esto:

Código vb:

Dim xlsApp As Object
Dim xlsBook As Object
Set xlsApp = CreateObject("Excel.Application") 'Crea una instancia de la aplicación Excel
Set xlsBook = xlsApp.WorkBooks.Open("C:\archivo.xls") 'Abre el libro especificado
TextBox1 = xlsBook.Worksheets("Hoja").Range("A1") 'Coloca en TextBox1 el valor de la celda A1 de la Hoja "Hoja"
xlsBook.Close 'Cierra el libro
Set xlsBook = Nothing 'Destruye el objeto
xlsApp.Quit 'Cierra la aplicación
Set xlsApp = Nothing 'Destruye el objeto
 

[ebu]

gracias x la aclaracion david!
todos los dias se aprende algo nuevo!!

[uen]

Mil gracias David el Grande!! me ha servido a la perfección, como tu nombre indica, eres Grande!! jaja. En serio, muchisimas gracias.

Aprovechando... si esto quiero ejecutarlo nada más abrir el formulario, bastaría con ponerlo en el "form load" y listo??

Saludos y muchas gracias de nuevo a todos!

[David]

Sí, basta con ponerlo en el evento Load de la ventana.

[ebu]

Iniciado por David el Grande

Efectivamente, no sé si desde Access hay alguna forma más simple, pero se podría hacer algo como esto:

Código vb:

Dim xlsApp As Object
Dim xlsBook As Object
Set xlsApp = CreateObject("Excel.Application") 'Crea una instancia de la aplicación Excel
Set xlsBook = xlsApp.WorkBooks.Open("C:\archivo.xls") 'Abre el libro especificado
TextBox1 = xlsBook.Worksheets("Hoja").Range("A1") 'Coloca en TextBox1 el valor de la celda A1 de la Hoja "Hoja"
xlsBook.Close 'Cierra el libro
Set xlsBook = Nothing 'Destruye el objeto
xlsApp.Quit 'Cierra la aplicación
Set xlsApp = Nothing 'Destruye el objeto
 

hola buenas, recuperando este tema, recurro a ustedes de nuevo:

quiero coger un nombre desde una hoja excel. el problema es q programo en el visual basic editor de la misma hoja excel. he probado con este codigo pero cada vez q lo ejecuto se me abre 'internamente' (solo lo puedo ver en el administrador de tareas/procesos) la misma hoja excel.
eso sucede x q estoy creando la aplicacion de excel y abriendo un documento xq ya esta activo. mi duda es, como llamo al excel para q me coga el nombre??

gracias x adelantado!

[David]

¿Eso sería en VBA de Excel?. Porque si es así no necesitas realizar todo ese proceso, ya tienes abierto el libro, así que puedes manejarlo sin problema con el objeto ThisWorkBook.

[ebu]

Iniciado por David el Grande

¿Eso sería en VBA de Excel?. Porque si es así no necesitas realizar todo ese proceso, ya tienes abierto el libro, así que puedes manejarlo sin problema con el objeto ThisWorkBook.

si, asi es.
no he caido hasta q he grabado una macro y he visto q se referia al excel sin abrir la aplicacion antes.
problema solucionado con un simple:
dim a as string
a=Range("A1").FormulaR1C1

gracias!