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

• zolynet veterán

  #2558

  #2557 sztanozs

  2014-11-27 08:32:05

  Ú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

  #2557 sztanozs

  #2557 sztanozs

  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.

  Sajnos nem vagyok beljebb, most látok életemben másodjára makrózást. Ha kicsit jobban kifejtenéd azt nagyon megköszönném. Ehhez hülye vagyok, sosem csináltam ilyet.

• 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

• zolynet veterán

  #2554 2014-11-26 12:15:13

  Ú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

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

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