Come esportare accesso ai dati con VBA

November 11

E 'utile sapere come esportare dati da Microsoft Office Access ad altre applicazioni per l'ulteriore manipolazione dei dati. Access è un sistema di gestione di database relazionali incluso nella suite Microsoft Office. Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione di Microsoft comunemente usato per l'automazione delle operazioni nelle applicazioni Microsoft Office. In pochi passi è possibile scrivere codice VBA per esportare una tabella da accesso a un file di testo.

istruzione

1 Avviare Microsoft Office Access 2007 e fare clic su "Database vuoto" poi cliccare su "Create". Selezionare "Strumenti database" e fare clic su "Visual Basic". Selezionare il menu "Inserisci" e selezionare "Modulo".

2 Tipo "Private Sub exportAccessData" e premere "Invio" per creare una nuova subroutine.

3 Copiare e incollare il seguente codice nella nuova subroutine per creare una nuova tabella, aggiungere quattro record al vostro tavolo, ed esportare dati da una tabella in un file di testo.

Dim SqlString As String

SqlString = "CREATE TABLE exportAccessData (CITY TESTO, STATO TESTO)"

DoCmd.SetWarnings False

DoCmd.RunSQL (SqlString)

strSQL = "INSERT INTO VALORI exportAccessData ( 'FORT WORTH', 'Texas')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI exportAccessData ( 'ARLINGTON', 'Texas')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI exportAccessData ( 'LOS ANGELES', 'California')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI exportAccessData ( 'SAN DIEGO', 'California')"

DoCmd.RunSQL (strSQL)

SqlString = "SELECT exportAccessData.CITY, exportAccessData.STATE IN dataToExport"

SqlString = SqlString & "DA exportAccessData"

SqlString = SqlString & "WHERE (((exportAccessData.STATE) = 'California'));"

DoCmd.RunSQL (SqlString)

DoCmd.OutputTo acOutputTable, "dataToExport", acFormatTXT, "c: \ dataToExport.txt"

4 Eseguire la subroutine premendo il tasto "F5".