在窗口显示Excel报表
如果还没有接触过窗口设计,可以暂时忽略本节的内容。
在默认情况下,Foxtable会直接启动Excel来显示生成的Excel报表。
借助WebBrowser控件,你可以在窗口中显示生成的Excel报表。
要在WebBrowser显示Excel报表,必须将生成的Excel报表保存为网页,有两个方法可以完成这个任务:
SaveToMHT(FileName)
用于将Excel报表保存为一个MHTML(单一网页)文件,所有网页内容(包括图片、代码、样式等)都存储这个文件中。
SaveToHTML生成的是常规的HTML文件文件,兼容性好,但会生成多个文件。
SaveToMHT只生成一个文件,使用更方便,但是并非所有的浏览器支持MHTML文件,兼容性差一些。
不过WebBrowser控件可以完美地显示MHTML文件,所以在窗口显示Excel报表时,通常使用SaveToMHT方法。
示例
新建一个窗口(建议使用模式窗口或独立窗口),在窗口中加入一个WebBrowser控件,窗口的AfterLoad事件代码设置为:
Dim
tmp As
String =
ProjectPath &
"Attachments\资料卡.xls"
Dim
mht As
String =
ProjectPath &
"Reports\资料卡.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
这样一打开窗口,就会自动在窗口的WebBrowser控件显示生成的Excel报表。