Thursday, May 22, 2014

How to click an image by Macros


This is how we can click an image which contains link for another page.

set htmldoc=IE.Document.Getelementsbytagname("a")

for Each htmlele in htmldoc
if instr(htmlele.innerhtml."Searcj.gif")>0 then
htmlele.click
End if
Next

Thursday, May 8, 2014

Open any windows application by Excel Macros

Yeah any windows application can open by using Excel macros. Here i'm giving a small example Open a Google Chrome by macros.

Function AutoGChrome()

 Dim chromePath As String

  chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

  Shell (chromePath & " -url http://www.google.com")

End Function

 This is the way we can run any windows application and we can pass values through excel .

Wednesday, May 7, 2014

Platform Independent Automation of Web Applications

Hi guys i just started learning how to automate web applications by using EXCEL MACROS.It's very interesting topic. So far i learnt how to open internet explorer , how to open a particular  website , how to pass data into particular text field , how to click a particular Button or tab and how to click and select value from drop down box.Now i'm trying to open combobox very soon i'll get.

How to open Facebook in Internet explorer :

Just do it in excel macros and run it  then you'll  experience the real automation

function Automation()
Dim IE As Object
  Set IE = CreateObject("Internetexplorer.Application")
  IE.Navigate "https://facebook.com"

IE.Visible = True
While IE.busy
    DoEvents  'wait until IE is done loading page.
  Wend
end function


Friday, May 2, 2014

End of the Life of B-Tech in MITS

The moment when we left our college where we learnt what is life, where i met new friends.The moment when we left the happiest days which still lingering  in my mind .I still remember my first day of my B-Tech  . No one can get that days back .......am i right?.

Monday, April 28, 2014

My Wipro Training Buddies

I spent each and every moment with each and every one is unforgettable and most sweetest memories in my life .MISS U GUYS.........