Hola a todos:
Les comento que este es mi primer foro.
Tengo problema de con un programa que tenemos en visual basic en la empresa.
El codigo en cuestion es el siguiente:
Funcion ObtenerPrecioML
UserFormWEB.WebBrowser1.Navigate "h t t p://articulo (punto) mercadolibre (punto) com (punto) ar/jm/item?site=MLA&id=" & articulo
'( NO ME DEJA PUBLICAR ENLACES POR ESO LO PUSE ASI)
Do
DoEvents
Loop Until UserFormWEB.WebBrowser1.ReadyState = READYSTATE_COMPLETE
If UserFormWEB.WebBrowser1.Documents.forms.Length <> 4 Then
ObtenerPrecioML = "Pausado"
Exit Function
End If
With UserFormWEB.WebBrowser1.Document
PRECIO = .form.Item(3).Item(4).Value
PRECIO = Replace(PRECIO, ".", ",")
If InStr(1, .Title, "U$S") Then
mldolar = True
Else
mldolar = False
End If
End With
Lo que hace es entrar a un articulo de mercadolibre, y determinar si esta activo o pausado, importar el precio e imprimilo en un excel. La unica entrada es el numero de articulo (articulo), que lo tenemos en una planilla, por ejemplo 52027944 esta activo y queremos saber el precio, y uno pausado 52028139 y queremos saber si esta pausado nada mas.
La cosa es que mercado libre cambio algo en su pagina, y ya no me funciona. Y el chico que hizo el codigo ya no esta, y necesito que funcione. Lo que ni yo ni un amigo programador sabemos es donde esta haciendo la busqueda aca por ejemplo: PRECIO = .form.Item(3).Item(4).Value
bueno, espero soluciones.
Gracias.
problematico
