MSXML XHTML 和嵌入式 CSS

Question

我有一个 Excel 工作簿，用作在我们的内部系统中生成用户可填写的表单的起点。作为创建这些工作簿的用户的助手，我尝试添加一个预览功能，该功能使用该电子表格，执行一些 VBA 魔法来生成 HTML 文件，然后将其显示在浏览器中。

我已经完成了基本结构，使用 MSXML 编写 XHTML，到目前为止，一切顺利。现在，我遇到了嵌入样式表的问题。

样式表包含在 VBA 代码中的字符串中，我尝试将其添加到标题中的

tl;dr: 如何将包含 > 的样式表嵌入到使用 MSXML 生成的 HTML 文件中？

编辑：这是重现此行为的代码块。将其放入 Excel 中的 Sub 或您选择的使用 VBA 的程序中，运行它并查看源代码：

Dim doc As DOMDocument
Dim htmlRoot As IXMLDOMElement
Dim bodyRoot As IXMLDOMElement
Dim headRoot As IXMLDOMElement
Dim style As IXMLDOMElement

Set doc = New DOMDocument
Set htmlRoot = doc.createElement("html")
Set bodyRoot = doc.createElement("body")
Set headRoot = doc.createElement("head")

Set style = doc.createElement("style")
style.appendChild doc.createTextNode(".section>.title{font-weight: bold;}")
style.setAttribute "type", "text/css"

headRoot.appendChild style

htmlRoot.appendChild headRoot
htmlRoot.appendChild bodyRoot

doc.appendChild htmlRoot

Dim fs As FileSystemObject
Dim sh
Dim tempFolder As String
Set fs = New FileSystemObject
Set sh = CreateObject("WScript.Shell")
tempFolder = fs.GetSpecialFolder(TemporaryFolder)

Dim fileName As String
fileName = tempFolder + "\preview.html"
doc.Save fileName
sh.Run fileName

Answer 1

也许您可以使用现有方法生成 XHTML，而不是尝试存储将被解释为 XML 标记的 CSS 字符，但不是使用 MSXML 插入 CSS，而是插入占位符，并在完成构建 XHTML 后替换它。像这样：

style.appendChild doc.createTextNode("{css}")

' some more XHTML building here.

Dim html As String
Dim css As String

css = ".section>.title{font-weight: bold;}"
html = Replace(doc.Text, "{css}", css)

' Save the html here...

这样，您就可以在 XHTL 中嵌入您想要的任何内容，而不必担心 MSXML 试图为您转义它。

Answer 2

XML 转义序列
>
是> （意思是大于）