I want to paste the values of Range A1:A10 in the text box of a web page, I can paste A1 and while pasting A2, A1 is getting replaced, finally there is only one value in the text box that is A10, but I need all the values from A1 to A10 to be pasted. Please help on this. And the link is my VM and pls dont mind about that, I have just entered dummy link.
On Tuesday, September 24, 2013 3:01:10 PM UTC+5:30, ravinder negi wrote: > Not able to access website and not getting how its working… > > > > *From:* [email protected] <javascript:> [mailto: > [email protected] <javascript:>] *On Behalf Of *Menaka > Balakrishnamoorthy > *Sent:* Tuesday, September 24, 2013 2:42 PM > *To:* [email protected] <javascript:> > *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] <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.
