Store the value in any array or collection and then paste it to ie textbox
Warm Regards, Ravi Kumar. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Ravinder Sent: Tuesday, September 24, 2013 3:01 PM To: excel-macros@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-macros@googlegroups.com <mailto:excel-macros@googlegroups.com> [mailto:excel-macros@googlegroups.com] On Behalf Of Menaka Balakrishnamoorthy Sent: Tuesday, September 24, 2013 2:42 PM To: excel-macros@googlegroups.com <mailto:excel-macros@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+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 <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.
