excel vba问题!求求大神!红包在线等!
Sub 试试()
Dim KW, Su
With CreateObject(“InternetExplorer.Application”)
.navigate “http://cmdpms.wilmar.cn”
.Visible = True
Do Until .readyState = 4
DoEvents
Loop
.document.getElementsByClassName(“ivu-input ivu-input-default”)(0).Value = Cells(1, 4)
.document.getElementsByClassName(“ivu-input ivu-input-default”)(0).Focus
.document.getElementsByClassName(“ivu-input ivu-input-default”)(1).Value = Cells(1, 9)
.document.getElementsByClassName(“ivu-btn ivu-btn-primary ivu-btn-long ivu-btn-large”)(0).Click
End With
Set Su = Nothing
Set KW = Nothing
End Sub
明明赋值成功了,可是点登录时,提示值为空!