主题：逐行添加

        wb.AppendHTML("<style>#table2 td{width:100px;word-break: break-all;} #table2 thead{display:none}</style>",True)

        With wb.AddTable("","Table1")

            .ColWidth = "100px,100px,100px,100px,100px,100px,100px,100px" '设置列宽

            Dim nms() As String = {"商品代码","颜色","尺码","助记符","大类","售价","横调数","图片"}

            .Head.AddRow(nms)

        End With

        wb.InsertHTML("","<div id='div' style='overflow-y:auto;height:500px'>")

        With wb.AddTable("","Table2")

           .ColWidth = "100px,100px,100px,100px,100px,100px,100px,100px" '设置列宽

            .Alternate = 2

            For Each r As DataRow In dt.DataRows