Sub test()
Dim ie, dmt, bd
Set ie = CreateObject("InternetExplorer.Application") '創建一個IE物件
With ie
.Visible = False '顯示它
.navigate "E:\temp\divcss.html" '加載某個頁面
Do Until .readyState = 4 '等待頁面加載完畢
DoEvents
Loop
Set dmt = .document '將IE瀏覽器加載的頁面檔案,賦予dmt變數
'開始操縱頁面,或者提取資料啦
Set bd = dmt.body
End With
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/132482.html
標籤:VBA
上一篇:關于VB小問題
