Cómo abrir una hoja de cálculo Excel de la columna Acceso VBA Insertar

Saber cómo abrir una hoja de cálculo de Microsoft Excel de Microsoft Access e insertar una nueva columna a la hoja de cálculo utilizando Visual Basic para Aplicaciones (VBA) puede hacer que su solicitud de acceso más dinámico. El acceso es un sistema de gestión de base de datos relacional de uso común para las bases de datos más pequeñas. Excel es una aplicación de hoja de cálculo que ofrece poderosas herramientas de análisis de datos. VBA es un lenguaje de programación informática popular usado para automatizar tareas que se realizan de forma manual lo contrario. En unos pocos pasos se puede escribir código VBA en Access para abrir un libro de Excel e insertar una nueva columna a la Hoja1.

Instrucciones

1 Iniciar Microsoft Office Access 2007 y seleccione "Base de datos en blanco" y luego haga clic en "Crear". Haga clic en "Herramientas de base de datos" luego selecciona "Visual Basic". Haga clic en el "insertar" y seleccione "Módulo".

2 Copia y pega el siguiente código en el módulo. Este código se abrirá una hoja de cálculo, insertar una nueva columna a la derecha de "Columna C" e insertar "Esta columna se inserta desde Access".

Private Sub addExcelColumn ()

Dim XLApp As Excel.Application

Dim XLBook Como Excel.Workbook

Dim xlSheet Como Excel.Worksheet

Establecer XLBook = Workbooks.Add (Plantilla: = "C: \ Book1.xls")

Establecer xlApp = XLBook.Parent

Establecer xlSheet = XLBook.Worksheets ( "Sheet1")

XLBook.Windows (1) .Visible = True

XlApp.Visible = True

con xlSheet

.Columns ( "C: C") SELECT.

Selection.Insert Shift: = xlToRight

.Range ( "C1"). Seleccionar

Selection.Value = "Esta columna se inserta desde Access"

.Range ( "D3"). Seleccionar

Terminar con

End Sub

3 Editar la siguiente línea de código y escriba la ruta de acceso a la hoja de cálculo:

Establecer XLBook = Workbooks.Add (Plantilla: = "C: \ Book1.xls")

Ejecutar la subrutina presionando "F5".