Søg på CVR nr og hent data til Excel

kan du ikke debug / single-steppe igennem koden og så se hvor
Navn = Range("A24").Value
Adresse = Range("A25").Value & " " & Range("A26").Value
i virkeligeheden er - så ret A24, A25, A26 så det passer igen.

Har prøvet det nu, kun at debugge begge linjer og også single, mens jeg havde markeret det CVR nr.
Navn = Range("A24").Value
Adresse = Range("A25").Value & " " & Range("A26").Value

Uanset, så skriver den alt ud fra denne side http://www.allabolag.se/5568669039/B_K_A_Forsaljning_AB


Nogen idé?

Men tilbyder cvr ikke allerede denne mulighed ?

de har måske lavet om på deres site, så de får solgt http://www.allabolag.se/webbservice ?

Jeg er ikke sikker på CVR er det samme :) Det var blot for at forklare at de her numre er de svenske "CVR". Problemet er at jeg ikke rigtigt er interesseret i XML API :)

Jeg prøvede en anden løsning, som gik ind og hentede informationen fra de forskellige tables. Så fik jeg informationen fra tabellen i midten, altså den jeg skal bruge, men fik:

Ordinarie ledamot: Åström, Bengt Krister
Registreringsår: 2011

F-Skatt: Registrerad läs mer

Telefon: 0705-596969

ADRESS
MARMORVÄGEN 7
153 92 Hölö
Stockholms län
Visa på karta

Er det muligt at cutte i den info, så jeg kun får adressen osv. på samme linje: Marmorvägen 7, 153 92, Hölo?

hvis du har teksten i en en tekststreng, så kan du søge efter ADRESS (gem hvor den slutter) og søge videre til län og så baglæns til linjeskift.
Så har du området med adressen (også hvis det er 1 eller 3 linjer). Lav en søg/erstat, og skift CrLf ud med ", " og så er det svaret.

Firmanavnet ligger i en tidligere tabel - du kan måske søge på
<span id="printTitle" class="reportTitleBig">B.K.Å Försäljning AB</span>

Dim nr, navn As String, adresse As String
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    nr = Selection
   
    If Target <> "" Then
        Cancel = True
        hentNavnOgAdresse nr
        ActiveCell.Offset(0, 1) = navn
        ActiveCell.Offset(0, 2) = adresse
       
        ActiveSheet.Columns.AutoFit
    End If
End Sub
Private Sub hentNavnOgAdresse(nr)
    Application.ScreenUpdating = False
   
    ActiveWorkbook.Sheets(2).Activate
    ActiveSheet.Range("A1:G1000").Select
    Selection.Clear
   
   
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.allabolag.se/" & nr & "" _
        , Destination:=ActiveSheet.Range("A1"))
        .Name = _
        "" & nr & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
   
    With ActiveSheet
        navn = .Range("A20").Value
        adresse = .Range("B73").Value & " " & .Range("B74").Value & " " & .Range("B75")
    End With
   
    ActiveWorkbook.Sheets(1).Activate
End Sub

Din melding tyder på, at jeg godt kan lægge et svar.