|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
源码如下:
Sub FindDigikeyLink()
On Error Resume Next
Dim tt$
Dim url$, w3$, w2$, w1$
url = "http://www.digikey.com/product-search/en/resistors/chip-resistor-surface-mount/65769?"
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", url, False
.Send
tt = .responsetext
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
tt = Replace(tt, vbCrLf, "")
tt = Replace(tt, "</font></b></td> <td width=""392""><font size=""2"">", "")
End With
End Sub
|
|