TopPicLogo TopPicText

MS Excel - Адресация ячейки по номеру столбца и строки

    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
Назад ToTop
L.E. 24.11.2017
Рейтинг@Mail.ru