Как связать зарегистрированные веб-страницы с Excel

Question

Как связать данные с определенной веб-страницы пользователя, то есть вам нужно войти в систему (например, последователи Instagram или друзья Facebook) и т. Д. В электронную таблицу?

Из того, что я вижу, параметр «Данные -> От веб» позволяет вам делать это только с открытых веб-страниц, то есть тех, которые вам не нужны для входа в систему и не являются конкретными для пользователя.

Есть ли способ, которым я могу это сделать в Excel?

Моя причина для этого в Excel - я думаю, что вариант VBA упростит мой рабочий стол. Другим вариантом было бы программировать это, используя язык кодирования, который я снова мог бы сделать, но мне нужно было учиться с нуля, поскольку я не знаю (любые предложения здесь тоже будут полезны!)

Answer 1

Это должно быть достаточно, чтобы вы начали.

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 = "sample@vbadud.com" 
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 

http://vbadud.blogspot.com/2009/08/how-to-login-to-website-using-vba.html