Ես փորձում եմ կառուցել վեբ քերիչ՝ օգտագործելով vba. Ես ուզում եմ տվյալների (փողոցի հասցե, փոստային ինդեքս և տեղանք) հանել կայքից աշխատանքային թերթ, բայց խնդիրներ ունեմ:
<li id="ctl00_ctl00_cphMain_cphMainCol_CompanyDetailsInfoData1_liAddress" class="i-location" itemprop="address" itemscope="" itemtype="http://schema.org/Address">
<a href="javascript:void(0);" id="ctl00_ctl00_cphMain_cphMainCol_CompanyDetailsInfoData1_aShowOnMap" onclick="openMapTis(517648, 57522, 'KOVINARSTVO IVANETIČ d.o.o.|Omota 8 |Semič');">
<span itemprop="street-address">Omota 8</span>, <span itemprop="settlement">Omota</span>, <span itemprop="postal-code">8333</span> <span itemprop="locality">Semič</span>
</a>
</li>
Sub CompanyData()
Dim ie As InternetExplorer
Dim ht As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
'searching web address
ie.navigate ("https://www.bizi.si")
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
'searching company
Set ht = ie.document
ht.getElementsByTagName("Input").Item("ctl00$Search1$tbSearchWhat").Value = ThisWorkbook.Sheets("Podatki").Range("A1").Value
'click on search result
Set elems = ht.getElementsByTagName("a")
For Each elem In elems
If elem.className = "i-search" Then
elem.Click
Exit For
End If
Next
Application.Wait (Now + TimeValue("0:00:06"))
Set AllHyperLinks = ht.getElementsByTagName("a")
For Each hyper_link In AllHyperLinks
If hyper_link.innerText = Range("A1").Value Then
hyper_link.Click
Exit For
End If
Next
Application.Wait (Now + TimeValue("0:00:06"))
gf = ht.getElementsByTagName("span")(0).innerText
gf = Range("B2")
End Sub
Ես ուզում եմ տվյալների (փողոցի հասցե, փոստային ինդեքս և տեղանք) հանել կայքից աշխատաթերթ: