Доброго времени суток. Имеется скрипт на vba, нужно перекинуть в гугл докс.

Private Sub Workbook_Open()
Dim data_file As Object
Dim arch, path, file_path As String

Application.ScreenUpdating = False 'Отключаем обновление экрана
path = ThisWorkbook.path & "\Презентация"   'Вот тут нужно брать конкретную папку на гугл диске


'Вставляем гиперссылки
i = 2
With Application.Workbooks(1).Worksheets(1).Cells
   
LastRow = ThisWorkbook.Sheets("Лист1").Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
cikl:
If LastRow > i Then

ThisWorkbook.Sheets("Лист1").Range("L" & i).FormulaR1C1 = "=HYPERLINK(""" & path & "\""&RC14&"".pdf"","">>"")"

i = i + 1
GoTo cikl
Else

End If

End With





'ThisWorkbook.Sheets("Инфо").Select

Application.ScreenUpdating = True 'Включаем обновление экрана
End Sub






Готов пожертвовать рублей 100-150 руб. (Через СБОЛ)