Strange behaviour

  • Thread starter Thread starter WhytheQ
  • Start date Start date
W

WhytheQ

If I run the following the the string appears in the cell WITH all the
tags

ThisWorkbook.Sheets("Sheet1").Cells(10, 4) = "<html><table
border=""1""><th>helloworld</th></table></html>"

but if I copy that string from another application into a cell in
Excel then the result is 'helloworld' in a box i.e the tags have
become active

How can I change the code so the tags are active?

Any help appreciated
Jason.
 
If I run the following the the string appears in the cell WITH all the
tags

ThisWorkbook.Sheets("Sheet1").Cells(10, 4) = "<html><table
border=""1""><th>helloworld</th></table></html>"

but if I copy that string from another application into a cell in
Excel then the result is 'helloworld' in a box i.e the tags have
become active

How can I change the code so the tags are active?

Any help appreciated
Jason.
Click to expand...

If you add a reference to the Microsoft Forms2.0 Object Library (via
tools/references) the following seems to work:

Sub test()

Dim DataObj As New DataObject
Dim HTML As String
Dim myRange As Range

HTML = "<html><table border=""1""><th>helloworld</th></table></html>"

Set myRange = ThisWorkbook.Sheets("Sheet1").Cells(10, 4)

DataObj.SetText (HTML)
DataObj.PutInClipboard

myRange.PasteSpecial
End Sub
 
If you add a reference to the Microsoft Forms2.0 Object Library (via
tools/references) the following seems to work:

Sub test()

Dim DataObj As New DataObject
Dim HTML As String
Dim myRange As Range

HTML = "<html><table border=""1""><th>helloworld</th></table></html>"

Set myRange = ThisWorkbook.Sheets("Sheet1").Cells(10, 4)

DataObj.SetText (HTML)
DataObj.PutInClipboard

myRange.PasteSpecial
End Sub
Click to expand...

Cheers John - much appreciated

J
 
Back
Top