16,549
社区成员
发帖
与我相关
我的任务
分享
Dim BuyIE As SHDocVw.InternetExplorer
Dim BuyWinFolder As New SHDocVw.ShellWindows
For Each Me.BuyIE In BuyWinFolder
If InStr(1, Me.BuyIE.FullName, "", vbTextCompare) <> 0 Then
If InStr(1, Me.BuyIE.LocationURL, "https://item.taobao.com/item.htm?id=", vbTextCompare) <> 0 Then
'到这里就找到地址里包含"www.taobao.com"的IE窗口了
TextBox2.Text=Me.SellIE.Document.Body.InnerText
Exit For
End If
End If