1 Πιέστε το πλήκτρο " Alt " και " F11 " από τη σελίδα Excel για το οποίο θα θέλατε να εισαγάγετε τα δεδομένα . Αυτό ανοίγει την Επεξεργασία Visual Basic ( VBE ) . 2
Κάντε κλικ στο " Εισαγωγή" και στη συνέχεια " ενότητα ". Αυτό ανοίγει ένα κενό παράθυρο για τον κωδικό σας .
Εικόνων 3
Πληκτρολογήστε τον κωδικό για την εξαγωγή της βάσης δεδομένων σας στο κενό παράθυρο . Για παράδειγμα , ο παρακάτω κώδικας αντλεί δεδομένα από μια βάση δεδομένων της Access και τις εισαγωγές της σε ένα υπολογιστικό φύλλο : .
Sub proSQLQuery1 ( ) Dim varConnectionDim varSQL
Range ( "A1" ) CurrentRegion.ClearContents
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 " στο μενού Αρχείο .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα