比如
Select Case e.Path
Case "test.htm",""
Dim wb As New weui
With wb.AddTable("","Table1")
.Highlight = 0 '关闭高亮显示功能
.RowHead = 1
.head.AddRow("","部门","姓名","年龄","电话","地址")
.body.AddRow("1","技术部","张三","36","110","中国北京")
.body.AddRow("2","技术部","李四","38","110","中国上海")
.body.AddRow("3","技术部","王五","39","110","中国深圳")
.body.AddRow("4","生产部","赵六","39","110","中国深圳")
.body.AddRow("5","生产部","刘七","39","110","中国深圳")
End With
wb.InsertHTML("<style>.fox_table tr.sel, .fox_table tr.alt, .fox_table td.sel{ background-color: red;}</style>")
e.WriteString(wb.Build)
End Select