Hi Thankyou so much, its working fine. But I need the second value in the
next line not in the comma seperated manner, may I know where should I
change that?
On Tuesday, September 24, 2013 5:48:00 PM UTC+5:30, Ravi Kumar wrote:
> Hi,
>
>
>
> One example to combined range. Change your range, ie.navigate and element
> id also
>
>
>
> Sub testin()
>
> Dim ie As Object
>
>
>
> dataarr = Range("A2:A4") ‘Change according to your criteria
>
> For i = 1 To UBound(dataarr, 1)
>
> If counter = 0 Then
>
> store_value = dataarr(i, 1)
>
> counter = 1
>
> Else
>
> store_value = store_value & "," & dataarr(i, 1)
>
> End If
>
> Next
>
> MsgBox store_value
>
>
>
> Set ie = CreateObject("internetexplorer.application")
>
> ie.Visible = True
>
> ie.navigate2 www.google.com ‘‘Change according to your criteria
>
> While ie.Busy Or ie.readyState = readystate_completed
>
> DoEvents
>
> Wend
>
>
>
> ie.document.getelementbyid("gbqfq").Value = store_value ‘Change
> element id according to your criteria
>
>
>
>
>
> End Sub
>
>
>
>
>
> Note : Change the highlighted place according to your criteria
>
>
>
> * *
>
> *Warm Regards,*
>
> *Ravi Kumar.*
>
>
>
> *From:* [email protected] <javascript:> [mailto:
> [email protected] <javascript:>] *On Behalf Of *Menaka
> Balakrishnamoorthy
> *Sent:* Tuesday, September 24, 2013 5:18 PM
> *To:* [email protected] <javascript:>
> *Subject:* Re: $$Excel-Macros$$ How to paste all the values in the text
> field of a web page
>
>
>
> can you please say how to store in array or collection
>
>
> On Tuesday, September 24, 2013 3:23:26 PM UTC+5:30, Ravi Kumar wrote:
>
> Store the value in any array or collection and then paste it to ie
> textbox
>
>
>
>
>
> * *
>
> *Warm Regards,*
>
> *Ravi Kumar.*
>
>
>
> *From:* [email protected] [mailto:[email protected]] *On
> Behalf Of *Ravinder
> *Sent:* Tuesday, September 24, 2013 3:01 PM
> *To:* [email protected]
> *Cc:* Soum
> *Subject:* RE: $$Excel-Macros$$ How to paste all the values in the text
> field of a web page
>
>
>
> Not able to access website and not getting how its working…
>
>
>
> *From:* [email protected] [mailto:[email protected]] *On
> Behalf Of *Menaka Balakrishnamoorthy
> *Sent:* Tuesday, September 24, 2013 2:42 PM
> *To:* [email protected]
> *Subject:* $$Excel-Macros$$ How to paste all the values in the text field
> of a web page
>
>
>
>
> Hi,
>
> with the followong code I can able to paste the all the values from the
> excel sheet to the webpage.But if while pasting the second value the first
> value is getting replaced. So finally I can paste only the last cell value.
> I want all the range of values to be entered in the text filed. Please
> help me in resloving this.
>
>
> [code]
>
> Sub GetTable()
>
>
>
> Dim ieApp As InternetExplorer
>
> 'Dim ieDoc As Object
>
> Dim ie As Object
>
> Dim ieTable As Object
>
>
>
> Dim finalrow As Variant
>
>
>
> Range("A1").Activate
>
> colno = ActiveCell.Column
>
> MsgBox (colno)
>
> Range("A1").Select
>
> finalrow = Cells(Rows.Count, 1).End(xlUp).Row
>
> MsgBox (finalrow)
>
>
>
> 'create a new instance of ie
>
>
>
>
>
>
>
> 'Set ieApp = CreateObject("InternetExplorer.application")
>
> Set ie = CreateObject("InternetExplorer.application")
>
> ie.Visible = True
>
> ie.navigate "http://abcde.com";
>
> Do
>
> Loop Until ie.readyState = READYSTATE_COMPLETE
>
> Application.Wait DateAdd("s", 3, Now)
>
> While ie.Busy
>
> DoEvents
>
> Wend
>
>
>
> For i = 2 To finalrow
>
> ' "abcde" is element id, if you forget then read the step number 2
> again
>
> ie.document.getelementbyid("Email").Value = Cells(i, colno).Value
>
> Application.Wait (Now + TimeValue("0:00:10"))
>
> 'MsgBox "Time expired"
>
> Next
>
>
> [/code]
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> To post to this group, send email to [email protected].
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> To post to this group, send email to [email protected].
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected] <javascript:>.
> To post to this group, send email to [email protected]<javascript:>
> .
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/groups/opt_out.
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
