Connessione ODBC con QueryTables

di Anonimizzato23790 il
3 risposte
/
Anonimizzato23790
Utente anonimizzato
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

  • /
    Anonimizzato23790
    Utente anonimizzato
    Ciao Gibra,
    grazie 1000. Alla fine ci ero arrivato e avevo risolto inserendo il DNS nel gestore ODBC.
    
et sDV = ThisWorkbook.Sheets("DVese")
Set DV = sDV.Cells
strDBV = "SELECT * FROM tVese ORDER BY Vese;"
With sDD.QueryTables.Add(Connection:=strConnDD, Destination:=sDV.Range("A1"))
    .CommandText = strDBV
    .Refresh
End With
    Ma esiste la possibilità di verificare la presenza del DNS da codice e, nel caso, crearla?
    Tks
    R
  • /
    Anonimizzato11767
    Utente anonimizzato
    Può darsi.
    Fai una ricerca su Internet.
Devi accedere o registrarti per scrivere nel forum
3 risposte