Mensajes

Me explico bien lo que deseo?

La pregunta estimado es:

"que me tome a partir de la LINEA 215 a la LINEA 839. Ese seria lo que le quiero agregar..."

El codigo funciona sensacional en excel 2010... el VBA funciona genial con este codigo... simplemente quiero que SOLO me tome desde la linea 215 del codigo a la linea 839.

Ya que solo quiero esa parte del codigo...

Desde ya muchas gracias!

Buenas a todos!! Desde ya digo que gracias porque buscando en el foro encontré un código que se asemeja mucho a lo que estoy buscando!!! Es este... con el único problema de que yo busco que me tome cierta parte del código fuente de una web... que me tome a partir de la LINEA 215 a la LINEA 839. Ese seria lo que le quiero agregar...

CITO EL POST CON EL CODIGO! ESTA AL FINAL DE TODO... DON DA EL CODIGO LO QUE TOMA Y EL RESULTADO...
http://foro.elhacker.net/php/extrayendo_codigo_fuente_de_una_web_problema_con_codigo_generado_por_js-t320899.0.html

Lo uso en una planilla excel... asi que les dejo el codigo que pego en el VBA del excel 2010.

Public Sub pruebaAJAX()

    Dim url As String
    Dim codigoFuente As String
   
    url = "http://www.guaranpis.es/nvista.php?yvista=76&xvista=26"
    Set XML = CreateObject("MSXML2.XMLHTTP")
    XML.Open "GET", url, False
    XML.send
   
    If XML.ReadyState = 4 Then
        If XML.Status = 200 Then
            codigoFuente = StrConv(XML.responsebody, vbUnicode)
        End If
    End If
   
    Set XML = Nothing

    Dim archivoTxt As String
    archivoTxt = "C:\codigofuente.txt"

    'el archivo txt si existe hay que eliminarlo,
    'de lo contrario se van a ir acumulando los codigos en ese mismo archivo
    'uno abajo del otro

    If Dir(archivoTxt) <> "" Then
        Kill archivoTxt
    End If

    Open archivoTxt For Binary As 1
    Put #1, , codigoFuente
    Close 1
End Sub

Desde ya agradezco mucho cualquier ayuda que me brinden... se muy poco de códigos VB!! Pero estoy pensando hacer un cursito o leer un libro de esto... ya que es lo único en lo que ando flojo con excel.

Saludos, Christian!