Access - De excel a Access un campo

De excel a Access un campo

Publicado por Skudero (1 intervención) el 23/08/2005 10:07:19

Ola, me gustaria aver si alguien me puede ayudar. Tengo k copiar un numero que esta en un campo determinado de un archivo excel.

Se abrir el archivo Excel, se cerrarlo pero no como hacer para seleccionar la celda A1(por ejemplo) y copiarla a access en una variable.

Aver si alguien me puede exar 1 mano y pasarme algu codigo k me pueda ayudar.

Gracias!! ;)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Copiar valor de celda de Excel a variable en Access mediante VBA

Publicado por Alejandro (4142 intervenciones) el 07/06/2023 00:40:14

Hola.

Para copiar el valor de una celda específica en un archivo de Excel y guardarlo en una variable en Access, puedes utilizar el siguiente código en VBA:

Dim excelApp As Object

Dim excelWorkbook As Object

Dim excelWorksheet As Object

Dim valorCelda As Variant

' Crea una instancia de la aplicación de Excel

Set excelApp = CreateObject("Excel.Application")

' Abre el archivo de Excel

Set excelWorkbook = excelApp.Workbooks.Open("Ruta del archivo")

' Selecciona la hoja de Excel deseada (por nombre o índice)

Set excelWorksheet = excelWorkbook.Sheets("Nombre de la hoja")

' Obtiene el valor de la celda A1

valorCelda = excelWorksheet.Range("A1").Value

' Cierra el archivo de Excel

excelWorkbook.Close

' Libera los objetos de Excel

Set excelWorksheet = Nothing

Set excelWorkbook = Nothing

Set excelApp = Nothing

' Ahora puedes usar el valor de la celda en Access

MsgBox "El valor de la celda A1 es: " & valorCelda

Recuerda reemplazar "Ruta del archivo" con la ruta completa del archivo de Excel que deseas abrir. Además, asegúrate de tener la referencia a la biblioteca de objetos de Excel habilitada en Access (haz clic en "Herramientas" -> "Referencias" y selecciona "Microsoft Excel XX.X Object Library").

Espero que esto te ayude. ¡Buena suerte!

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar