使用 Worksheetfunction 从 Word VBA 中检索 Excel 上的数据

Question

I am trying to automatically fill in tables in a MS word file by retrieving data in various excel tables. In order to properly interact with Excel it would be very handy to work with worksheetfunction. Yet since the macro is in MS Word I am getting blocked. Any way to access it? Cheers

Dim src As Workbook
Dim ws As Worksheet

Dim t As String
Dim c As Integer
    
t = ThisDocument.Tables(1).Cell(1, 1).Range.Text
t = Left(t, Len(t) - 1)

Set src = workbooks.Open("https://collab.ext.../asd.xlsx", True, True)
Set ws = src.Worksheets("Data")

c = worksheetfunction.Match(t, ws.Range("A1:AA1"), False)

src.Close
Set src = Nothing

Answer 1

@Tim Williams thanks for your help. Corrected code below:

Dim oXL As Object
Dim oWB As Workbook
Dim oWS As Worksheet
Dim wbPath As String
Dim t As String
Dim c As Integer

Set oXL = CreateObject("Excel.Application")
oXL.Visible = False

wbPath = "https://collab.ext...asd.xlsx"
    
t = ThisDocument.Tables(1).Cell(1, 1).Range.Text
t = Left(t, Len(t) - 2)

Set oWB = oXL.workbooks.Open(wbPath, True, True)
Set oWS = oWB.Sheets("Data")
    
c = oXL.worksheetfunction.Match(t, oWS.Range("A1:AA3"), False)

oXL.ActiveWorkbook.Close SaveChanges:=False
oXL.Application.Quit
Set oXL = Nothing
Set oWB = Nothing
Set oWS = Nothing