Macro copying from cells in Excel to text field in IE

**ttbake** · 09-09-2014, 08:23 AM

I am trying to form a macro that copies a range of cells from an excel worksheet to a text field in internet explorer. I am able to get the macro to navigate to the text field that I want my cells to be copied to and I am even able to get something to copy to the text field. However, the result is as shown below:
vbaOutputTextBox.png

Below are the relevant sections of code that I have (the rest of the code in my macro takes me to the webpage and sets up the data in the cells to be copied):

For i = 85 To 119
If Cells(i, 2).Value <> "" Then
Cells(j, 3).Value = Cells(i, 2).Value
j = j + 1
End If
Next i
K = "C85:C" & CStr(j - 1)
Range(K).Select
Selection.Copy
...
...
...
ie.document.All.Item("draftText").Value = Sheets("IYM Calculation").Range(K)

Does anyone have any advice or ideas on why this might not be working for me? Is this even possible?

**natefarm** · 09-09-2014, 03:59 PM

Selection.Copy is putting the entire cell object, including all its properties, into the paste buffer, so that's the object it's pasting into the text field. Try modifying the following for your code. I take no credit for it -- I found it by doing a search.

Sub CopytoClipboard()
    ' Requires a reference to Microsoft Forms Object Library
    ' An easy way to do this is to add and then delete a form;
    ' the reference will persist
    With New DataObject
        .SetText ActiveCell.Value
        .PutInClipboard
    End With
End Sub