엑셀 vba를 이용한 유튜브 자막 다운로드

엑셀 vba를 이용한 유튜브 자막 다운로드

유튜브에서 동영상 자막과 함께 xml 파일을 다운받는 코드는 다음과 같습니다.

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=4Z3 링크를 사용해 보았습니다.EJrh7_5k

자막이 있는 동영상으로 다운로드하는 방법을 알고 계십니까?

제가 조사한 바로는, 당신은 에서 다운로드 할 수 없습니다.4Z3EJrh7_5k자막은 누군가가 업로드한 파일이 아니라 자동으로 생성되기 때문입니다.

비디오에 자막 파일이 있는지 확인하려면 다음을 사용합니다.http://video.google.com/timedtext?type=list&v=qANA6POtuFo그리고 그것은 비디오에 언어가 삽입된 모든 파일을 나열됩니다.영상으로 이동하여 클릭해도 1개만 표시되는 것을 알 수 있으며, 2개(영어, 영어(자동 생성))

언급URL : https://stackoverflow.com/questions/51462486/download-youtube-subtitles-using-excel-vba