Importar datos de Web

[vecodis]

Buenos días,

Soy bastante novato en macros por lo que agradecería me guiaseis para construir una macro que importe datos de Web, concretamente la Web es Moningstar, en la cual tengo una cartera con información de Fondos de Inversión.

El problema es que tengo que acceder a una opción dentro de la Web que es; Mi Cartera  y posteriormente, Acceder a una cartera existente, en la cual me pide Usuario y Contraseña.

[vecodis]

He encontrado esta Macro en la biblioteca, pero no me funciona.

 Sub conexion()

 Const Nick = "vecodis@gmail.com"
 Const Pass = "An19to51"

    For Each Q In ActiveSheet.QueryTables
        Q.Delete
    Next Q
    ActiveSheet.Cells.Clear
    '
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.morningstar.es/es/membership/LoginPopup.aspx", Destination:=Range( _
"$A$1"))
.PostText = "txtUsername=" & Nick & "&txtRealPassword=" & Pass

.Refresh BackgroundQuery:=False

 .Connection = "URL;https://www.morningstar.es/es/portfoliomanager/portfolio.aspx"
        .Name = "portfolio.aspx"
        .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
    Range("A2").Select

End Sub

[vecodis]

Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro.

Gracias.