CVR-opslag i Excel med Power Query

Hent én virksomhed

1. Gå til Data > Hent data > Fra andre kilder > Tom forespørgsel.
2. Åbn Avanceret editor, og indsæt koden nedenfor.
3. Klik Luk og indlæs. Virksomheden lander som en tabel i dit ark.

let
    Source = Json.Document(Web.Contents("https://apicvr.dk/api/v1/24256790")),
    Company = Record.SelectFields(Source,
        {"vat", "name", "address", "zipcode", "city", "industrydesc", "companydesc", "status"}),
    Table = Table.FromRecords({Company})
in
    Table

Berig en liste af CVR-numre

Opret en ny tom forespørgsel med funktionen herunder, og kald den HentCVR. Den tager et CVR-nummer som tekst og returnerer navn, by, branche og reklamebeskyttelse.

(cvr as text) =>
let
    Source = Json.Document(Web.Contents("https://apicvr.dk/api/v1/", [RelativePath = cvr])),
    Result = [
        name = Source[name],
        city = Source[city],
        industry = Source[industrydesc],
        protected = Source[protected]
    ]
in
    Result

1. Indlæs din tabel med CVR-numre i Power Query, og sørg for, at kolonnen har typen Tekst.
2. Vælg Tilføj kolonne > Aktivér brugerdefineret funktion, og vælg HentCVR.
3. Klik på udvid-ikonet i den nye kolonne, og vælg de felter, du vil have med.

Hent ejerne som en tabel

let
    Source = Json.Document(Web.Contents("https://apicvr.dk/api/v1/24256790")),
    Owners = Table.FromRecords(Source[ejere]),
    Selected = Table.SelectColumns(Owners, {"name", "type", "ownership_range"})
in
    Selected

Opdatering og store lister

Klik Opdater alle for at hente friske data. Hver række er ét kald, så hold lister under et par tusinde rækker pr. opdatering.

Ofte stillede spørgsmål