adressen ophalen uit excel 2013 middels een userform

[inribo]

Hallo wie kan mij verder helpen , ik loop steeds vast met de melding dat er geen connection gemaakt kan worden. regel 2 en 3 zijn de boosdoener.

Private Sub UserForm_Initialize()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\Adressen.xls;"
rs.Open "SELECT * FROM [Sheet1$]", conn

Do While Not rs.EOF
    ComboBox1.AddItem rs("Naam")
    rs.MoveNext
Loop

rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
End Sub
Private Sub Invoegen_Click()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\Adressen.xls;"
rs.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & ComboBox1 & "'", conn

Selection.GoTo wdGoToBookmark, , , "Naam"
Selection.TypeText rs("Naam")
Selection.GoTo wdGoToBookmark, , , "Adres"
Selection.TypeText rs("Adres")
Selection.GoTo wdGoToBookmark, , , "Plaats"
Selection.TypeText rs("Postcode") & "  " & rs("Plaats")
Selection.GoTo wdGoToBookmark, , , "Land"
Selection.TypeText rs("Land")
End Sub

bij voorbaat dank voor de moeite

 

[edmoor]

Je wilt kennelijk vanuit Word een Excel document lezen.
Bestaat dit document wel?
ActiveDocument.Path & "\Adressen.xls;"

 

[inribo]

Beste Edmoor,

Beide bestanden staan in dezelfde directory. Het Word document en de excel sheet

mvgr. Rien

 

[pixcel]

Met je code is niets mis, dus als beide bestanden er zijn moet dit werken. Voor verdere hulp zijn bestanden wel handig.

 

[inribo]

adressen ophalen uit excel 2013 middels een userform in word 2013

Frans, EdmoorBekijk bijlage adresl.zip

Ik stuur de bestanden even mee.

mvgr. Rien

 

[edmoor]

Hij doet het bij mij zonder problemen. Dit zijn m'n verwijzingen in het VBA project: