Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » De excel a Access un campo

Access - De excel a Access un campo

Volver
Nuevo Tema
<<>>
 
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar