Goedemorgen,
Iemand een voorbeeld van een word document dat gegevens haalt uit excel? waardoor meerdere gegevens in één keer worden ingevuld?
ik doe het zelf met onderstaande formule, maar het lukt me niet om de gegevens achter de cell van excel in te vullen in word!!
Option Explicit
Private Sub Document_open()
RowsourceISAM_Besturingselementen
End Sub
Public Function RowsourceISAM_Besturingselementen()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strPad As String
Const EXCEL_BESTAND As String = "Testword.xls"
strPad = ActiveDocument.Path & "\"
' Verbinding maken met het Excel-bestand via de ISAM-driver
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPad & EXCEL_BESTAND & ";" & _
"Extended Properties=Excel 8.0;"
' Het bereik 'geslacht' uit het excel-bestand in een recordset opnemen
rst.Open "Naam", cnn, adOpenForwardOnly, adLockReadOnly, adCmdTable
Do Until rst.EOF
ComboBox1.AddItem rst.Fields(0)
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function
Iemand een voorbeeld van een word document dat gegevens haalt uit excel? waardoor meerdere gegevens in één keer worden ingevuld?
ik doe het zelf met onderstaande formule, maar het lukt me niet om de gegevens achter de cell van excel in te vullen in word!!
Option Explicit
Private Sub Document_open()
RowsourceISAM_Besturingselementen
End Sub
Public Function RowsourceISAM_Besturingselementen()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strPad As String
Const EXCEL_BESTAND As String = "Testword.xls"
strPad = ActiveDocument.Path & "\"
' Verbinding maken met het Excel-bestand via de ISAM-driver
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPad & EXCEL_BESTAND & ";" & _
"Extended Properties=Excel 8.0;"
' Het bereik 'geslacht' uit het excel-bestand in een recordset opnemen
rst.Open "Naam", cnn, adOpenForwardOnly, adLockReadOnly, adCmdTable
Do Until rst.EOF
ComboBox1.AddItem rst.Fields(0)
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function
