你说的那个事件中的代码:
Dim tmp As String = ProjectPath & "Attachments\调piaomb.xls"Dim rpt As String = ProjectPath & "Reports\调piaoprnt.xls"Dim Book As New XLS.Book(tmp)Book.Build() Book.Save(rpt)Forms("窗口7").open()Forms("窗口7").Controls("WebBrowser1").AddRess = rpt
此主题相关图片如下:exbr.gif