Welcome Menaka
Warm Regards, Ravi Kumar. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Wednesday, September 25, 2013 11:06 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ How to paste all the values in the text field of a web page Thank you Ravi, its working fine :) 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 <http://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: excel-...@googlegroups.com <javascript:> [mailto:excel-...@googlegroups.com <javascript:> ] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 5:18 PM To: excel-...@googlegroups.com <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: excel-...@googlegroups.com <mailto:excel-...@googlegroups.com> [mailto:excel-...@googlegroups.com] On Behalf Of Ravinder Sent: Tuesday, September 24, 2013 3:01 PM To: excel-...@googlegroups.com <mailto:excel-...@googlegroups.com> 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: excel-...@googlegroups.com <mailto:excel-...@googlegroups.com> [mailto:ex...@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 2:42 PM To: excel-...@googlegroups.com <mailto:excel-...@googlegroups.com> 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 excel-macros...@googlegroups.com <mailto:excel-macros...@googlegroups.com> . To post to this group, send email to excel-...@googlegroups.com <mailto:excel-...@googlegroups.com> . 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 excel-macros...@googlegroups.com <mailto:excel-macros...@googlegroups.com> . To post to this group, send email to excel-...@googlegroups.com <mailto:excel-...@googlegroups.com> . 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 excel-macros...@googlegroups.com <javascript:> . To post to this group, send email to excel-...@googlegroups.com <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 excel-macros+unsubscr...@googlegroups.com <mailto:excel-macros+unsubscr...@googlegroups.com> . To post to this group, send email to excel-macros@googlegroups.com <mailto:excel-macros@googlegroups.com> . 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 excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
