Я нашел ответ о том, как сделать запрос HTTP POST, я просто не знаю, как добавить в него синтаксис API YouTube. Вот подпункт для запроса POST:
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")
Теперь приведем синтаксис запроса POST для API playlistitems.insert YouTube:
POST https://www.googleapis.com/youtube/v3/playlistItems?part=snippet&key= [YOUR_API_KEY] HTTP / 1.1
Авторизация: Носитель [YOUR_ACCESS_TOKEN] Принять: application / json Тип содержимого: application / json
{"snippet": {"playlistId ":" PLO0tYa-h6I_9xJlanhquO8F-rZe6sA0kd "," position ": 0," resourceId ": {" kind ":" youtube # video "," videoId ":" M7FIvfx5J10 "}}}
У меня есть ключ авторизации, videoid и playlistid, так как мне поместить это в тело запроса для HTTP-запроса POST Excel VBA?