分享成果，隨喜正能量】修學(xué)務(wù)早，及其精專，習(xí)與性成，不異自然也。值得我們用一生去學(xué)習(xí)的，就是學(xué)習(xí)什么該做，什么不該做，在自己心中畫個(gè)圈，干了出圈的事情，傷害的是自己。。

《VBA信息獲取與處理》教程是我推出第六套教程，目前已經(jīng)是第一版修訂了。這套教程定位于最高級(jí)，是學(xué)完初級(jí)，中級(jí)后的教程。這部教程給大家講解的內(nèi)容有：跨應(yīng)用程序信息獲得、隨機(jī)信息的利用、電子郵件的發(fā)送、VBA互聯(lián)網(wǎng)數(shù)據(jù)抓取、VBA延時(shí)操作，剪貼板應(yīng)用、Split函數(shù)擴(kuò)展、工作表信息與其他應(yīng)用交互，F(xiàn)SO對(duì)象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內(nèi)容。程序文件通過32位和64位兩種OFFICE系統(tǒng)測(cè)試。是非常抽象的，更具研究的價(jià)值。

教程共兩冊(cè)，八十四講。今日的內(nèi)容是專題八“VBA與HTML文檔”：表單對(duì)象的提交與反饋

第七節(jié) HTML DOM的對(duì)象事件及關(guān)聯(lián)

HTML DOM 允許 JavaScript（腳本語言） 對(duì) HTML 事件作出反應(yīng)，當(dāng)事件發(fā)生時(shí)，如當(dāng)用戶點(diǎn)擊一個(gè) HTML 元素時(shí)，可以執(zhí)行 JavaScript。一般來講這些事件包括：

用戶點(diǎn)擊鼠標(biāo)時(shí)；網(wǎng)頁已加載；圖片已加載；鼠標(biāo)移動(dòng)到元素上；輸入字段被改變；HTML 表單被提交；用戶觸發(fā)按鍵

在我的第五套教程《VBA中類的解讀及應(yīng)用》中我非常系統(tǒng)的講解了事件的含義，事件主要是對(duì)象的響應(yīng)，我們這節(jié)就幾個(gè)實(shí)例給出幾個(gè)對(duì)象的常用響應(yīng)有的是事件本身，有的是相關(guān)的操作。

1 表單對(duì)象的提交與反饋

表單form對(duì)象，有一個(gè)方法比較重要，就是submit，這個(gè)方法提供了表單的提交的動(dòng)作。如果我們捕捉頁面的提交按鈕非常困難時(shí)，有時(shí)候只要對(duì)表單，執(zhí)行submit方法，表單也是可以提交的，不需去點(diǎn)擊提交按鈕。

表單控件，是文本輸入類控件，最常用就是value的屬性了，通過這個(gè)屬性，可以往文本框里面添加文本。

單選框、復(fù)選框，常用的是checked屬性，如果為true就是被選中了，或者直接使用click方法也行。

下拉列表，如果是單選列表框，可通過selectedIndex屬性去設(shè)置選中項(xiàng)（下拉選項(xiàng)，從1開始編號(hào)，如2就是選擇下拉列表的第二個(gè)選項(xiàng)），也可以通過value屬性，直接把value指定為要選定的option的value即可，但多選列表框不可用這兩個(gè)屬性。另外，所有類別的列表框，都可以通過其內(nèi)含對(duì)象集合options()，設(shè)置某個(gè)options(x)的selected屬性為true，來設(shè)置選中項(xiàng)。

還是以百度首頁為示例，我們用程序模擬鍵入查詢數(shù)據(jù)“VBA代碼解決方案”，然后提交查詢,在網(wǎng)頁中看看查詢的結(jié)果：

Sub MYNZB() '在百度首頁，提交表單

Dim ie, dmt, fm

Set ie = CreateObject("InternetExplorer.Application") '創(chuàng)建一個(gè)IE對(duì)象

With ie

.Visible = True '顯示它

.navigate "http://www.baidu.com" '加載某個(gè)頁面

Do Until .ReadyState = 4 '等待頁面加載完畢

DoEvents

Loop

