将Excel中显示html效果,将Excel中显示html效果

当做报表开发时候，如果要求输出一些html式，发现输出的是html代码，而不是html的效果 但是将代码从剪切板黏贴到单元时候就能顺利显示出html效果，通过这个比较，于是有了思路 做一个vba开发，先将htmlcode放到剪切板中，然后再从剪切板黏贴到excel单元中 VE

当做报表开发时候，如果要求输出一些html格式，发现输出的是html代码，而不是html的效果

但是将代码从剪切板黏贴到单元格时候就能顺利显示出html效果，通过这个比较，于是有了思路

做一个vba开发，先将htmlcode放到剪切板中，然后再从剪切板黏贴到excel单元格中

VERSION 1.0 CLASS

BEGIN

MultiUse = -1  'True

END

Attribute VB_Name = "Sheet1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = True

Sub code2html()

Dim i, j, g, p

Dim objData As DataObject

Dim sHTML As String

Dim sSelAdd As String

Const sTEMP As String = "||||"

Application.EnableEvents = F