首先,確保已經安裝了Microsoft Internet Controls reference。在VBA編輯器中,單擊工具>;“參考”並選擇“Microsoft Internet Controls”。
然後,在代碼模塊中插入以下代碼:
選項顯式
Sub GetNextPageButton()
Dim IE作為InternetExplorer
將HTMLdoc標註為HTMLDocument
Dim nextPageButton作為HTMLAnchorElement
創建Internet Explorer的實例
Set IE =新的InternetExplorer
輸入您要爬網的網頁的URL。
即。瀏覽""
等待頁面加載。
邊做邊做。忙還是IE。ReadyState & lt& gt就緒狀態_完成
多項活動
環
獲取網頁的HTML內容
設置HTMLdoc = IE。文件
查找下壹個按鈕
set next page button = html doc . query selector(" a . change page[page = ' 2 ']")
輸出下壹步按鈕的文本。
如果不是nextPageButton則什麽都不是
MsgBox "下壹步按鈕:" &;nextPageButton.innerText
其他
MsgBox“找不到下壹步按鈕”
如果…就會結束
關閉Internet Explorer的實例。
即。放棄
設置IE =無
末端接頭
在代碼中修改網頁的網址,替換成妳要爬的實際網址。
運行代碼,它將獲得下壹個按鈕,並顯示壹個包含按鈕文本的消息框。
註意:由於VBA的Internet Explorer已經過時,在某些情況下可能無法正常工作,您可以考慮使用更現代的網絡爬蟲技術,如Python的BeautifulSoup或Selenium library。