Predmet:Re:VBA scraping
Citiraj pmiroslav:Dobar dan.
Isprobavam ovo i funkcija radi kada ju pokrenem u VBA editoru. Za Access znam ali mi nije potpuno jasno kako se funkcija poziva kada se otvoru Excel sheet?
ja sam to napravio ovako:
u module1 dodao sam jos ovo:
Sub proba()
Call test
End Sub
zatim sam na List1 stavio tipku na ovaj nacin:
cijeli kod. Nakon sto se pokaze vic ako pritisnemo OK, pokaze sljedeci vic a ako kliknemo na cancel vrati nas na List1 tj, izade iz funkcije
PreuzmiIzvorni kôd (Visual Basic):Sub proba()
Call test
End Sub
Function test()
Dim odgovor
the_start:
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.Visible = False 'We will see the window navigation
On Error Resume Next
objIE.Navigate ("https://icentar.ba/icentar/showtopic.php?id=22")
Do
DoEvents
If Err.Number <> 0 Then
objIE.Quit
Set objIE = Nothing
GoTo the_start:
End If
Loop Until objIE.ReadyState = 4
Dim AllString As String
Set Alllinks = objIE.Document.getElementsByTagName("div")
For Each Hyperlink In Alllinks
ime = Hyperlink.className
If ime = "bbody iefix_left" Then
AllString = Hyperlink.innerText
odgovor = MsgBox(AllString, vbOKCancel)
If odgovor = vbCancel Then Exit Function
End If
Next
Set objIE = Nothing
End Function
za svaku web stranicu drugacije treba prilagoditi kod jer ne sadrze sve tekst vica izmedu div, neke imaju u <a> ili <p>
Tako da ne postoji univerzalni kod za skidanje sadrzaja web stranice vec ga moramo rucno prilagoditi.
Treba sa firefox otvoriti web lokaciju a zatim izabrati u meniju firefoksa-vise alata-pokazi izvornu web stranicu i onda prouciti gdje se nalazi tekst koji zelimo skinuti i prilagoditi kod
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 12.04.2022 08:53 od strane Avko.