Dim tmp As String = projectpath & "RemoteFiles\\" & wjm Dim mht As String = projectpath & "RemoteFiles\\" & wjm & ".mhtml"
Dim rpt As New XLS.Book(tmp)
rpt.Build()
\'rpt.Sheets(0).Rows(0).Visible = False \'隐藏第一个空行
rpt.SaveToMHT(mht)
e.Form.Controls("WebBrowser1").Address = mht