Tables("表A").SaveHTM("F:\表A.html")
Tables("表B").SaveHTM("F:\表B.html")
Tables("表C").SaveHTM("F:\表C.html")
Dim a As String = FileSys.ReadAllText("F:\表A.html")
Dim b As String = FileSys.ReadAllText("F:\表B.html")
Dim c As String = FileSys.ReadAllText("F:\表C.html")
Dim ai As Integer = a.IndexOf("</table>") + 8
Dim bi As Integer = b.IndexOf("<table")
Dim bj As Integer = b.IndexOf("</table>") + 8
Dim ci As Integer = c.IndexOf("<table")
Dim cj As Integer = c.IndexOf("</table>") + 8
Dim bl As Integer = bj-bi
a = a.Insert(ai,b.SubString(bi,bl))
a = a.Insert(ai+bl,c.SubString(ci,cj-ci))
'
FileSys.WriteAllText("F:\C.html", a, False)
加好友 
发短信
Post By：2016/3/18 15:18:00 [显示全部帖子]
