rostler
19.02.13,07:54
Pozdravujem vás borci. Chcem vás veľmi pekne poprosiť, či viete o nejakom spôsobe, ktorý by mi pomohol v mojom probléme.
Potrebujem spraviť nasledovné :
Po zadaní reťazca znakov v exceli do stĺpca (A1= kod_produktu, A2= kod_produktu_2 .. ) by mi systém vypísal údaje na konkurenčnej stránke.
Ako si to predstavujem ? keďže poznám url adresu, na ktorej tieto údaje budú umiestnené (napr. štandardná URL adresa pre vyhľadávanie je napríklad http://www.nieco.sk/search=, tak viem za to dopĺňať vyhľadávaný kód produktu napríklad http://www.nieco.sk/search=kod_produktu) tak viem na akej URL to má systém hľadať. je nejaký spôsob, ako toto zautomatizovať ? ručne to viem spraviť, ale potrebujem aby to systém robil automaticky a tým pádom mi bude vedieť získavať informácie od konkurenice bez námahy.
Vopred vám ďakujem za rady či tipy.
Potrebujem spraviť nasledovné :
Po zadaní reťazca znakov v exceli do stĺpca (A1= kod_produktu, A2= kod_produktu_2 .. ) by mi systém vypísal údaje na konkurenčnej stránke.
Ako si to predstavujem ? keďže poznám url adresu, na ktorej tieto údaje budú umiestnené (napr. štandardná URL adresa pre vyhľadávanie je napríklad http://www.nieco.sk/search=, tak viem za to dopĺňať vyhľadávaný kód produktu napríklad http://www.nieco.sk/search=kod_produktu) tak viem na akej URL to má systém hľadať. je nejaký spôsob, ako toto zautomatizovať ? ručne to viem spraviť, ale potrebujem aby to systém robil automaticky a tým pádom mi bude vedieť získavať informácie od konkurenice bez námahy.
Vopred vám ďakujem za rady či tipy.
Palo235
24.04.13,06:20
takto nacitas Html stranku:
Sub Test()
Const URL$ = "http://www.nieco.sk/ (http://www.nieco.sk/k)"
Dim txt As String, i As Long
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
txt = .ResponseText
End With
Cells(1, 1) = txt
End Sub
kedze kazda stranka je unikat tak som dalej ani nepokracoval :)
ale co mozem poradit ked uz ziskas string udaj rozsekaj si ho na riadky a tie potom precisti
:))
Sub Test()
Const URL$ = "http://www.nieco.sk/ (http://www.nieco.sk/k)"
Dim txt As String, i As Long
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
txt = .ResponseText
End With
Cells(1, 1) = txt
End Sub
kedze kazda stranka je unikat tak som dalej ani nepokracoval :)
ale co mozem poradit ked uz ziskas string udaj rozsekaj si ho na riadky a tie potom precisti
:))