Ako ušetriť Access dotaz v programe Excel VBA

Vedieť , ako ukladať dáta aplikácie Microsoft Office Access do aplikácie Microsoft Office Excel vám pomôže ušetriť čas , kedy budete musieť exportovať dáta do Excelu . Access je relačný databázový systém sa často používa u menších a lokálnych databáz . Excel je tabuľkový bežne používaný na analýzu veľkých objemov dát . Obe tieto aplikácie sú súčasťou balíka Microsoft Office . Visual Basic for Applications , tiež známy ako VBA , je použiť na automatizáciu rutinných procesov , ako je export dát z programu Access do programu Excel . Návod dovolená 1

Otvorte program Microsoft Office Access 2007 , vyberte " Databázové nástroje " , potom kliknite na " Visual Basic " . Zvoľte menu " Vložiť " a kliknite na tlačidlo " modul " .
2

skopírujte a vložte nasledujúci do nového modulu .

Private Sub ExportAccessDataToExcel ( )

Dim SqlString As String

SqlString = " CREATE TABLE testMeasurements ( název_testu Text , Status Text ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )

SqlString = " INSERT INTO testMeasurements VALUES ( " priemerný výkon " , " PASS " ) , "

DoCmd.RunSQL ( SqlString )

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

DoCmd.RunSQL ( SqlString )

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

SqlString = SqlString & " Z testMeasurements "

SqlString = SqlString & " WHERE ( ( ( testMeasurements.TestName ) = " priemerný výkon " ) ) ; "

DoCmd.RunSQL ( SqlString )

DoCmd.TransferSpreadsheet acExport , acSpreadsheetTypeExcel7 , _

" exportToExcel " , " G : \\ TestMeasurements.xls " , je pravda , " A1 : G12 "

End Sub

3

spustiť podprogram stlačením tlačidla " F5 " .

• Predchádzajúca strana: Ako kopírovať cez dve Tabuľky v programe Excel 
• Ďalšia strana: Ako používať MS Excel správy o pokroku