Cómo abrir una hoja de cálculo de Excel del acceso VBA Insertar Columna

Conocer cómo abrir una hoja de cálculo de Microsoft Excel desde Microsoft Access y la inserción de una nueva columna a la hoja de cálculo con Visual Basic para Aplicaciones ( VBA ), puede hacer 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 potentes herramientas para analizar los datos . VBA es un lenguaje de programación popular utilizado para automatizar las tareas de lo contrario se hace manualmente. En pocos pasos se puede escribir código VBA en Access para abrir un libro de Excel e insertar una nueva columna a Sheet1 . Instrucciones
1

Inicio 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 " y luego seleccionar "Visual Basic ". Haga clic en el campo " 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 , inserte una nueva columna a la derecha de " Columna C " por " Esta columna se inserta desde Access . "

Private Sub addExcelColumn ( )

xlApp As Excel.Application

XLBook As Excel.Workbook

xlSheet As Excel.Worksheet

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

Set xlApp = XLBook.Parent

Set xlSheet = XLBook.Worksheets ( " Sheet1 ")
XLBook.Windows

( 1 ) . Visible = True

xlApp.Visible = True

xlSheet

Columnas. . ( "C : C " ) Seleccione

Selection.Insert Shift : = xlToRight
< p> . Range (" C1" ) . Seleccione

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

. Range (" D3" ) . Seleccione

extremo con

End Sub
3

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

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

Ejecute la subrutina pulsando

"F5 ".