2021-02-19

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

明明赋值成功了，可是点登录时，提示值为空！