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

• sztanozs veterán

  #2557

  #2556 zolynet

  2014-11-26 16:42:39

  Ú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

  

  sztanozs

  veterán

  #2556 zolynet

  #2556 zolynet

  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

  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.

• sztanozs veterán

  #2555

  #2554 zolynet

  2014-11-26 12:56:45

  Ú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

  

  sztanozs

  veterán

  #2554 zolynet

  #2554 zolynet

  Ide is beteszem, hátha tudtok útbaigazítást adni: weblapról adat leszedés

  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