Загрузка заявок SEC с использованием Excel VBA - проблема встроенного средства просмотра XBRL - PullRequest
Новая
       40

Загрузка заявок SEC с использованием Excel VBA - проблема встроенного средства просмотра XBRL

0 голосов
/ 21 мая 2019

Я пытаюсь загрузить документы SEC (10-K, 8-K и т. Д.) С веб-сайта SEC, используя Excel vba. Я использую getelementsbytagname, чтобы определить URL для подачи. Однако, когда я использую приватную функцию «URLDownloadToFile», я не могу загрузить файл, вместо этого я получаю файл «Inline XBRL Viewer.htm», который не содержит текст подачи. Ниже приведен код, который я использую: 

htmlCol3 = htmlDoc1.getElementsByTagName("a")
For Each htmlInput3 In htmlCol3
If Left$(htmlInput3, 36) = "https://www.sec.gov/ix?doc=/Archives" Then
URL1 = Trim(htmlInput3)
buf = Split(URL1, ".")
ext = buf(UBound(buf))
If dt >= rptdt Then
strSavePath = FOL & "\" & CIK & "_" & FIL & "_" & str1 & "." & ext
ret = URLDownloadToFile(0, URL1, strSavePath, 0, 0)

Ниже приведена функция загрузки файла, которую я использую: 

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Я пытаюсь получить первый URL из столбца Документ в верхней таблице с этой веб-страницы:

https://www.sec.gov/Archives/edgar/data/769397/000076939719000016/0000769397-19-000016-index.htm

1 Ответ

1 голос
/ 21 мая 2019

Чтобы получить фактическую регистрацию, удалите бит ix?doc=, чтобы у вас был URL, который начинается https://www.sec.gov/Archives/...

, например 

URL1 = Replace(URL1, "https://www.sec.gov/ix?doc=", "https://www.sec.gov")
...