Come salvare una query di Access in Excel con VBA

September 29

Come salvare una query di Access in Excel con VBA


Sapendo come salvare i dati di Microsoft Office Access a Microsoft Office Excel può aiutare a risparmiare tempo quando è necessario esportare i dati in Excel. Access è un sistema di gestione di database relazionali spesso utilizzato per i database più piccoli e locali. Excel è un foglio di calcolo comunemente usato per analizzare grandi quantità di dati. Entrambe queste applicazioni sono incluse nella suite Microsoft Office. Visual Basic for Applications, noto anche come VBA, viene utilizzato per automatizzare i processi di routine come l'esportazione dei dati da Access in Excel.

istruzione

1 Open Access di Microsoft Office 2007, selezionare "Strumenti database" quindi fare clic su "Visual Basic". Selezionare il menu "Inserisci" e fare clic su "Modulo".

2 Copia e incolla il seguente nel nuovo modulo.

Private Sub ExportAccessDataToExcel ()

Dim SqlString As String

SqlString = "CREATE TABLE testMeasurements (TestName testo, testo di stato)"

DoCmd.SetWarnings False

DoCmd.RunSQL (SqlString)

SqlString = "INSERT INTO testMeasurements VALORI ( 'Potenza media', 'PASS')"

DoCmd.RunSQL (SqlString)

SqlString = "INSERT INTO testMeasurements VALORI ( 'Power Vs Time', 'fallire')"

DoCmd.RunSQL (SqlString)

SqlString = "SELECT testMeasurements.TestName, testMeasurements.Status IN exportToExcel"

SqlString = SqlString & "DA testMeasurements"

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

DoCmd.RunSQL (SqlString)

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, _

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

End Sub

3 Eseguire la subroutine premendo il tasto "F5".