Я немного опытен в использовании VBA, но полный новичок, когда дело доходит до извлечения данных с веб-сайта. Вот код, который я использую:
Sub test()
Dim XMLPage As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim HTMLDiv As MSHTML.IHTMLElement
Dim HTMLTable As MSHTML.IHTMLElement
Dim reqURL As String
reqURL = "https://www.xxxxx.com/options-income/signals?page=1&pageSize=40"
XMLPage.Open "GET", reqURL, False ', "xxxxx.com", "11576"
XMLPage.send
If XMLPage.Status <> 200 Then
MsgBox XMLPage.Status & " _ " & XMLPage.statusText
Exit Sub
End If
MsgBox XMLPage.Status & " _ " & XMLPage.statusText
HTMLDoc.body.innerHTML = XMLPage.responseText
Debug.Print XMLPage.responseText
End Sub
Вот результат, который я получаю при запуске этого кода:
<code><pre>
!doctype HTML>
html lang="en">
head>
base href="/">
meta charset="UTF-8">
meta name="viewport" content="width=device-width,initial-scale=1,maximum-scale=1,user-scalable=no">
meta name="mobile-web-app-capable" content="yes">
title>xxxxxx</title>
link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Open+Sans:400,500,600,700,800">
link rel="apple-touch-icon" sizes="60x60" href="/assets/images/favicons/apple-touch-icon.png">
link rel="icon" type="image/png" sizes="32x32" href="/assets/images/favicons/favicon-32x32.png">
link rel="icon" type="image/png" sizes="16x16" href="/assets/images/favicons/favicon-16x16.png">
link rel="manifest" href="/assets/images/favicons/site.webmanifest">
link rel="mask-icon" href="/assets/images/favicons/safari-pinned-tab.svg" color="#5bbad5">
meta name="msapplication-TileColor" content="#da532c">
meta name="theme-color" content="#ffffff">
link href="app.1484e48c09d5c2673d38.css" rel="stylesheet"></head>
body>
div id="root"></div>
script type="text/javascript" src="vendor-89c02a07.js"></script><script type="text/javascript" src="app-ce8531bd.js"></script></body>
/html>
Вся идентифицирующая информация в коде или результат был изменен.
Результатом является та же информация, которая отображается на вкладке «Источник» в инструментах разработчика Edge (или эквивалент Chrome или IE). Что мне нужно, так это информация в тегах «td», которые появляются на вкладке «Элементы» в инструментах разработчика, но мне пока не удалось получить такой результат.
Я был бы очень признателен за любую помощь, которую вы могли бы иметь возможность предложить, и заранее спасибо тем, кто делает. Кстати, думаю, это мой первый пост, который переполнен. Итак, я не уверен, что все сделал правильно. Приносим извинения, если нет.