Hur Exportera Access- data med VBA

Det är bra att veta hur man ska exportera data från Microsoft Office Access till andra program för vidare manipulation av data . Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . Visual Basic for Applications ( VBA ) är en Microsoft programmeringsspråk som vanligen används för att automatisera uppgifter i Microsoft Office-program . I några steg du kan skriva VBA-kod för att exportera en tabell från Access till en textfil . Instruktioner
1

Starta Microsoft Office Access 2007 och klicka på " Tom databas " klicka sedan på " Skapa ". Välj "Database Tools " och klicka på " Visual Basic " . Välj " Infoga " -menyn och välj " Modul . "
2

Type " Private Sub exportAccessData " och tryck på " Enter " för att skapa en ny subrutin .
3

Kopiera och klistra in följande kod på din nya subrutin för att skapa en ny tabell , tillsätt fyra poster till ditt bord , och exportera data från en tabell till en textfil .

Dim sQLString As String

sQLString = " CREATE TABLE exportAccessData ( CITY TEXT , State Text ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sQLString ) katalog

strSQL = " INSERT INTO exportAccessData VALUES ( ' FORT WORTH ' , ' TEXAS ' ) "

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO exportAccessData VALUES ( ' ARLINGTON ' , ' TEXAS ' ) "

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO exportAccessData VALUES ( " Los Angeles " , " KA " ) "

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO exportAccessData VALUES ( ' SAN DIEGO " , "KA " ) "

DoCmd.RunSQL ( strSQL ) katalog

sQLString = " SELECT exportAccessData.CITY , exportAccessData.STATE INTO dataToExport "

sQLString = sQLString & " FROM exportAccessData "

sQLString = sQLString & " WHERE ( ( ( exportAccessData.STATE ) = "KA ' ) ) ; "

DoCmd . RunSQL ( sQLString ) katalog

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

Kör din subrutin genom att trycka på
Addera ditt