Cómo guardar una consulta de Access en Excel con VBA

Conocer cómo guardar datos de Microsoft Office Access a Microsoft Office Excel puede ayudarle a ahorrar tiempo cuando se necesita para exportar los datos a Excel. El acceso es un sistema de gestión de base de datos relacional de uso frecuente para las bases de datos más pequeñas y locales . Excel es una aplicación de hoja de cálculo utilizada para analizar grandes cantidades de datos. Ambas aplicaciones están incluidas en la suite de Microsoft Office. Visual Basic para aplicaciones , también conocido como VBA , se utiliza para automatizar los procesos de rutina , tales como la exportación de datos de Access a Excel. Instrucciones
1

Abra Microsoft Office Access 2007 , seleccione " Herramientas de base de datos " y luego haga clic en " Visual Basic ". Seleccione el menú "Insertar" y haga clic en " módulos".
2

Copia y pega lo siguiente en el nuevo módulo.

Private Sub ExportAccessDataToExcel ()

Dim SqlString As String

SqlString = " CREATE TABLE testMeasurements ( TestName TEXTO , TEXTO Estado)"

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )
< p > SqlString = "INSERT INTO testMeasurements VALUES ( 'Power media ', ' PASS ')"

DoCmd.RunSQL ( SqlString )

SqlString = "INSERT INTO testMeasurements VALUES ( 'Power Vs Time' , " FALLA " ) "

DoCmd.RunSQL ( SqlString )

SqlString =" testMeasurements.TestName SELECT, testMeasurements.Status EN ExportToExcel "

SqlString = SqlString &" DE testMeasurements "

SqlString = SqlString &" WHERE ( ( ( testMeasurements.TestName ) = 'Power media ')) ; "

DoCmd.RunSQL ( SqlString )

DoCmd.TransferSpreadsheet acExport , acSpreadsheetTypeExcel7 , _

" ExportToExcel ", "G : \\ TestMeasurements.xls " Es cierto ", A1: G12 "

End Sub

3

Ejecute la subrutina con la tecla " F5 ".