1 Πιέστε το πλήκτρο " Alt " και " F11 " από τη σελίδα Excel για το οποίο θα θέλατε να εισαγάγετε τα δεδομένα . Αυτό ανοίγει την Επεξεργασία Visual Basic ( VBE ) . 2 
 
 Κάντε κλικ στο " Εισαγωγή" και στη συνέχεια " ενότητα ". Αυτό ανοίγει ένα κενό παράθυρο για τον κωδικό σας . 
 Εικόνων 3 
 Πληκτρολογήστε τον κωδικό για την εξαγωγή της βάσης δεδομένων σας στο κενό παράθυρο . Για παράδειγμα , ο παρακάτω κώδικας αντλεί δεδομένα από μια βάση δεδομένων της Access και τις εισαγωγές της σε ένα υπολογιστικό φύλλο : . 
 
 Sub proSQLQuery1 ( ) Dim varConnectionDim varSQL 
 
Range ( "A1" ) CurrentRegion.ClearContents < br >
 varConnection = " ODBC ? Database DSN = MS Access ? DBQ = C : \\ test.mdb ? Driver = { Driver κάνει Microsoft Access ( * . mdb ) } " 
 
 varSQL = "SELECT tbDataSumproduct . μήνα , tbDataSumproduct.Product , tbDataSumproduct.City ΑΠΟ tbDataSumproduct " 
 
 Με ActiveSheet.QueryTables.Add ( Connection : = varConnection , Προορισμός : = ActiveSheet.Range ( " A1 " ) ) . CommandText = varSQL.Name = " ερώτημα - 39008 . » . Ανανέωση BackgroundQuery : = FalseEnd με 
 
 End Sub 
 Η 
 4 Πατήστε το πλήκτρο" F5 "για να εκτελέσετε τον κώδικα 
 5 
 Κάντε κλικ στο "Αρχείο " και στη συνέχεια κάντε κλικ στο κουμπί " Κλείσιμο και επιστροφή στο Microsoft Excel " στο μενού Αρχείο . 
 Η 
 εικόνων
           
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα