motherindia
Board Regular
- Joined
- Oct 15, 2015
- Messages
- 217
Hello Sir,
Wishing you all very very happy new year 2017.
I have small query in the following thread. Currently it will copy the cell value from A2:E2 to website.
How can I copy the results from the above to excel sheet.
sub check
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
'Go to this Web Page!
IE.navigate "Tax Calculator"
'Check for good connection to web page loop!
Do
If IE.readystate = 4 Then
IE.Visible = False
Exit Do
Else
DoEvents
End If
Loop
'Wait for window to open!
Application.wait (Now + TimeValue("0:00:01"))
IE.Visible = True
SendKeys Worksheets("Sheet3").Range("a2").Value, True 'change here logon info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("b2").Value, True 'change here password info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("c2").Value, True 'change here password info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("d2").Value, True 'change here password info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("e2").Value, True 'change here password info
End sub
Regards,
motherindia
Wishing you all very very happy new year 2017.
I have small query in the following thread. Currently it will copy the cell value from A2:E2 to website.
How can I copy the results from the above to excel sheet.
sub check
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
'Go to this Web Page!
IE.navigate "Tax Calculator"
'Check for good connection to web page loop!
Do
If IE.readystate = 4 Then
IE.Visible = False
Exit Do
Else
DoEvents
End If
Loop
'Wait for window to open!
Application.wait (Now + TimeValue("0:00:01"))
IE.Visible = True
SendKeys Worksheets("Sheet3").Range("a2").Value, True 'change here logon info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("b2").Value, True 'change here password info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("c2").Value, True 'change here password info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("d2").Value, True 'change here password info
SendKeys "{TAB}", True
SendKeys Worksheets("Sheet3").Range("e2").Value, True 'change here password info
End sub
Regards,
motherindia