【原】WebBrowser控件自動(dòng)提交表單

VBA說(shuō) 2020-04-07

展開(kāi)全文

﹥﹥先給大家看看效果：（自動(dòng)填寫(xiě)注冊(cè)頁(yè)面的表單數(shù)據(jù)）

這個(gè)效果稍做改變，加個(gè)循環(huán)，就可以實(shí)現(xiàn)批量填入網(wǎng)頁(yè)表單數(shù)據(jù)，并自動(dòng)提交。（備注：公司內(nèi)部的表單一般是不會(huì)有驗(yàn)證碼的，所以暫時(shí)不用考慮識(shí)別驗(yàn)證碼的工作。）

這就是WebBrowser控件的強(qiáng)大之處。下面就教大家如何實(shí)現(xiàn)上述網(wǎng)頁(yè)自動(dòng)化的效果。

﹥﹥何為WebBrower?

WebBrowser 是微軟提供的一個(gè)用于瀏覽網(wǎng)頁(yè)的 ActiveX 控件，是植入在程序中一個(gè)控件，網(wǎng)頁(yè)顯示在窗體中.可以利用WebBrowser 對(duì)網(wǎng)頁(yè)進(jìn)行控制，進(jìn)行一些操作。

在VBA中WebBrowser 控件插入到 VBA 的用戶(hù)窗體、一般情況下，VBA 的控件工具箱中找不到該控件，需要在控件工具箱點(diǎn)擊右鍵，在右鍵菜單中選擇“附加控件”，在附加控件對(duì)話(huà)框中，找到“Microsoft Web Browser”并且勾選。

控件工具箱中出現(xiàn)一個(gè)地球形狀的控件，這樣就可以把該控件和其他控件一樣，拖放到用戶(hù)窗體中使用。

﹥﹥制作方法：

■第一步：拖拽控件到窗體上，添加兩個(gè)按鈕。一個(gè)是打開(kāi)網(wǎng)頁(yè)按鈕，一個(gè)是填入數(shù)據(jù)按鈕、一個(gè)點(diǎn)擊【提交按鈕】的按鈕。（實(shí)際可以合為一個(gè)按鈕，這里只是為了方便演示操作）

■第二步：分析網(wǎng)頁(yè)結(jié)構(gòu)，找出需要填寫(xiě)的表單文本框ID，還有提交按鈕的ID。

網(wǎng)頁(yè)F12調(diào)出開(kāi)發(fā)者工具，可以看到，對(duì)應(yīng)于網(wǎng)頁(yè)上具體的控件內(nèi)容，都有具體的html代碼。

找到填寫(xiě)昵稱(chēng)的代碼段，我們看到，昵稱(chēng)文本框的ID為"inputName"，這就是我們需要的。用相同的方法，找到其他幾個(gè)文本框的ID。

■第三步：雙擊"打開(kāi)網(wǎng)頁(yè)"按鈕，填入以下代碼；

Private Sub CommandButton1_Click()
    UserForm1.WebBrowser1.Navigate "http://zc.7k7k.com/"
    UserForm1.WebBrowser1.Silent = True'禁止安全彈窗提醒
End Sub

雙擊"填入數(shù)據(jù)"按鈕，填入以下代碼

Private Sub CommandButton2_Click()
    With UserForm1.WebBrowser1.Document
        .getElementById("inputName").Value = Range("a2")
        .getElementById("inputPwd").Value = Range("b2")
        .getElementById("inputRePwd").Value = Range("b2")
        .getElementById("inputRealName").Value = Range("c2")
        .getElementById("inputCardId").Value = Range("d2")
    End With
End Sub

雙擊"點(diǎn)擊按鈕"按鈕，填入以下代碼：（實(shí)現(xiàn)提交按鈕的點(diǎn)擊）

Private Sub CommandButton3_Click()
    Set doc = UserForm1.WebBrowser1.Document
    For i = 0 To doc.All.Length - 1
       If (LCase(doc.All(i).tagname)) = "input" Then
            If (LCase(doc.All(i).Type)) = "submit" Then
                Set tg = doc.All(i)
                tg.Click
                Exit Sub
            End If
        End If
    Next i
End Sub