Nog een fout, bij openen Word met userform

[felix85]

Deze fout krijg ik als ik het userform automatisch open als ik ook word open..

PS het excelbestand staat altijd open...

Fout -2147217865 (80040e37) tijdens uitvoering:

[Microsoft][ODBC Excel-stuurprogramma] De Microsoft Jet-database-engine kan het object Sheet1$ niet vinden. Zorg ervoor dat het object bestaat en dat u de naam en het pad correct heeft gespeld.
.

Deze code gebruikik in Word:

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 & "\Gegevens Gulpen-Wittem.xls;" 
rs.Open "SELECT * FROM [Sheet1$]", conn 

Do While Not rs.EOF 
    ComboBox1.AddItem rs("Zoeken") 
    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 & "\Gegevens Gulpen-Wittem.xls;" 
rs.Open "SELECT * FROM [Sheet1$] WHERE Zoeken = '" & 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") 
End Sub

 

[Superzeeuw]

felix85,

Ik heb een koppeling opgezet en bij mij werkt het.
kan het zijn dat Sheet1 in jouw excel document niet voorkomt?

Ik heb van Sheet1$ ==> Blad1$ gemaakt.

P.s.: Excel bestand hoeft niet open te staan.

Grtz