2012-07-04から1日間の記事一覧
For Each objITEM In objIE.Document.Links If objITEM.tagName = "A" Then strpos = InStr(objITEM.href, "探しているhref") If strpos <> 0 Then objITEM.Click Sleep (500) IE_Complete objIE Exit For End If End If Next
For Each objITEM In objIE.Document.Links If objITEM.tagName = "A" Then strpos = InStr(objITEM.href, "探しているhref") If strpos <> 0 Then objITEM.Click Sleep (500) IE_Complete objIE Exit For End If End If Next