Set app = CreateObject("Excel.Application")
Set wrk = app.workbooks.Open(CurrentProject.Path & "\Книга2.xltx")
With Me
'Тут так: cells(lRowNo, lColumnNo)
app.cells(1, 1) = !фамилия & " " & !имя & " " & !отчество
End With