Thanks a lot bala i like the way you this
i wanted a solution for you , in vba if we got alertbox in webpage everything got stop i wanted to get the text on the alertbox and skip that as well please provide me help on this thanks regards Santosh Bahuguna On 4/15/09, bala <bal...@gmail.com> wrote: > > Hi, > > use this code > > Tools ------> Referance > Add > > Microsoft Internet Controls > Microsoft HTML Object Library > > > Dim brs As InternetExplorer > Sub IE() > Set brs = New InternetExplorer > With brs > .Visible = True > .Navigate "http://Google.com"; > End With > Do While brs.Busy Or brs.ReadyState <> READYSTATE_COMPLETE > DoEvents > Loop > Call TextBox("q", "VBA") > Call Button("Google Search") > End Sub > Public Function TextBox(Name As String, Text As String) As Boolean > ' Fill textbox Name with Text > Dim Element As Variant > brs.Document.getElementByid(Name).Value = Text > End Function > > Public Function Button(Caption As String) As Boolean > ' Clicks the button containing text Caption or returns false if button > cannot be found > Dim Element As HTMLButtonElement > > Button = True > For Each Element In brs.Document.getElementsByTagName("Input") > If InStr(Element.Value, Caption) > 0 Then > Call Element.Click > Call LoadPage > Exit Function > End If > Next Element > Button = False > End Function > Sub LoadPage() > ' Pauses execution until the browser window has finished loading > Do While brs.Busy Or brs.ReadyState <> READYSTATE_COMPLETE > DoEvents > Loop > End Sub > > with Regards, > Bala > > > > > > > > --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
