Гугл скрипт. Преобразовать макрос 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