如果需要更加灵活的方式,目前只能通过把 HTML代码复制到系统粘贴板,然后再让EXCEL
粘帖来实现。
首先在Excel里 ,按下Alt+F11打开宏编写。
然后在菜单工具-->引用。。里找到 Microsoft Forms 2.0 object library ,启用之,
然后书写一下代码,则可以实现了Excel的HTML渲染。
Dim MyDataObj As New DataObject
MyDataObj.SetText "
"One Two
MyDataObj.PutInClipboard '复制到clipboard
然后再调用
ActiveSheet.Paste
则可以显示HTML效果了。
另外一种通过 HTMLProject 来完成,把HTML页面直接传送过去
ActiveWorkbook.HTMLProject.HTMLProjectItems(stockCode).Text = resl
ActiveWorkbook.HTMLProject.RefreshProject