Onesto (Автор тем)

Дата последнего обновления

Onesto Пользователь Сообщений: 3 Регистрация: 06.04.2016	# 06.11.2019 10:00:49 Добрый день! Есть подключение к серверу, но в поле последнее обновление не отображает дату и время. В чем может быть причина и как ее решить? help please!!! Изменено: Onesto - 06.11.2019 17:43:34
	Перейти

Получить ссылку из <a href =

Onesto

Пользователь

Сообщений: 3 Регистрация: 06.04.2016

06.04.2016 20:08:05

Добрый день, дорогие форумчане!

Помогите "чайнику" понять как вытащить адрес ссылки в переменную из <a href = ( только начал изучать VBA, HTML, DOM )-?

Код

Sub my_first_parser()
Dim iExp As Object
Dim htmlDoc As HTMLDocument
Dim uRL As String
Dim namePr, namePr2  As Object
Set iExp = New InternetExplorer
iExp.Visible = True
iExp.navigate "[URL=http://homearts.ru/shop]http://homearts.ru/shop[/URL]"
  Do While iExp.Busy = True Or iExp.READYSTATE <> 4: DoEvents: Loop
Set htmlDoc = iExp.Document
For Each namePr In htmlDoc.getElementById("menu").getElementsByTagName("li")
 For Each namePr2 In namePr.getElementsByTagName("li") 
      Debug.Print namePr2.innerHTML  
 Next
Next

iExp.Quit
End Sub

Перейти