ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   How to Clickbuttons on internet Explorer pages with Excel VBA (https://www.excelbanter.com/excel-programming/295163-how-clickbuttons-internet-explorer-pages-excel-vba.html)

Bobsa

How to Clickbuttons on internet Explorer pages with Excel VBA
 
I can open a instance of Internet explorer with VBA in excel fine an
using some code I found here... navigate to my required webpage but
then I need to click various buttons etc.... is the only way to do
this with sendkeys or can I refer to the various controls by name and
click them.

I start it up with this code below.

cheers

Bobsa


=====================

Dim IEObj As Object

Sub Test()


OpenIE "https://ibol38.ibb.ubs.com/"
End Sub

Public Sub OpenIE(vURL As String)

On Error GoTo ErrorHandler
IEObj.Visible = True
With IEObj
.Visible = True
.Navigate vURL
Do Until Not .Busy
DoEvents
Loop
End With
Exit Sub
ErrorHandler:
Set IEObj = Nothing
Set IEObj = CreateObject("InternetExplorer.Application")
Resume Next
End Sub

Chris

How to Clickbuttons on internet Explorer pages with Excel VBA
 
I'm not sure if Internet explorer supports Automation, maybe it does
But if it does then you'll need to know "its" object model in order to manipulate its controls

----- Bobsa wrote: ----

I can open a instance of Internet explorer with VBA in excel fine a
using some code I found here... navigate to my required webpage bu
then I need to click various buttons etc.... is the only way to d
this with sendkeys or can I refer to the various controls by name an
click them

I start it up with this code below

cheer

Bobs


====================

Dim IEObj As Objec

Sub Test(


OpenIE "https://ibol38.ibb.ubs.com/
End Su

Public Sub OpenIE(vURL As String

On Error GoTo ErrorHandle
IEObj.Visible = Tru
With IEOb
.Visible = Tru
.Navigate vUR
Do Until Not .Bus
DoEvent
Loo
End Wit
Exit Su
ErrorHandler
Set IEObj = Nothin
Set IEObj = CreateObject("InternetExplorer.Application"
Resume Nex
End Su



All times are GMT +1. The time now is 01:33 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com