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

• zolynet veterán

  #2556

  #2555 sztanozs

  2014-11-26 13:11:37

  Új Válasz

  Ú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

  

  zolynet

  veterán

  #2555 sztanozs

  #2555 sztanozs

  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.

  köszönöm
  az alábbi hibaüzenetet adja:
  Compile error: exit function not allowed in sub or property

  az egyes üzletekhez tartozó url-eket nem szedte le

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