Obtener datos desde web haciendo login

La cuestión es la siguiente necesito obtener una lista de precios de una pagina web aquí la cuestión es que necesito hacer login para obtener los precios de distribuidor.  Segun he podido investigar eso se puede hacer con .PostText = "miNombre de Usuario:=usuario" & "Contraseña:=micontraseña"  El codigo con el que lo he intentado es el siguiente, con el cual puedo obtener los datos pero no hace login, te agradeceria y me pudieras ayudar, gracias.   Sub Macro1() 'With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.indar.com.mx/ProductoMarca2.php?ref=MAKITA&wpage=1&word=DESCRIPCION1&wfil=1&l1=&l2=&wncat=" _ , Destination:=Range("$B$1")) .PostText = "Usuario:=****" & "Contraseña:=****" .Name = _ "ProductoMarca2.php?ref=MAKITA&wpage=1&word=DESCRIPCION1&wfil=1&l1=&l2=&wncat=_1" .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:=True End With End Sub