Excel raadplegen vanuit Word

[ReilingJ]

ik ben bezig met een applicatie in Word welke gegevens moet ophalen uit een Worksheet.

Dat valt nog al tegen.

ik heb de volgende code gevonden:

Sub OpenExcelFile()
    
    
    Dim Example As String
    Dim oExcel As Excel.Application
    Dim oWB As Excel.Workbook
    Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open("K:\BBV-Zuid\reilingj\tijdelijk\OVK142974.xls")
    oExcel.Visible = True
       
    
    Set oWB = ActiveWorkbook
    
    With ActiveWorkbook
    
    Example = Sheet1.Range("a1").Value
 
 End With
       
    
End Sub

Bij Example krijg ik een foutmelding (object vereist)

vraag: wat doe ik fout en hoe sluit ik vervolgens Excel weer netjes af.

 

[Weust]

Ga in de Word Macro Editor naar "Extra" en kies dan "Verwijzingen"
Zoek in de lijst naar "Microsoft Excel 14.0 Object Library" of iets wat daar op lijkt. (nr is afhankelijk van de versie ofzo)

Als je in Excel macro's uitvoert naar Word moet je daar iets soort gelijks doen.

Ik gebruik onderstaande code:

Sub START()
        
    Dim oExcel As Excel.Application
    Dim oEWB As Excel.Workbook
    Set oExcel = New Excel.Application
    
    On Error GoTo 999
    
'ADRES VAN BESTAND
    Set oEWB = oExcel.Workbooks.Open("N:\....xlsm")

'EXCEL UITVOEREN MAAR VERBERGEN
'DIT ZOU IK EVEN WEGHALEN BIJ HET TESTEN
    Application.Visible = False
    oExcel.Visible = False
    
Exit Sub
'ERROR HANDLER
999
MsgBox "File niet gevonden!", vbCritical, "Error..."

End Sub

 

[ReilingJ]

Bedankt voor reactie maar dat had ik al aangevinkt.
Foutmelding is pas verderop bij "Example=....."

 

[Weust]

Heb je een voorbeeld van beide bestanden ontdaan van gevoelige info?

Wat is Example? En locatie in je Word document, en veld in een userform?

 

[snb]

Dit is genoeg:

Sub M_snb()
  With getobject("K:\BBV-Zuid\reilingj\tijdelijk\OVK142974.xls")
       msgbox .sheets(1).cells(2,1)
  End With
End Sub

 

[ReilingJ]

Yes!!!!!
zeer bedankt!