Visual Basic para Aplicaciones - Certificado Digital

Sub ComprobarNIF_AEAT()

'This will load a webpage in IE

    Dim i As Long

    Dim URL As String

    Dim IE As Object

    Dim objElement As Object

    Dim objCollection As Object

    Dim HWNDSrc As Long

    'Create InternetExplorer Object

    Set IE = CreateObject("InternetExplorer.Application")

    'Set IE.Visible = True to make IE visible, or False for IE to run in the background

    IE.Visible = True

    'Define URL

    URL = "https://www1.agenciatributaria.gob.es/wlpl/BUGC-JDIT/Cnec"

    'Navigate to URL

    IE.Navigate URL

    ' Statusbar let's user know website is loading

    Application.StatusBar = URL & " is loading. Please wait..."

    ' Wait while IE loading...

    'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertantly skipping over the second loop)

    Do While IE.ReadyState = 4: DoEvents: Loop

    Do Until IE.ReadyState = 4: DoEvents: Loop

    'Webpage Loaded

    Application.StatusBar = URL & " Loaded"

    IE.document.getelementbyid("areaDatos").Value = Range("D202")

    'Unload IE

    Set IE = Nothing

    Set objElement = Nothing

    Set objCollection = Nothing

End Sub