Necesito actualizar mi hoja de excel todos los dias con unos datos de la web de mi proveedor. Utilizo "Urldownloadtofile" para descargar el archivo. Cuando abro el archivo descargado descubro que falta parte del codigo html. Ya no se como hacerlo. Se que hay algo referente a algo de msinet.ocx que tambien puede usarse, pero no tengo ni idea. Mis conocimientos de vba son muy reducidos, aunque me armo de valor y voy consiguiendo cosillas. Esto me desborda y me ayudaria mucho en mi trabajo. Aqui os dejo lo que tengo hecho por si necesita un retoque.
Sub ACTUALIZAR()
DATO = ActiveCell.Value
Dim ruta As String
ruta = "http://www.webproveedor.com/orden.aspx?ficha=" & DATO
Dim TEXTO As String
Dim N1, CONTAR As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Reply = URLDownloadToFile(0, ruta, "C:\TXT.html", 0, 0)
Set FSO = Nothing
Close #1
Open "C:\TXT.html" For Input As #1
Do While Not EOF(1)
Line Input #1, TEXTO
N1 = InStr(TEXTO, "CADENABUSCADA")
If N1 <> 0 Then
CONTAR = CONTAR + 1
Select Case NFOT
Case CONTAR = 1
ActiveCell.Offset(0, 15).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 2
ActiveCell.Offset(0, 16).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 3
ActiveCell.Offset(0, 17).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 4
ActiveCell.Offset(0, 18).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 5
ActiveCell.Offset(0, 19).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 6
ActiveCell.Offset(0, 20).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 7
ActiveCell.Offset(0, 21).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 8
ActiveCell.Offset(0, 22).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 9
ActiveCell.Offset(0, 23).Value = Mid(TEXTO, N1 + 18, 7)
Case CONTAR = 10
ActiveCell.Offset(0, 24).Value = Mid(TEXTO, N1 + 18, 7)
End Select
End If
Loop
Close #1
ActiveCell.Offset(0, 12).Value = CONTAR
End Sub
Mi intencion el encontrar CADENABUSCADA y cojer el dato que la acompaña.
Por favor enseñarme la luz en la oscuridad de mi desconocimiento.
