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

Conocer cómo guardar los 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 hoja de cálculo utilizada para analizar grandes cantidades de datos. Ambas aplicaciones están incluidas en el paquete de Microsoft Office. Visual Basic para aplicaciones, también conocidos como VBA, se utiliza para automatizar los procesos de rutina, tales como la exportación de datos de Access a Excel.

Instrucciones

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

2 Copiar y pegar el siguiente en su nuevo módulo.

Private Sub ExportAccessDataToExcel ()

Dim como secuencia SqlString

SqlString = "CREATE TABLE testMeasurements (TEXTO TestName el texto de estado)"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (SqlString)

SqlString = "INSERT INTO testMeasurements VALUES ( 'Power Media', 'PASS')"

DoCmd.RunSQL (SqlString)

SqlString = "INSERT INTO testMeasurements VALUES ( 'Power Tiempo Vs', 'PPE") "

DoCmd.RunSQL (SqlString)

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

SqlString = SqlString Y "DE testMeasurements"

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

DoCmd.RunSQL (SqlString)

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, _

"exportToExcel", "G:\TestMeasurements.xls", True, "A1:G12"

End Sub

3 Ejecutar la subrutina presionando "F5".