webscrape

[Favourit]

Ahoj, můžeš mi prosím poradit? Už 14 dní řeším jeden problém a že se snažím po přihlášení poškrábat jeden obsah z webu, vytvořit jsem kód ve VBA, ale nevím, co dál, musím dostat dostatečnou kategorii a podkategorii a škrábání dat, zatím mi stačí pouze přihlásit a vyvinout IE .

Děkuji mnohokrát

Dílčí přihlášení ()
„run web
Nastavit i = nový InternetExplorer
i.Visible = True

i.navigate ("XXXXX design")

Proveďte While i.readyState <> READYSTATE_COMPLETE

Smyčka

Dim idoc Jako MSHTML.HTMLDocument
Dne idoc = i.document

„Přihlašovací web

idoc.all.txtname.Value = "xxx"
idoc.all.txtPassword.Value = "xxxxx"

Dim ele As MSHTML.IHTMLElement

Dim eles As MSHTML.IHTMLElementCollection
Nastavit eles = idoc.getElementsByTagName ("tlačítko")


Pro každého jedince

If ele.Type = "submit" Then
ele. Klikněte

Jiný

Konec, pokud


Další ele




End Sub

 

[Favourit]

Hi, can you please advise? I've been solving one problem for 14 days and that I try to scratch one content from the web after logging in, I made the code in VBA but I don't know what to do next, I need to get into the category and subcategory and scratch the data, so far I only managed to log in and develop IE.

thank you very much

Sub Login ()

'run web
Set i = New InternetExplorer
i.Visible = True

i.navigate ("https://xxxx.cz/")

Do While i.readyState <> READYSTATE_COMPLETE

Loop

Dim idoc As MSHTML.HTMLDocument
Set idoc = i.document

'Login web

idoc.all.txtname.Value = "xxxx"
idoc.all.txtPassword.Value = "xxxxx"

Dim ele As MSHTML.IHTMLElement

Dim eles As MSHTML.IHTMLElementCollection
Set eles = idoc.getElementsByTagName("button")


For Each ele In eles

If ele.Type = "submit" Then
ele.Click

Else

End If


Next ele




End Sub