Добрый день
Есть простой, но не менее гениальный код по отправке
POST запросов в таблицу
Но я получаю всегда 401 ошибку авторизации от google
Может кто-то сталкивался и поборол ошибку, и готов поделится решением
При ручной оправке сгенерированный URL отрабатывает запускает web-приложение и отрабатывает свой алгоритм..
Если вопрос требует индивидуального подхода и оплаты, то перенесем в РАБОТУ
Есть простой, но не менее гениальный код по отправке
POST запросов в таблицу
Но я получаю всегда 401 ошибку авторизации от google
Может кто-то сталкивался и поборол ошибку, и готов поделится решением
При ручной оправке сгенерированный URL отрабатывает запускает web-приложение и отрабатывает свой алгоритм..
Если вопрос требует индивидуального подхода и оплаты, то перенесем в РАБОТУ
| Код |
|---|
Sub sendGET()
Dim httpRequest As Object 'MSXML2.XMLHTTP
Dim URL As String
Dim ssId As String
Dim sheetName As String
ssId = "19foyskMCrGT8L-XLaKrzqPwrxNFOXbPp1tdRJvkqwLA" ' Id страницы
sheetName = "1" название страницы
URL = "https://script.google.com/macros/s/" & webAppId & "/exec" _ ' webAppId - развернутое приложение
& "?ssId=" & ssId _
& "&sheetName=" & sheetName _
& "&row=1&col=1&txt=111" _
& "&row=1&col=2&txt=111" _
& "&row=1&col=3&txt=111"
Set httpRequest = CreateObject("MSXML2.XMLHTTP")
httpRequest.Open "POST", URL, False
httpRequest.Send (URL)
Debug.Print httpRequest.Status
Debug.Print httpRequest.responseText
Set httpRequest = Nothing
End Sub |
Изменено: - 06.02.2025 13:31:06
