Cómo actualizar una hoja de cálculo De Acceso

Microsoft Access y Excel casi van de la mano en el desarrollo de aplicaciones de bases de datos en Access. Los usuarios están encantados de analizar sus datos utilizando Excel y se les puede dar esa funcionalidad al ser capaz de actualizar las hojas de cálculo desde Access. En Access puede utilizar Visual Basic para Aplicaciones para abrir una hoja de cálculo de Excel existente y actualizarla con los datos de forma dinámica. En VBA puede utilizar la biblioteca de objetos de Microsoft Excel para manipular objetos de Excel.

Instrucciones

1 Haga clic en la pestaña "Herramientas de base de datos", haga clic en "Visual Basic", y haga clic en el menú "Insertar". Haga clic en "Módulo" para insertar un nuevo módulo de código VBA.

2 Haga clic en el menú "Herramientas" y haga clic en "Referencias". Marque la casilla junto a "Microsoft Excel <número de versión> biblioteca de objetos" y haga clic en "Aceptar" para agregar la referencia.

3 Comience escribiendo el siguiente código para crear un nuevo procedimiento de substitución:

Private Sub updateSpreadSheet ()

On Error GoTo Err_updateSpreadSheet:

4 Escriba el siguiente código para crear los objetos de libros y hojas:

Dim wkBkObj As Excel.Workbook

Dim xlSheet Como Excel.Worksheet

5 Abrir un libro de Excel existente y utilizar Hoja1 como la hoja de actualizar añadiendo el siguiente código:

Set wkBkObj = Workbooks.Open("C:\mySpreadsheet.xlsx")

Establecer xlSheet = wkBkObj.Worksheets ( "Sheet1")

wkBkObj.Windows (1) .Visible = True

6 Agregue el siguiente código VBA para actualizar A1 de la hoja de cálculo:

With XLSheet

.Range ( "A1"). Seleccionar

.Range ( "A1"). Value = "valor actualizado de acceso"

Terminar con

7 Guarde, cierre el libro de Excel, y poner fin al procedimiento mediante la adición del siguiente código:

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet:

Exit Sub

Err_updateSpreadSheet:

MsgBox Err.Description

Reanudar Exit_updateSpreadSheet:

End Sub

8 Pulse la tecla "F5" para ejecutar el procedimiento y actualizar la hoja de cálculo.