Access - Compartir Datos con EXCEL

 
Vista:

Compartir Datos con EXCEL

Publicado por Jordi (43 intervenciones) el 06/03/2001 13:57:20
Buenas, alguien sabe como se pueden compartir datos con Excel desde Acces, pero no una tabla completa, sino rellenar documentos de forma similar a como se rellenan los de word.

En word uso

objword.activedocument.FormFileds("nombre_campo").result = [Valor]

Me imagino que sera algo parecido, pero no se el que...

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 Alejandro

Compartir Datos con EXCEL

Publicado por Alejandro (4142 intervenciones) el 14/04/2023 19:55:17
¡Hola Jordi!

Sí, es posible compartir datos entre Access y Excel de forma similar a como lo haces con Word. Para hacerlo, necesitarás utilizar el objeto Excel.Application desde Access.

Aquí te dejo un ejemplo de cómo puedes hacerlo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
 
' Inicializa Excel
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
 
' Abre el libro de Excel
Set xlBook = xlApp.Workbooks.Open("C:\Ruta\Al\Libro\De\Excel.xlsx")
 
' Selecciona la hoja de Excel donde quieres rellenar los datos
Set xlSheet = xlBook.Sheets("NombreDeLaHoja")
 
' Rellena los datos en las celdas correspondientes
xlSheet.Range("A1").Value = [ValorParaA1]
xlSheet.Range("B2").Value = [ValorParaB2]
 
' Cierra Excel
xlBook.Close SaveChanges:=True
xlApp.Quit
Set xlApp = Nothing

En este ejemplo, se crea una instancia del objeto Excel.Application, se abre el libro de Excel que quieres utilizar y se selecciona la hoja donde quieres rellenar los datos. Después, simplemente tienes que asignar los valores correspondientes a las celdas que necesitas actualizar.

Es importante que recuerdes cerrar el libro de Excel y salir de la aplicación cuando hayas terminado de utilizarla.

Espero que esto te sea útil. ¡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