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なのですが、同じアドレスは二度書き込まない風にできますか？
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なのですが、同じアドレスは二度書き込まない風にできますか？