源代碼 如何通過(guò)網(wǎng)頁(yè)源代碼來(lái)提取網(wǎng)頁(yè)中的圖片？
如何通過(guò)網(wǎng)頁(yè)源代碼來(lái)提取網(wǎng)頁(yè)中的圖片？Dim URL As StringDim MySheet As ObjectDim MyBrowser As ObjectSet MyBrowser=UserFo
如何通過(guò)網(wǎng)頁(yè)源代碼來(lái)提取網(wǎng)頁(yè)中的圖片？
Dim URL As String
Dim MySheet As Object
Dim MyBrowser As ObjectSet MyBrowser=UserForm1.WebBrowser1
設(shè)置MySheet=此工作簿。工作表(“測(cè)試”)
MySheet.Cells.NumberFormat格式=“@”
。導(dǎo)航URL
Do Until.ReadyState=4
DoEvents
Loop
End With
設(shè)置MyBrowser=Nothing End Sub