micaud Mester
11. marts 2019 - 20:13 Der er 2 kommentarer

Link til Virk.dk

Hej.

Jeg vil gerne have mit Excel ark til at finde navn, adresse mv. fra datacvr.virk.dk

Nedenstående viser uddrag af HTML koden fra hjemmesiden og min VB kode, og her i første omgang, vil jeg bare hente adresse. Det virker fint at slå op via CVR, som jeg har i en celle, men hvad skal der stå i min vb linje, før msgbox ??

HTML kode:
<div class="row dataraekker">
    <div class="col-sm-6 datatitler" data-pdf-class="column4">
        <h2><strong>Adresse</strong><div class="help_element help_acc Help-stamdata-data-adresse"></div></h2>
    </div>
    <div class="col-sm-6
            " data-pdf-class="column8">
        HER STÅR ADRESSEN  </div>


VB KODE:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row = Range("CVR").Row And Target.Column = Range("CVR").Column Then
    Dim IE As New InternetExplorer
    IE.Visible = True
    IE.Navigate "https://datacvr.virk.dk/data/visenhed?enhedstype=virksomhed&id=" & Range("CVR")
    Do
    DoEvents
    Loop Until IE.ReadyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.Document
    Dim sAD As String
    sAD = Doc.getElementsByTagName("?????").innerText
    MsgBox sAD

  End If

Håber I kan hjælpe, tak.


End Sub
micaud Mester
11. marts 2019 - 21:18 #1
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

Opret Preview

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





Premium
Test: Apples nye iPhone er bygget til fart og stil: Så gode er iPhone 12 og iPhone 12 Pro
Computerworld tester: IPhone 12 og iPhone 12 Pro er bygget til fart og til at se godt ud. Varen leveres stilsikkert, men noget er overset i farten.
Computerworld
Salling Group lukker stor online-satsning efter kun et år
Millionsatsningen Fillop lukker ved årets udgang. I stedet er supermarkeds-giganten Salling Group nu på vej med en række helt nye online-satsninger, der er affødt af coronakrisen.
CIO
Podcast: Hos Viking Life-Saving Equipment er it gået fra at være backend til at være noget, som kunderne spørger aktivt efter
Podcast, The Digital Edge: Viking leverer en stadig større del af deres produkt som en tjeneste. Som en del af tjenesten tager Viking ansvar for sikkerheden ved at levere, dokumentere og vedligeholde det nødvendige sikkerhedsudstyr. Hør hvordan Henrik Balslev senior digital director hos Viking har løftet den opgave.
Job & Karriere
Regner din ferie væk? Brug tiden på at søge en af disse otte stillinger, der er ledige netop nu
Det sjasker ned over hele Danmark. Du kan bruge de våde sommerdage på at søge et af disse otte job, der er ledige lige nu.
White paper
Minimér spildtid og understøt det nye arbejdsliv med effektive videomøder
Under nedlukningen i foråret 2020 vænnede dine medarbejdere sig til at mødes via Microsoft Teams. Men mange blev frustrerede over at vende tilbage til kontoret og opdage, at dette – nu helt essentielle! – møderedskab ikke fungerede særligt godt sammen videoudstyret i mødelokalerne. Nu bygger en ny løsning endelig bro mellem Teams og verdens nok mest udbredte og velfungerende løsning til professionelle videomøder – Cisco Webex. Det kan du læse mere om i denne korte og præcise gennemgang af løsning og muligheder fra NetDesign.