Strange behaviour

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.
 
J

John Coleman

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
 
W

WhytheQ

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Hello...This thread is a continuation of one from 2003...pasted below: 2
row background colour in html 1
Worksheet_SelectionChange & Worksheet_Change results in different Targets 2
taking "strip html" to the next level 3
Merge data from two temp files into a master 1
wanting to save HTML format in one sheet 3
Excel Formatting Cells Using VB code 2
VBA Countif across sheets? 5

Top