Как в дальнейшем почищать сайт?

Question

Ниже приведен код, который я использовал для получения определенных переменных, которые упомянуты ниже.

Option Explicit
Public Sub GetInfo()
    Dim s As String, ids(), i As Long
ids = Array(500325, 500510)
With CreateObject("MSXML2.XMLHTTP")
        For i = LBound(ids) To UBound(ids)
            .Open "GET", "https://api.bseindia.com/BseIndiaAPI/api/ComHeader/w?quotetype=EQ&scripcode=" & ids(i) & "&seriesid=", False
            .send
            s = .responseText
            ActiveSheet.Cells(i + 1, 1) = Split(Split(s, """ROE"":""")(1), Chr$(34))(0)
            ActiveSheet.Cells(i + 1, 2) = Split(Split(s, """PE"":""")(1), Chr$(34))(0)
            ActiveSheet.Cells(i + 1, 3) = Split(Split(s, """PB"":""")(1), Chr$(34))(0)
        Next
    End With
End Sub

Но я не могу и дальше делать это, особенно упомянутое в поле «Результаты и структура владения акциями», так как раньше думал, что код будет работать со всеми переменными, упомянутыми на этом портале. Это связано с API или что-то еще? Поскольку я не знаю много об API, поэтому предлагаю в этом отношении.

Ссылка для вашей готовой ссылки: https://www.bseindia.com/stock-share-price/larsen--toubro-ltd/lt/500510/

https://www.bseindia.com/stock-share-price/reliance-industries-ltd/reliance/500325/

Answer 1

Ваш массив неверен.Объявите динамический массив и присвойте ему.

Option Explicit

Public Sub GetInfo()
    Dim s As String, ids(), i As Long
    ids = Array(500325, 500510)
    With CreateObject("MSXML2.XMLHTTP")
        For i = LBound(ids) To UBound(ids)
            .Open "GET", "https://api.bseindia.com/BseIndiaAPI/api/ComHeader/w?quotetype=EQ&scripcode=" & ids(i) & "&seriesid=", False
            .send
            s = .responseText
            ActiveSheet.Cells(i + 1, 1) = Split(Split(s, """ROE"":""")(1), Chr$(34))(0)
            ActiveSheet.Cells(i + 1, 2) = Split(Split(s, """PE"":""")(1), Chr$(34))(0)
            ActiveSheet.Cells(i + 1, 3) = Split(Split(s, """PB"":""")(1), Chr$(34))(0)
        Next
    End With
End Sub