Гугл скрипт. Преобразовать макрос Excel в скрипт

Помогите пожалуйста преобразовать макрос Эксель в Гугл скрипт: (нужно сделать приказы по списку номеров и каждый сохранить в pdf)

Sub АвтЗаполнениеИСохранениеАктаПдФ()
    Dim wsПриказ As Worksheet
    Dim wsСвод As Worksheet
    Dim pdfFileName As String
    Dim lastRow As Long
    Dim значение As Variant

    ' Указываем листы
    Set wsПриказ = ThisWorkbook.Sheets("Приказ")
    Set wsСвод = ThisWorkbook.Sheets("Свод")

    ' Определить последнюю заполненную строку в столбце A на листе "Свод"
    lastRow = wsСвод.Cells(wsСвод.Rows.Count, "A").End(xlUp).Row

    ' Проверить, есть ли значения в столбце A
    If lastRow >= 2 Then
        ' Итерация по всем заполненным строкам столбца A (если нужно всего несколько приказов, измени диапазон и убери lastrow ("A556:A715" & lastRow)
        For Each cell In wsСвод.Range("A509:A568")
                       
            ' Получить значение из ячейки столбца A
            значение = cell.Value
            
            ' Подставить значение в ячейку F2 на листе "Приказ"
            wsПриказ.Range("F2").Value = значение


    ' Указываем лист
    Set ws = ThisWorkbook.Sheets("Приказ")

    ' Формируем имя файла PDF

    pdfFileName = ThisWorkbook.Path & "\" & wsПриказ.Range("F2").Value & ".pdf"

    ' Сохраняем лист в формате PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFileName, Quality:=xlQualityStandard
    ' Выводим сообщение об успешном сохранении
    
    'MsgBox "Лист 'Приказ' успешно сохранен в PDF: " & pdfFileName, vbInformation

    ' Имитируем нажатие клавиши "Enter" (Ок) для подтверждения сохранения
    Application.SendKeys "~"
    
    ' Пауза в  секунду
            Application.Wait Now + TimeValue("0:00:05")
            
        Next cell
    Else
        ' Если столбец A пуст, вывести сообщение
        MsgBox "Столбец A на листе 'Свод' пуст.", vbExclamation
    End If
End Sub

Ответы (0 шт):