Jump to content

Importar datos de Web


Recommended Posts

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • 4 weeks later...
×
×
  • Create New...

Important Information

Privacy Policy