![Old](images/statusicon/post_old.gif)
26th March 2016, 10:38 PM
|
Member
|
|
Join Date: Jan 1970
Location: Western Australia
Posts: 3,455
|
|
Seems recently the tab has been blocking some Amazon servers, or as they said specifically Telstra, not sure why but it made it hard for me to get access to the website from my server.
The script above worked fine from my pc but the only way to get access to the site from the server is to use chrome with the Hola browser addon.
Problem is excel doesn't play nice with chrome and i couldn't install the Hola addon to IE
Still a bit roughm but works.
Code:
Sub web()
Shell ("C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe -url www.tab.com.au")
Application.Wait (Now + TimeValue("00:00:20"))
SendKeys "^a", True
SendKeys "^c", True
SendKeys "%{F4****"
AppActivate "Microsoft Excel"
Application.Wait (Now + TimeValue("00:00:5"))
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Range("A1").Select
End Sub
__________________
One Drive
"If the corporates are treating you poorly , just go elsewhere."
"If they need you , they will soon find out."
"If you need them , you will soon find out." --moeee
_______________________________________________
|