|
Linkをクリックするコードはありますが IE.Document から「テクノファイブ株式会社」
のリンクを特定する手段がないのです。無理にやろうとすると、Document.InnerHTML
を取得して、その文字列からInStr関数などで「テクノ」を検索、さらにそこから
InStrRev関数で "http" と " を探してMid関数でURL部分を切り出す・・というような
面倒な処理が必要になりますし、結果としてURLが分かれば Navigate するのが一番
簡単だから、リンクのクリックというコードにはならないのです。
ま、いちおう今後、何かの参考になるかも知れないので、リンクのクリックをする
コードのサンプルを提示しておきます。
Sub MyIE_Link()
Dim i As Integer
Const URL As String = "http://www.vbalab.net/"
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate URL
Do While .Busy: DoEvents: Loop
Do Until .ReadyState = 4: DoEvents: Loop
With .Document
For i = 0 To .links.Length - 1
If .links(i).href = "http://www.techno5.net/" Then
.links(i).Click: Exit For
End If
Next i
End With
End With
End Sub
|
|