Thanks for the suggestion Ashish, its working fine now. On Tuesday, September 24, 2013 9:52:04 PM UTC+5:30, ashish wrote:
> try vbnewline see if it works > > store_value = store_value & vbnewline & dataarr(i, 1) > or > > store_value = store_value & vbnewline & vbnewline & dataarr(i, 1) > > > > On Tue, Sep 24, 2013 at 7:30 PM, Menaka Balakrishnamoorthy < > [email protected] <javascript:>> wrote: > >> >> Even if I replace as store_value = store_value & Chr(13) & dataarr(i, 1) >> its pasting in the webpage with comma seperated only >> >> >> 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] [mailto:excel-...@**googlegroups.com] >>> *On Behalf Of *Menaka Balakrishnamoorthy >>> *Sent:* Tuesday, September 24, 2013 5:18 PM >>> *To:* [email protected] >>> *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:excel-...@**googlegroups.com] >>> *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<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. >>> To post to this group, send email to [email protected]. >>> Visit this group at >>> http://groups.google.com/**group/excel-macros<http://groups.google.com/group/excel-macros> >>> . >>> For more options, visit >>> https://groups.google.com/**groups/opt_out<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<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. >>> To post to this group, send email to [email protected]. >>> Visit this group at >>> http://groups.google.com/**group/excel-macros<http://groups.google.com/group/excel-macros> >>> . >>> For more options, visit >>> https://groups.google.com/**groups/opt_out<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<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. >>> To post to this group, send email to [email protected]. >>> Visit this group at >>> http://groups.google.com/**group/excel-macros<http://groups.google.com/group/excel-macros> >>> . >>> For more options, visit >>> https://groups.google.com/**groups/opt_out<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. >> > > > > -- > *Regards* > * * > *Ashish Koul* > > > *Visit* > *My Excel Blog <http://www.excelvbamacros.com/>* > Like Us on > Facebook<http://www.facebook.com/pages/Excel-VBA-Codes-Macros/151803898222297> > Join Us on Facebook <http://www.facebook.com/groups/163491717053198/> > > > P Before printing, think about the environment. > > > -- 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.
