I try to use IE is achievable, but it was too difficult to use the IE, I want to use firefox, make room for a long time can not be achieved, IE code is as follows, can consult to use firefox, Thanksgiving
Private Sub R_Click ()
Dim As New IE SHDocVw. InternetExplorer
With IE
The Visible=True
"Navigate https://* * * * * * * * * * * * * * * *"
The Do While the ReadyState & lt;> READYSTATE_COMPLETE
DoEvents
Loop
End With
IE. Document. All (" rm "). The Value=https://bbs.csdn.net/topics/Me.RMANO.Value
IE. Document. All (" btnContinue "). Click

End Sub

CodePudding user response:

Download Firefox drive, refer to the python selenium module related knowledge and knowledge of the link should be able to do
http://club.excelhome.net/thread-1452021-1-1.html

CodePudding user response:

I try to use the shell shell "C: \ Program Files \ Mozilla Firefox \ Firefox exe https://* * * * * * * * * * * * * * * *", this is can be restart Firefox, but unable to use IE. The Document, check less than similar Code, can help to write a paragraph, thank humbly

CodePudding user response:

This way is bad to do, you just the way I told you above is possible

CodePudding user response:

Because it is to write not to come out, what a big help to write down the code function into use firefox by access the character of fill in the web page, and then click, the HTML code is as follows, if you can perform, the younger brother was hand over 200 pieces of tuition fee, thank you
Private Sub R_Click ()
Dim As New IE SHDocVw. InternetExplorer
With IE
The Visible=True
"Navigate https://* * * * * * * * * * * * * * * *"
The Do While the ReadyState & lt;> READYSTATE_COMPLETE
DoEvents
Loop
End With
IE. Document. All (" rm "). The Value=https://bbs.csdn.net/topics/Me.RMANO.Value
IE. Document. All (" btnContinue "). Click
End Sub