Tag: 网页刮

如何使用VBA从多个超链接中删除文本

第一次发帖，我很抱歉，如果答案是明显的。 我做了一些search，并通过这个post和一些谷歌search，设法组装这个Excel的VBAmacros： Sub GetFeats() Dim SourceCell As Range Dim FeatText As String Dim TargetCell As Range Dim appIE As Object Set appIE = CreateObject("internetexplorer.application") Visible = True For Each SourceCell In Sheets("Sheet2").Range("A2:A3200") With appIE .Navigate SourceCell .Visible = True End With Do While appIE.Busy DoEvents Loop FeatText = appIE.document.getElementById("content") For Each TargetCell In Sheets("Sheet2").Range("B2:B3200") b2 […]