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