Καλησπέρα σε όλη την παρέα του φόρουμ.
Κάποια στιγμή στο παρελθόν είχα θέσει το ερώτημα σχετικά με εξωτερικά δεδομένα και τη δυνατότητα επιλογής "Συμπλήρωση των τύπων στις στήλες δίπλα από τα δεδομένα".
βλ.
http://www.ms-office.gr/forum/excel-...se-2007-a.html
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.accd b;"
strArr(3) = "DefaultDir=C:\;"
strArr(4) = "Uid=Admin;Pwd=;"
With ActiveSheet.QueryTables.Add(Connection:=Array(strA rr), 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
Sub CreateOldTypeQueryToExcel()
Dim strArr(1 To 4) As String
strArr(1) = "ODBC;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"
strArr(2) = "DBQ=C:\USERS\ADMIN\DESKTOP\MovieDatabase.xlsx ;"
strArr(3) = "DefaultDir=C:\;"
strArr(4) = "Uid=Admin;Pwd=;"
With ActiveSheet.QueryTables.Add(Connection:=Array(strA rr), Destination:=Range("A1"))
.CommandType = xlCmdSql
.CommandText = _
Array("SELECT `'Movielist HD$'`.* FROM `C:\USERS\ADMIN\DESKTOP\MovieDatabase.xlsx`", _
".`'Movielist HD$'` `'Movielist HD$'`")
.Refresh BackgroundQuery:=False
End With
End Sub
Οι παραπάνω απαντήσεις από τον Τάσο ήταν πολύ χρήσιμες και λειτούργουν άψογα.
Τελευταία προσπαθώ να προσθέσω και κριτήρια κατά την εισαγωγή των δεδομένων δοκιμάζοντας με το where κλπ. και δεν μπορώ να βρω το σωστό τρόπο σύνταξης του.
Μπορεί κάποιος να βοηθήσει;
Ευχαριστώ
Φιλικά
Δημήτρης