エクセルVBA IEの操作

質問

こんにちは、　エクセルVBAでIEの操作の質問です。

IEで特定の文字列をクリックするマクロはどのような記述になりますでしょうか？
たとえば　OKWEBのランキングをクリックする場合はどのようになりますか？

http://okwave.jp/mypage　から　右上　ランキング　という文字をクリックする場合です。

実際にやりたいことは、電子取引ホームページの　（PHPで作成されているのかな？　動的なホームページです。）請求書番号を検索してそれを
クリックして画面を保存という作業です。イントラなんで　ここではURLを公表することが
できないため、　OKWEBを一例とさせていただきました。

　会社のパソコンでやりたいので　UWSC等のフリーソフトも簡単に導入できないし、エクセルならVBA利用は制限されてないので　VBAでやろうと考えてます。

回答No.2

nan93850673 · ベストアンサー

Sub xxx()
Dim ie As InternetExplorer ' 参照設定：Microsoft Interbet Controls
Dim doc As MSHTML.HTMLDocument ' 参照設定：Mictosoft HTML Object library
Dim idx As Integer

Set ie = New InternetExplorer
ie.Visible = True

ie.navigate "http://okwave.jp/mypage"
waitIE ie

Set doc = ie.document
For idx = 0 To doc.Links.Length - 1
If doc.Links(idx).Text = "ランキング" Then
doc.Links(idx).Click
Exit For
End If
Next idx
End Sub

Private Sub waitIE (ie As InternetExplorer)
Do While ie.readyState <> 4 Or ie.Busy = True
DoEvents
Loop
End Sub

お礼

とても参考になりました　ありがとうございました。