Πώς να σώσει μια πρόσβαση ερωτήματος στο Excel με VBA

Γνωρίζοντας πώς να αποθηκεύσετε τα δεδομένα του Microsoft Office Access σε Microsoft Office Excel μπορεί να σας βοηθήσει να εξοικονομήσετε χρόνο , όταν χρειαστεί να κάνετε εξαγωγή δεδομένων στο Excel . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιείται συχνά για τις μικρότερες και τις τοπικές βάσεις δεδομένων . Excel είναι μια εφαρμογή λογιστικών φύλλων που συνήθως χρησιμοποιείται για την ανάλυση μεγάλου όγκου δεδομένων . Δύο από αυτές τις εφαρμογές συμπεριλαμβάνονται στην σουίτα Microsoft Office. Visual Basic for Applications , επίσης γνωστή ως VBA , χρησιμοποιείται για την αυτοματοποίηση των διαδικασιών ρουτίνας , όπως η εξαγωγή δεδομένων από την Access στο Excel. Οδηγίες
Η

1 Ανοίξτε το Microsoft Office Access 2007 , επιλέξτε " Εργαλεία βάσης δεδομένων " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Επιλέξτε το μενού "Εισαγωγή" και κάντε κλικ στο "ενότητα ". 2

αντιγραφή και επικόλληση του παρακάτω σε νέο module σας .

Private Sub ExportAccessDataToExcel ( )

Dim SqlString Όπως String

SqlString = " CREATE TABLE testMeasurements ( testname κείμενο, το κείμενο Status ) "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SqlString )

SqlString = " INSERT INTO testMeasurements ΑΞΙΕΣ ( « Μέση ισχύς »,« PASS ) "

DoCmd.RunSQL ( SqlString )

SqlString = " INSERT INTO testMeasurements ΑΞΙΕΣ ( «Power Vs Time ' , ' FAIL ') "

DoCmd.RunSQL ( SqlString )

SqlString = " SELECT testMeasurements.TestName , testMeasurements.Status ΣΕ exportToExcel "

SqlString = SqlString & " ΑΠΟ testMeasurements "

SqlString = SqlString & " WHERE ( ( ( testMeasurements.TestName ) = " Μέση ισχύς » ) ) ? "

DoCmd.RunSQL ( SqlString )

DoCmd.TransferSpreadsheet acExport , acSpreadsheetTypeExcel7 , _

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

End Sub
Η
3

Εκτελέστε την υπορουτίνα πατώντας το πλήκτρο " F5 ".
Η
εικόνων