Új hozzászólás Aktív témák

• #2557 sztanozs veterán zolynet #2556

  Új Válasz 2014-11-26 16:42:39 #2557

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz zolynet #2556 üzenetére

  Mivel SUB-ba raktad, így Exit Sub kell Exit Function helyett.
  BTW ez a funkció az egész weblapot leszedi, így neked kell kézzel (kóddal) navigálnod a DOM-ban és kiszedni az url-eket.

• #2555 sztanozs veterán zolynet #2554

  Új Válasz 2014-11-26 12:56:45 #2555

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz zolynet #2554 üzenetére

  Szedd le így:

  Set htmlDoc = CreateObject("HTMLFile")
  urlString = "http://www.nfh.hu/pozitiv-lista?title=&field_shop_value=&page=0"
  
  Set httpScraper = CreateObject("Microsoft.XMLHTTP")
  httpScraper.Open "GET", urlString, False
  httpScraper.send
  
  If httpScraper.statusText = "OK" Then
  htmlDoc.body.innerHTML = httpScraper.responseText
  loadForm = True
  Else
  loadForm = False
  Set htmlDoc = Nothing
  Exit Function
  End If
  Set httpScraper = Nothing

  És DOM-mal feldolgozod.

Új hozzászólás Aktív témák