主题：[分享] 对齐导出的文本

谢谢lsy的热情帮助。

学习了。

下面是把表格转换为网页的代码

Dim mytable As Table = CurrentTable
Dim result As String = "<table style=""font-size: 12px"">"
result += "<tr>"
For i As Integer = 0 To mytable.Cols.Count - 1
    result += "<td style=""color: #ffffff; background-color: #cc3333"">" & mytable.Cols(i).Caption & "</td>"
Next
result += "</tr>"
For j As Integer = 0 To mytable.Rows.Count - 1
    result += "<tr>"
    For k As Integer = 0 To mytable.Cols.Count - 1
        result += "<td style=""background-color: whitesmoke"">" & mytable.Rows(j)(k) & "</td>"
    Next
    result += "</tr>"
Next
result += "</Table>"