Jump to content

vecodis

Members
  • Posts

    70
  • Joined

  • Last visited

About vecodis

  • Birthday 06/10/1951

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

vecodis's Achievements

  1. Desconozco si por falta de aportación de datos, no me pueden ayudar o es que no se puede desarrollar esta macro. Gracias.
  2. 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
  3. 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.
×
×
  • Create New...

Important Information

Privacy Policy