Connessione ODBC con QueryTables

di il
3 risposte

Connessione ODBC con QueryTables

Buonasera a tutti,
uso QueryTable per recuperare i dati di una tabella di un DB Access per popolare un foglio di excel
Funziona ma quando effettua il refresh apre la maschera di selezione delle origini ODBC e devo sceglierla a mano.
Come si fa a impostare i dati della connessione ODBC tramite codice?

Set sDD = ThisWorkbook.Sheets("DVx")
strConnDD = "ODBC;DSN=MS Access Database;Database=" & C(6, 3) & ";" 
strDB = "SELECT * FROM tVx;"
With sDD.QueryTables.Add(Connection:=strConnDD, Destination:=sDD.Range("A1"))
    .CommandText = strDB
    .Refresh
End With
Grazie
R

3 Risposte

Devi accedere o registrarti per scrivere nel forum
3 risposte