Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 30-03-14, 21:46
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλησπέρα!
Δημήτρη, η δυνατότητα επιλογής "Συμπλήρωση των τύπων στις στήλες δίπλα από τα δεδομένα" υπάρχει αλλά ισχύει μόνο για ερωτήματα που είχαν δημιουργηθεί με Excel 2003 ή για ερωτήματα που θα δημιουργηθούν προγραμματιστικά .

Από τη VBA μπορεί να δημιουργηθεί ερώτημα όπου τα δεδομένα του επιστρέφονται σε κανονική περιοχή του φύλλου και όχι σε πίνακα.
Σε αυτή την περίπτωση η δυνατότητα επιλογής είναι ορατή.

Ένας γενικότερος κώδικας VBA που δημιουργεί ένα ερώτημα σε περιοχή φύλλου είναι ο παρακάτω:
Κώδικας:
Sub CreateOldTypeQueryToAccDatabase()
    Dim strArr(1 To 4) As String
    strArr(1) = "ODBC;Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
    strArr(2) = "DBQ=C:\USERS\ADMIN\DESKTOP\MovieDatabase.accdb;"
    strArr(3) = "DefaultDir=C:\;"
    strArr(4) = "Uid=Admin;Pwd=;"
    With ActiveSheet.QueryTables.Add(Connection:=Array(strArr), Destination:=Range("A1"))
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT `Movielist HD`.* FROM `C:\USERS\ADMIN\DESKTOP\MovieDatabase.accdb`", _
                             ".`Movielist HD` `Movielist HD`")
                             
        .Refresh BackgroundQuery:=False
    End With
End Sub
Οι πίνακες που περιέχουν δεδομένα ενός ερωτήματος (όχι όμως WEB - εκεί μπορεί να υπάρξει πρόβλημα) που δημιουργήθηκε από την επιφάνεια εργασίας στις νεότερες εκδόσεις Excel λόγω της κατασκευής τους επιτρέπουν την αυτόματη συμπλήρωση τύπων σε μια στήλη αξιόπιστα.

Δεν αποκλείεται βέβαια η δομή του τύπου να είναι τέτοια που να μην επιτρέπει τη σωστή συμπλήρωση του.

Δεδομένα από αρχείο *.csv μπορούν να εισαχθούν με τη βοήθεια του οδηγού εισαγωγής εξωτερικών δεδομένων από κείμενο. Μόνο εκεί υπάρχει η δυνατότητα επιλογής του χαρακτήρα διαχωρισμού των πεδίων (;).

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 31-03-14 στις 00:50.
Απάντηση με παράθεση