Poradna - stahování dat z webu
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
stahování dat z webu - diskuze na toto téma |
Dobrý den,
měl bych prosbu, ale nevím jak zda je to vůbec možné...
potřeboval bych pomocí VBA stahovat data (čísla) z webu.
př: chtěl bych ze stránek http://www.czc.cz/hp-250-g3-cerna_2/155258/produkt
stáhnout objednávací kód "155258" do buňky "B2"
tímto ale nemyslím použít fci "data - z webu" a proklikat to..
předem děkuji za jakoukoliv pomoc :) Skús kód:
Sub wwwlist()
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;www.czc.cz/hp-250-g3-cerna_2/155258/produkt", Destination:=Range( _
"$A$2"))
.Name = "produkt"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Odpověď díky, ale tohle už je pro mě vyšší dívčí..
mohl bys mi to prosím hodit do excelu, snažil jsem se ale furt mi to tam házelo chyby a nejsem schopnej to dát do kupy, kor v takovýmhle rozsáhlým kódu.
Děkuji.. Odpověď děkuji za pomoc, nicméně toto mi stahuje celou stránku, šlo by nějak definovat aby to stáhlo pouze jednu hodnotu (nevím, třeba nějak ze zdrojového kódu podle řádku nebo tak něco?) Děkuji.. Odpověď děkuji za pomoc, nicméně toto mi stahuje celou stránku, šlo by nějak definovat aby to stáhlo pouze jednu hodnotu (nevím, třeba nějak ze zdrojového kódu podle řádku nebo tak něco?) Děkuji.. Odpověď Ak už máš stiahnutý web, t.j. a liste všetko čo potrebuješ, môžeš už zapojiť klasické hľadanie požadovaných dát (vzorcami, makrom). Pritom stiahnutá stránka môže byť na skrytom liste. Odpověď |