Question

如何将用户特定网页的数据（例如您需要登录的用户（例如Instagram粉丝或Facebook好友）等）链接到电子表格？

从我所看到的，数据 - ＆gt;从Web选项中，只允许您从打开的网页进行操作，即那些您不需要登录并且不是特定于用户的网页。

我有办法在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

如何将登录的网页链接到Excel

1 个答案: