excel vba登錄到使用vba的網頁？

我想在excel中使用vba登錄我的用戶名和密碼的網站。由於某種原因，我的用戶定義的錯誤在我的頂線上，有人可以告訴我我哪裏出錯了。由於excel vba登錄到使用vba的網頁？

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

來源

2014-11-21 kyle ridge

在VBA編輯器去工具，引用...並啓用Microsoft HTML對象庫和Microsoft Internet控制

編輯：啓用庫的名單保存在工作簿中。因此，任何打開工作簿的用戶都應啓用庫。如果用戶有不同版本的庫（如Office 2003和Office 2010），則可能會出現問題。比原來的圖書館丟失，無法加載。但這不是你的情況。

這是您如何從代碼動態管理庫的示例。檢查Outlook庫是否已加載，如果不是，則從文件中激活它（對於其他庫從工具中獲取正確路徑，參考...）。

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"

來源

2014-11-21 09:14:02 Radek

謝謝，你知道這是否可以使用vba啓用？因爲我想與可能不知道如何執行此操作的其他用戶分享此工作簿 – 2014-11-21 10:00:10

這似乎不能解決我的錯誤 – 2014-11-21 11:45:21

excel vba登錄到使用vba的網頁？

回答

相關問題