1 Ανοίξτε το Microsoft Office Access 2007 , επιλέξτε " Εργαλεία βάσης δεδομένων " και στη συνέχεια κάντε κλικ στο " Visual Basic ". " . Ενότητα " Επιλέξτε το "Εισαγωγή" μενού και κάντε κλικ στο 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα :
Private Sub ExportAccessDataToExcel ( )
Τύπου " . Enter "
εικόνων 3
Πληκτρολογήστε τα ακόλουθα για να δημιουργήσετε μια νέα μεταβλητή :
Dim strSQL Όπως String
Η 4
Πληκτρολογήστε το παρακάτω για να δημιουργήσετε ένα νέο πίνακα στη βάση δεδομένων σας :
strSQL = " CREATE TABLE tableToExport ( FIRST_NAME ΚΕΙΜΕΝΟ , LAST_NAME ΚΕΙΜΕΝΟ ) "
DoCmd.SetWarnings Λάθος
DoCmd.RunSQL ( strSQL )
5
Πληκτρολογήστε το παρακάτω, για να προσθέσει δύο νέες γραμμές δεδομένων στο τραπέζι σας :
strSQL = " INSERT INTO tableToExport ΑΞΙΕΣ ( « JAIME » , « GONZALEZ ') "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO tableToExport ΑΞΙΕΣ ( « Τζο » , « SMITH ') "
DoCmd.RunSQL ( strSQL )
Η 6
Πληκτρολογήστε το παρακάτω, για να εξαγάγετε νέο πίνακα στο Microsoft Excel :
DoCmd.TransferSpreadsheet acExport , acSpreadsheetTypeExcel7 , _
" tableToExport " , " C : \\ tableToExport.xls " , True , " A1 : G12 " . .
Επεξεργαστείτε τη διαδρομή για να εξαγάγει σε μια διαφορετική θέση
Η
7 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε υπορουτίνα σας
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα