Скачать субтитры YouTube с помощью excel vba
У меня есть следующий код, который загружает xml файл с субтитрами видео с YouTube
Sub Test()
Dim http As Object
Dim oStream As Object
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://video.google.com/timedtext?lang=en&v=qANA6POtuFo", False
http.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write http.responseBody
oStream.SaveToFile ThisWorkbook.Path & "\Sample.xml", 2
oStream.Close
End Sub
Но это не работает для других видео, например, я пробовал эту ссылку v = 4Z3EJrh7_5k
Любая идея, как сделать загрузку с любого видео с субтитрами?
Ответы
Ответ 1
Насколько я исследовал, вы не можете скачать с 4Z3EJrh7_5k потому что это субтитры не файл, который был загружен, но он генерируется автоматически.
Чтобы посмотреть, есть ли у видео файл субтитров, вы можете использовать http://video.google.com/timedtext?type=list&v=qANA6POtuFo, и он будет перечислять каждый файл с языками, вставленными в видео. Вы можете заметить, что он показывает только один, даже если вы перейдете к видео и нажмите, есть два (английский и английский (автоматически сгенерированный))
