Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel")
For Each p As System.Diagnostics.Process In ps
If p.MainWindowTitle = Nothing Then p.kill
Next
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\多行显示.xlsx"
Dim rpt As String = ProjectPath & "Reports\多行显示.xlsx"
Dim Book As New XLS.Book(tmp)
Book.Build()
book.Save(rpt)
wbr.AddRess = rpt