Взаимодействие с веб-страницей с помощью VBA

Я просто хочу знать следующее:

  1. Как мне войти на страницы с помощью VBA?
  2. Как мне нажимать на различные параметры на веб-странице с помощью VBA?
  3. Как ввести текст в необходимые формы на веб-странице с помощью VBA?

dom vba msxml
person Raghavan R R    schedule 02.11.2016    source источник
comment
Добро пожаловать в переполнение стека :-) пожалуйста, посмотрите, как как спросить. Этот сайт не является генератором кода.   -  person JimHawkins    schedule 02.11.2016
comment
Вы можете просто правильно выполнить поиск в StackOverflow. В частности, выполните поиск тегов [vba] и [mshtml] (stackoverflow.com/questions/tagged/mshtml % 20vba? Mode = all).   -  person Zev Spitz    schedule 02.11.2016
comment
Возможный дубликат чтения веб-страниц с помощью Excel VBA   -  person Zev Spitz    schedule 02.11.2016

Ответы (1)


arrow_upward
0
arrow_downward

Вот классический пример того, как все это делать.

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_2_Website()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
sURL = "https://www.google.com/accounts/Login"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document

HTMLDoc.all.Email.Value = "[email protected]"
HTMLDoc.all.passwd.Value = "*****"

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Debug.Assert Err = 0
Err.Clear
Resume Next
End If
End Sub

Обязательно установите ссылки на: библиотеку объектов Microsoft HTML и элементы управления Microsoft Internet.

person Community    schedule 30.11.2016