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