Avatar billede Soer1006 Praktikant
12. januar 2021 - 13:24

VBA: Refresh af connection til website

Hej,
Jeg har nedenstående VBA kode som logger ind på en website og henter indholdet af en tabel ned i excel.
Dette virker fint, men udfordringen er at jeg ikke kan få connection til website til at refresh/disconnect forud for ny kørsel.
Jeg skal gerne kunne hente seneste/nyeste indhold i tabellen ned og ikke det samme som første kørsel hentede.
Jeg har søgt nettet tyndt for hjælp hertil uden held. Håber virkelig nogen herinde kan hjælpe med at knække denne nød.

Sub NFV_GetLastModifyDateFile_Yesterday()
   
    Windows("BondsFlexPrisning_NasdaqFairValues.xlsm").Activate
    Sheets("NFV_InputDate").Select
    Range("B4").Select
   
    'refresh data extracted from webpage
    ActiveWorkbook.RefreshAll
   
    Dim htm As Object
    Dim Tr As Object
    Dim Td As Object
    Dim Tab1 As Object

    'Replace the URL of the webpage that you want to download
    Web_URL = VBA.Trim(Sheets("NFV_InputDate").Cells(3, 2))
   
    'Create HTMLFile Object
    Set HTML_Content = CreateObject("htmlfile")
   
    'Get the WebPage Content to HTMLFile Object
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", Web_URL, False, "User", "Password"
        .send
        HTML_Content.body.innerHTML = .responseText
    End With

    Column_Num_To_Start = 2
    iRow = 4
    iCol = Column_Num_To_Start
    iTable = 0

    '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("NFV_InputDate").Cells(iRow, iCol).Select
                    Sheets("NFV_InputDate").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


End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester