表格如下:MSFlexGrid
Sub ImpHtm(Grid, n)
Dim i, j, r, file1, ob1
Open "1.htm" For Output As 1
Print #1, "<html><table border=1 cellpadding=0 cellspacing=0><tr><td colspan=4>"
Print #1, "诊断资料明细表</td></tr><tr><td colspan=4>"
Print #1, "制表日期:"; Date; "</td></tr>"
Print #1, "<tr><td width=80>类别</td><td width=200>项目</td><td width=60>数量</td><td width=80>百分比</td></tr>"
ob1 = ""
With Grid
For i = 1 To Grid.Rows - 1
Print #1, "<tr>"
If .TextMatrix(i, 1) <> ob Then '处理重复数
Print #1, "<td>"; .TextMatrix(i, 1); "</td>"
ob = .TextMatrix(i, 1)
Else
Print #1, "<td></td>"
End If
For j = 2 To 4
If .TextMatrix(i, j) = "" Then
Print #1, "<td> </td>"
Else
Print #1, "<td>" & .TextMatrix(i, j) & "</td>"
End If
Next j
Print #1, "</tr>"
Next i
End With
Print #1, "</table></html>"
Close #1
End Sub