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
明明賦值成功了，可是點登陸時，提示值為空（紅色字）
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/262674.html
標籤：VBA
上一篇：VBS中使用ListView Control 6.0，只顯示列頭，不顯示內容是怎么回事？求大神指點
下一篇：CListbox重繪，item文本不能在表單初始化后立即顯示，需要對著listbox點幾下才能顯示？各路大神幫忙看看