Question

vba 有else执行if，没else不执行if

For i = 398 To ieA.document.all.Length - 1
If UCase(ieA.document.all(i).tagname) = "A" Then
''MsgBox ieA.document.all(i).outertext
If UCase(ieA.document.all(i).outertext) = "进口大豆价格日报（08月17日）" Then
MsgBox "aaaaaa"
ieA.document.all(i).Click
Else
MsgBox ieA.document.all(i).outertext

End If
End If
Next i

Answer 1

你讲的什么意思呀？？？晕
For i = 398 To ieA.document.all.Length - 1
If UCase(ieA.document.all(i).tagname) = "A" Then
If UCase(ieA.document.all(i).outertext) = "进口大豆价格日报（08月17日）" Then
MsgBox "aaaaaa"
ieA.document.all(i).Click
Else
MsgBox ieA.document.all(i).outertext
End If
Else
MsgBox ieA.document.all(i).outertext
End If
Next i

追问

ieA是一个InternetExplorer.Application对象。我想找到叫进口大豆价格日报（08月17日）的超链接，并点击。如果去掉Else MsgBox ieA.document.all(i).outertext ，ieA.document.all(i).Click就不执行。

Answer 2

判断readyState了没?网页没有下载完,就不能点

追问

我在ieA.document.all(i).Click前面Then后面加了
Do Until ieA.readyState = 4
DoEvents
Loop
还是不行