jrkraucher
07-11-2016, 07:00 PM
Dear experts
I have a form with a textbox called "TBenderecoweb" where I put the URL for navigation and a button through which to start the macro posted below.
Sub ReadNet()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
'.Visible = False
.Navigate TBEnderecoWeb
Do Until .ReadyState = 4: DoEvents: Loop
End With
IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
IE.Quit
End Sub
What I would like would be to use this kind of form to browsing with Firefox, but did not find the corresponding to senkeys
IE.ExecWB 17 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
Can anyone help me?
Thanks
I have a form with a textbox called "TBenderecoweb" where I put the URL for navigation and a button through which to start the macro posted below.
Sub ReadNet()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
'.Visible = False
.Navigate TBEnderecoWeb
Do Until .ReadyState = 4: DoEvents: Loop
End With
IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
IE.Quit
End Sub
What I would like would be to use this kind of form to browsing with Firefox, but did not find the corresponding to senkeys
IE.ExecWB 17 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
Can anyone help me?
Thanks