Из Word работа с Excel

    Dim sPath As String
    sPath = ThisDocument.Path
    Dim oXls As Object
    Set oXls = CreateObject("Excel.Application")
 
    oXls.Workbooks.Open (sPath & "\stw.xlsx")
    oXls.Visible = False
    Set oXls = Nothing

Set oXls = Nothing

oXls.WorkSheets("Лист1").Select'переходим на Лист1
dim a as Variant
a = oXls.Cells(4,1)' переменной а присваиваем значение содержащееся в ячейке а4 (4 - номер строки, 1- номер столбца) 
a = oXls.Range("A4")' тоже самое

Dim sPath As String, oXl As Object, oWb As Object
sPath = ThisDocument.Path
    
Set oXl = CreateObject("Excel.Application")
Set oWb = oXl.Workbooks.Open(sPath & "\stw.xlsx", 0)
    
MsgBox oWb.Worksheets(1).Cells(2, 2).Value

MsgBox(oWb.Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row)

MsgBox(oWb.Worksheets(1).Cells(Rows.Count, 2).End(-4162).Row)