CreateOldTypeQuery
 

Καλησπέρα σε όλη την παρέα του φόρουμ.

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

βλ. 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 κλπ. και δεν μπορώ να βρω το σωστό τρόπο σύνταξης του.

Μπορεί κάποιος να βοηθήσει;

Ευχαριστώ

Φιλικά
Δημήτρης