Results 1 to 2 of 2

Thread: Urgent :: How to paste a range of cells from excel to text field of a web page

  1. #1

    Urgent :: How to paste a range of cells from excel to text field of a web page



    Register for a FREE account, and/
    or Log in to avoid these ads!

    Hi,


    I want to copy a range of cells from excel sheet to a text field of a web page. Below is my macro, while executing it 'm getting run time error 70. Please help me in resolving it asap




    Sub GetTable()

    Dim ieApp As InternetExplorer
    Dim ieDoc As Object
    Dim ieTable As Object

    'create a new instance of ie
    Set ieApp = New InternetExplorer
    ieApp.Visible = True
    ieApp.Navigate "xxx"
    Do While ieApp.Busy: DoEvents: Loop
    Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
    Set ieDoc = ieApp.Document


    Set wb1 = ThisWorkbook
    Dim ws1 As Worksheet
    Set ws1 = wb1.Worksheets("Sheet1")
    With Sheet1
    LastRow = Sheet1.Range("A" & .Rows.Count).End(xlUp).Row
    'MsgBox (lastRow)
    End With
    copyData = Worksheets("Sheet1").Range("A1:A" & LastRow).Value



    With ieDoc.forms(0)

    .SB_Name.Click
    'While ieApp.ReadyState
    Do While ieApp.Busy: DoEvents: Loop
    Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
    ieApp.Stop

    '.orderNumber.Select

    .orderNumber.Value = Worksheets("Sheet1").Range("A1:A" & LastRow).Value

    Worksheets("Sheet1").Range("C1:C" & LastRow).Value = Worksheets("Sheet1").Range("A1:A" & LastRow).Value
    '.SB_Name.Click


    End With

    'now that we're in, go to the page we want
    Do While ieApp.Busy: DoEvents: Loop
    Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop


    'close 'er up
    'ieApp.Quit
    Set ieApp = Nothing

    End Sub


    Thanks in advance,
    Menaka B

  2. #2
    Super Moderator p45cal's Avatar
    Join Date
    Dec 2012
    Posts
    1,356
    Articles
    0
    Excel Version
    365

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •