Function HTML_Table_To_Excel()

 

    Dim htm As Object

    Dim tr As Object

    Dim td As Object

    Dim Tab1 As Object

   

    Column_Num_To_Start = 1

    iRow = 1

    iCol = Column_Num_To_Start

    iTable = 0

   

    '1-31

For dan = 1 To 31

   

    'Replace the URL of the webpage that you want to download

   'Web_URL = "https://radio.hrt.hr/drugi-program/sto-svira/2020/1/8/"

   Web_URL = "https://radio.hrt.hr/drugi-program/sto-svira/2020/1/" & dan & "/"

   

   

    'Create HTMLFile Object

   Set HTML_Content = CreateObject("htmlfile")

 

    'Get the WebPage Content to HTMLFile Object

   With CreateObject("msxml2.xmlhttp")

        .Open "GET", Web_URL, False

        .send

        HTML_Content.body.innerHTML = .responseText 'this is the highlighted part for the error

   End With

 

   

    ''''''' ovo ti treba samo u slucaju daimasvise tabela

   'Loop Through Each Table and Download it to Excel in Proper Format

   'For Each Tab1 In HTML_Content.GetElementsByTagName("table")

       With HTML_Content.GetElementsByTagName("table")(iTable)

            For Each tr In .Rows

                For Each td In tr.Cells

                    Sheets(1).Cells(iRow, iCol).Select

                    Sheets(1).Cells(iRow, iCol) = td.innertext

                    iCol = iCol + 1

                Next td

                iCol = Column_Num_To_Start

                iRow = iRow + 1

            Next tr

        End With

 

       ' iTable = iTable + 1

       'iCol = Column_Num_To_Start

       'iRow = iRow + 1

   'Next Tab1

   

    Set htm = Nothing

    Set tr = Nothing

    Set td = Nothing

    Set Tab1 = Nothing

   

Next dan

 

    MsgBox "gotovo"

End Function