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