ｖｂａ ｉｅ操作 ログインしたい

いつもお世話になっております。
前回ご回答いただいた方ありがとうございました。

またまた困ったことにログインしたいサイトがあるのですがうまくできません。

ＵＲＬはhttps://www.a-q-f.com/openpc/USB0100S01Action.do …
なのですが、ログインが二つあり、左側でログインしたいのですが、ボタンを押下できません。

****************************************************
Sub 永久不滅ドットコム()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True
objIE.Navigate "https://www.a-q-f.com/openpc/USB0100S01Action.do …

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop

objIE.Document.all.ID.Value = "test"
objIE.Document.all.idPassword.Value = "test"

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop

For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then '何も起こらない
objIE.Document.Links(i).Click
Exit For
End If
Next i

objIE.Document.Forms(0).Click '何も起こらない
objIE.Document.Forms(0).Submit 'エラーになる

Set objIE = Nothing
End Sub
****************************************************

をやってみましたが無理でした・・・
ご教授よろしくお願いします。

No.2 ベストアンサー 回答者： ki-aaa 回答日時： 2012/11/17 09:35

こんにちわ

これでどうかな?

Dim myObj As Object
For Each myObj In objIE.Document.Forms(0).All
'For Each myObj In objIE.Document.Forms(0).Elements
If TypeName(myObj) = "HTMLInputElement" Then
If myObj.alt = "ログイン" Then
myObj.Click
Exit For
End If
End If
Next


'For Each myObj In objIE.Document.Forms(0).Elementsで良いと思ったけどだめだった。

この回答へのお礼

回答ありがとうございました。

お礼日時：2012/11/19 00:35

No.1 回答者： todo36 回答日時： 2012/11/15 12:07

ログインボタンは、

<A>

ではなく

<INPUT TYPE=IMAGE>

である。

よって、Document.Linksコレクションから拾えない。

Document.Forms(0).Elementsで回す。

この回答へのお礼

回答ありがとうございました。

お礼日時：2012/11/19 00:35