如何为VBA创建的HTML TD元素添加样式？

你可以通过操作TD元素的style属性来直接为它添加边框、背景色等样式，下面是两种常用实现方式：

1. 逐个设置单个样式属性 #

直接针对需要的样式属性单独赋值，适合样式项不多的场景：

Dim TD As HTMLTableCell
Set TD = HTMLdoc.createElement("TD")
Set TR = TRelements.Item(1)

' 给TD设置样式
TD.style.border = "1px solid #000000" ' 黑色1px实线边框
TD.style.backgroundColor = "#f0f0f0" ' 浅灰色背景
TD.style.padding = "4px" ' 可选：添加内边距让内容不贴边框

TD.innerHTML = "<span style=""font-size:9pt"">blabla</span>"
TR.insertAdjacentElement "afterbegin", TD

2. 用cssText批量设置样式 #

如果需要一次性设置多个样式，用style.cssText可以把所有样式写在一个字符串里，更简洁：

Dim TD As HTMLTableCell
Set TD = HTMLdoc.createElement("TD")
Set TR = TRelements.Item(1)

' 批量设置TD的样式
TD.style.cssText = "border:1px solid #000; background-color:#f0f0f0; padding:4px; text-align:center;"

TD.innerHTML = "<span style=""font-size:9pt"">blabla</span>"
TR.insertAdjacentElement "afterbegin", TD

本质上和你给span加内联样式的逻辑一致，只是把操作对象换成了TD元素本身的style属性而已。

内容的提问来源于stack exchange，提问作者MK01111000