[Tasos]

Καλησπέρα!

Δημήτρη δοκίμασε τον παρακάτω κώδικα (δεν είμαι σίγουρος αν λειτουργεί σε Excel 2007):

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(strArr), 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

Καλή συνέχεια!


Τάσος