●EXCEL・VBAの教えてスレ Part2●

●EXCEL・VBAの教えてスレ Part2● at TECH

338:デフォルトの名無しさん
07/02/22 15:30:03
　　row = 1
For Each a In IEobj.Document.body.getElementsByTagName("A")
If InStr(a.href, "URLﾘﾝｸ(xxx.com)) <> 0 Then
x = a.href
Worksheets(1).Cells(row, 1).Value = x
row = row + 1
End If
Next a
こんな感じのURLなのですが、同じアドレスは二度書き込まない風にできますか？

次ページ

続きを表示

1を表示