hi
i am trying to select the all the data of page and paste into excel
Sub ABC()
Dim IE
Dim objShell
Set IE = CreateObject("InternetExplorer.Application")
Set objShell = CreateObject("WScript.Shell")
With IE
.Left = 20
.Top = 20
.Height = 540
.Width = 950
.MenuBar = 0
.Toolbar = 1
.StatusBar = 0
.navigate "www.yahoo.com <http://tinyurl.com/>"
.Visible = True
End With
Do While IE.busy
DoEvents
Loop
Application.Wait Now + TimeValue("00:00:15")
objShell.SendKeys "^A", True
'objShell.SendKeys "^A", True
Application.Wait Now + TimeValue("00:00:05")
objShell.SendKeys "^C", True
Application.Wait Now + TimeValue("00:00:05")
AppActivate "Microsoft Excel"
Range("C1").Select
'Application.SendKeys "{F2}", True
SendKeys "^V", True
'DoEvents
End Sub
but it is not able to select the text of webpage and paste on sheet any help
please
also can anyone tell me how to find the text on page with send key
thanks
ashish
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to [email protected]
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
