Hente CVR oplysninger via VBA til Userform

Projektet blev lavet til Microsoft Access, men er i dag blevet opdateret, så det virker direkte i Word/Excel.

Som beskrevet i ReadMe-filen skal disse moduler importeres:

    CvrService
    JsonCollection
    JsonScript
    JsonService

    CvrUtil

Sæt derefter de to referencer til Microsoft Script Control 1.0 og Microsoft XML 6.0, kompilér og gem.

Selv om det er omfattende kode, synes jeg nu, det er nemt nok at bruge. Kig i modul CvrDemo for nogle typiske anvendelser, du formentlig hurtigt kan modellere til din Word formular.

Perfekt, tak!

Jeg brugte følgende kode til at aktive din funktion:

Private Sub CommandButton1_Click()

Dim CVR_nr As String

    CVR_nr = UserForm1.TextBox1.Value
   
    Call GetDkCompanyInfo("" & CVR_nr & "")

End Sub



Public 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
        UserForm1.TextBox2.Value = Company
        UserForm1.TextBox3.Value = Address
        UserForm1.TextBox4.Value = PostalCode
        UserForm1.TextBox5.Value = City
        UserForm1.TextBox6.Value = VAT
    End If
   
End Sub

Selv tak.

Jeg har aldrig skrevet en linje til Word, men det var præcis sådan, jeg tænkte, funktionen kunne bruges.