excel vbalogin到使用vba的网页？

我想在Excel中使用VBAlogin与我的用户名和密码的网站。 由于某种原因，我得到了一个用户定义的错误在我的上限，有人可以告诉我我要去哪里错了。 谢谢

Dim HTMLDoc As HTMLDocument Dim MyBrowser As InternetExplorer Dim MyHTML_Element As IHTMLElement Dim MyURL As String On Error GoTo Err_Clear MyURL = "https://hewdenapps/RDWeb/Pages/en-US/default.aspx" Set MyBrowser = New InternetExplorer MyBrowser.Silent = True MyBrowser.navigate MyURL MyBrowser.Visible = False Do Loop Until MyBrowser.readyState = READYSTATE_COMPLETE Set HTMLDoc = MyBrowser.document HTMLDoc.all.Email.Value = "obrianm" HTMLDoc.all.passwd.Value = "Perry2012" For Each MyHTML_Element In HTMLDoc.getElementsByTagName(“input”) If MyHTML_Element.Type = “submit” Then MyHTML_Element.Click: Exit For Next Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If 

Answer 1

在VBA编辑器中，转至工具 ， 参考…并启用Microsoft HTML对象库和Microsoft Internet控件

编辑：启用库的列表保存在工作簿中。 因此，任何打开工作簿的用户都应该启用这些库。 问题可能出现在用户有不同版本的库时（如Office 2003 vs Office 2010）。 比原来的库缺失，无法加载。 但这不是你的情况。

这是你如何从代码dynamicpipe理库的例子。 检查Outlook库是否被加载，如果不是，则从文件中激活它（对于其他库，从工具，参考文献中获得正确的path）。

 For Each r In ThisWorkbook.VBProject.References If UCase(r.FullPath) = UCase("C:\Program Files (x86)\Microsoft Office\Office14\MSOUTL.OLB") Then boo_Hit = True Next If boo_Hit = False Then ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files (x86)\Microsoft Office\Office14\MSOUTL.OLB"