DALOKOS Novice
21. marts 2017 - 15:06 Der er 5 kommentarer

CVR opslag på P-nummer igennem API

Jeg har fået CVRAPI op og stå i det nedenstående Excel-ark, men har nu ramt en mur. Jeg vil gerne have, at man i stedet for at søge på CVR nr. søger på P-nr?

En som er skarp og kan ændre den lille detalje?

Excel-ark:
https://www.dropbox.com/s/uv1bvaagyxb07e1/CVR%20opslag.xlsm?dl=0

Data til API:
https://github.com/CactusData/VBA.CVRAPI/blob/master/CvrDemo.bas

På forhånd tak!
jakobdo Ekspert
21. marts 2017 - 20:53 #1
CVRAPI har denne side:

http://cvrapi.dk/documentation

http://cvrapi.dk/api?produ=P_NUMMER&country=dk

Hvis du indsætter P_NUMMER i ovenstående url, så smider den det ønskede retur.
Kan du selv tilpasse din bas fil ?
DALOKOS Novice
21. marts 2017 - 21:11 #2
Er ikke helt sikker.. Kan du give et hint mere? :o)
jakobdo Ekspert
21. marts 2017 - 21:32 #3
Jeg har ikke excel på min computer, men jeg tænker du et eller andet sted i dit excel ark må have et kald til: cvrapi.dk/.....
Prøv at se om du kan finde det i VBA koden ?
DALOKOS Novice
22. marts 2017 - 09:07 #4
Kan kun se, at den henter data fra 'cvrapi.dk' og ikke en specifik adresse - desværre. Så tricket ligger nok i at få deres;

Private Sub GetDkCompanyInfo( _
    ByVal VAT As String)

    Const Country          As Long = CvrCountrySelect.Denmark
   
    Dim Company            As String
    Dim Address            As String
    Dim PostalCode          As String
    Dim City                As String
   
    If RetrieveCvrAddress(Country, VAT, Company, Address, PostalCode, City) Then
        Debug.Print "VAT:", VAT
        Debug.Print "Company:", Company
        Debug.Print "Street:", Address
        Debug.Print "City:", PostalCode & " " & City
    End If
   
End Sub

.. til at hente fra P-nummeret istedet for CVR nr. Men tak for hjælpen anyways!
Charmans Praktikant
15. januar 2019 - 11:14 #5
Hej

Linket til excel arket virker ikke jeg kunne nemmelig godt tænke mig at se denne fuktion da jeg har lidt bøvl med at få det til at virke
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
Wingmen Solutions fortsætter den stejle vækstkurve trods corona: Hæver overskuddet med 120 procent
Wingmen Solutions fastholder de eksplosive vækstrater trods corona-pandemien. Det viser selskabets nye regnskab, hvor overskuddet er mere end fordoblet. "Det er fantastisk, at vi er kommet igennen et år med corona på den her måde," lyder det fra topchef Kåre Christensen.
Computerworld
Stein Bagger gør comeback i ny branche: "De lignede et mafiahold, førte sig frem som nyrige og plaprede løs om urealistiske drømme"
Stein Bagger har skiftet navn og fører sig nu frem i store biler i en helt ny branche, skriver en dansk avis.
CIO
Podcast: Her er seks gode råd om ledelse og digitalisering fra danske top-CIO'er
The Digital Edge: Vi har talt med 17 af Danmarks dygtigste digitale ledere - og samlet deres seks bedste råd om digitalisering og ledelse. Få alle rådene på 26 minutter i denne episode af podcasten The Digital Edge.
Job & Karriere
Se Waoos forklaring: Derfor har selskabet fyret topchef Jørgen Stensgaard med omgående virkning
Waaos bestyrelse opsiger fiberselskabets topchef, Jørgen Stensgaard, der fratræder med omgående virkning. Se hele forklaringen fra Waao her.
White paper
Gratis whitepaper: Hvad er EDI, og hvordan kan det styrke min forretning?
Overvejer du EDI, og ønsker du at undersøge, om EDI er den rette investering for din virksomhed? Har en af dine kunder eller leverandører for nyligt bedt dig om at udveksle elektroniske dokumenter (EDI)? Så hent dette whitepaper og få et overblik over, hvad EDI er, og hvilke fordele producenter og grossister som dig kan se frem til, når du investerer i EDI til din forretning.