主题：生成网页，表格网址的超链接消失了

这样处理一下

Tables("表b").SaveHTM("d:\test.htm")

Dim str As String = FileSys.ReadAllText("d:\test.htm")
str = System.Text.RegularExpressions.Regex.Replace(str, "((http|www){1}.+?)(?=\<)", "<a href='$1'>$1</a>")
FileSys.WriteAllText("d:\test.htm", str, False)