Excel ODBC Treiber Bindung neu setzen

[Steel]

Moins!

Ich weiss nicht, ob ich dich richtig verstanden habe. Ich hab hier ein Script verbrochen, dass den User beliebige Excelsheets als Datenquelle einer Tabelle in Access auswaehlen laesst. Das muesstest Du eigentlich entsprechend anpassen koennen, sodass du eine bestimmte DB auswaehlst.

Public Function setTable(tblName As String)
    Dim dbPath As String
    dbPath = Application.CurrentProject.path & "" & tblName
    'Dim db As DAO.DATABASE
    'Dim td As DAO.TableDef
    Dim db As DATABASE
    Dim td As TableDef
    Set db = CurrentDb
    Set td = db.TableDefs("TABELLENNAME")
    td.Connect = "Excel 5.0;HDR=YES;IMEX=2;DATABASE=" & dbPath
    td.RefreshLink
    Set td = Nothing
End Function

Ansonsten  lasse ich meine User nie ihre eigenen Datenverbindungen nutzen, bzw. sie haben gar keinen Zugriff auf eine Datenbank. Wo kaemen wir denn dahin? Deshalb mach ich das alles per VB und benutze ADO. Die User bekommen ein MDE File damit sie nicht an den Code und die Zugangsdaten kommen.