Set dmt = .document '將IE瀏覽器加載的頁面文檔，賦予dmt變量

Set fm = dmt.forms("f") '用表單的名稱f，捕捉表單對(duì)象

dmt.all("kw").Value = "VBA代碼解決方案" '用搜索欄的id"kw"捕捉它，并鍵入VBA代碼解決方案

dmt.all.tags("input")(3).Click '用"百度一下"按鈕的input索引號(hào)捕捉它，并模擬按鈕的點(diǎn)擊

'fm.submit '模擬表單的提交，不一定要click

End With

End Sub

代碼截圖：

網(wǎng)頁返回的結(jié)果：

2 Table 對(duì)象數(shù)據(jù)的獲取

表格對(duì)象，也是我們提取網(wǎng)頁數(shù)據(jù)，最常打交道的對(duì)象了。其內(nèi)含rows對(duì)象集合，可以使我們?cè)L問表格內(nèi)的每行，每個(gè)row對(duì)象還內(nèi)含cells對(duì)象集合，使我們可以訪問其每行的每個(gè)單元格，讀取每個(gè)單元格的innertext屬性即可獲取我們所需每個(gè)單元格的文本。

另外，常用的屬性還有l(wèi)ength，這個(gè)類似我們VBA里面的count，都是返回某個(gè)對(duì)象的數(shù)量。

如下面代碼是提取實(shí)時(shí)股票漲跌的代碼：

Sub MYNZC()

Sheets("Sheet1").Select

Cells.Clear

Dim ie, dmt, tb, i&, j&

Set ie = CreateObject("InternetExplorer.Application") '創(chuàng)建一個(gè)IE對(duì)象

With ie

'.Visible = True '顯示它

.navigate "http://vip.stock.finance.sina.com.cn/mkt/#hqIndex" '加載某個(gè)頁面

Do Until .ReadyState = 4 '等待頁面加載完畢

DoEvents

Loop

Set dmt = .document '將IE瀏覽器加載的頁面文檔，賦予dmt變量

Set tb = dmt.all.tags("table")(4) '通過索引號(hào)捕捉表格對(duì)象

For i = 0 To tb.Rows.Length - 1 '歷遍其每個(gè)行

For j = 0 To tb.Rows(i).Cells.Length - 1 '歷遍每行的每個(gè)單元格

Cells(i + 1, j + 1) = tb.Rows(i).Cells(j).innertext '將其innertext寫入單元格

Next

Next

End With

End Sub

代碼截圖：

返回的結(jié)果：

4 圖片images對(duì)象地址的獲取

為了提取網(wǎng)頁中的圖片，我們需要這個(gè)圖片的鏈接，我們看看下面的代碼：

Sub MYNZD()

Dim ie, dmt

Set ie = CreateObject("InternetExplorer.Application") '創(chuàng)建一個(gè)IE對(duì)象

With ie

.Visible = True '顯示它

.navigate "https://baijiahao.baidu.com/s?id=1633425158454774294" '加載某個(gè)頁面

Do Until .ReadyState = 4 '等待頁面加載完畢

DoEvents

Loop

Set dmt = .document '將IE瀏覽器加載的頁面文檔，賦予dmt變量

Debug.Print dmt.images(1).src '讀取圖片的URL

End With

End Sub

代碼截圖：

5 Anchor 對(duì)象

文檔中 <a> 標(biāo)簽每出現(xiàn)一次，就會(huì)創(chuàng)建 Anchor 對(duì)象。這個(gè)就沒啥好示例的了，href屬性返回被鏈接的URL，click可以模擬超鏈接被點(diǎn)擊了。

這節(jié)涉及到的內(nèi)容較多，希望大家在 的基礎(chǔ)上修正代碼加以使用。

本節(jié)知識(shí)點(diǎn)回向：

如何提交表單？如何下載圖片的地址？如何獲得表的數(shù)據(jù)？

本節(jié)參考文件：008工作表.xlsm

我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中，教程學(xué)習(xí)順序：

【分享成果，隨喜正能量】在外的好脾氣，是為人的圓滑，讓你收獲好人緣；在家的好脾氣，是最貴的修養(yǎng)，讓你你收獲最好的幸福！。