我嘗試用IE是可以實現的,不過IE實在是太難用了,我想用firefox,搞騰了好久無法實現。IE的代碼如下,請教能否轉成用firefox,感恩
Private Sub R_Click()
Dim IE As New SHDocVw.InternetExplorer
With IE
.Visible = True
.navigate "https://****************"
Do While .ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
End With
IE.Document.all("rm").Value = Me.RMANO.Value
IE.Document.all("btnContinue").Click
End Sub
uj5u.com熱心網友回復:
下載Firefox驅動,參考python的selenium模塊相關知識點和這個鏈接的知識點應該可以做到http://club.excelhome.net/thread-1452021-1-1.html
uj5u.com熱心網友回復:
我嘗試用shell Shell "C:\Program Files\Mozilla Firefox\firefox.exe https://****************",這個是可以啟動firefox,可是無法用IE.Document,查不到類似的Code,能否幫忙寫一段,拜謝uj5u.com熱心網友回復:
這種方式不好做,你就按我上面跟你說的方式是可以做到的uj5u.com熱心網友回復:
由于實在是寫不出來,有哪位大佬幫忙寫下面的代碼功能轉化成用firefox通過access的字符填入網頁,然后執行點擊,代碼如下,如果可以執行的話,小弟用意交200塊學費,感謝Private Sub R_Click()
Dim IE As New SHDocVw.InternetExplorer
With IE
.Visible = True
.navigate "https://****************"
Do While .ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
End With
IE.Document.all("rm").Value = Me.RMANO.Value
IE.Document.all("btnContinue").Click
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/236780.html
標籤:VBA
上一篇:vb command.text的read為什么讀不到資料?
下一篇:如何用路徑給按鈕添加位圖?
