主题：浏览器打开EXCEL报表,如何关闭

 

学学这个：

http://www.foxtable.com/help/topics/2121.htm

 

报表是可以静默生成的，你看看怎么基于模版生成报表就知道怎么弄了。

http://www.foxtable.com/help/topics/1145.htm

下面的代码可以很好的实现预览功能，但是，预览时不需要生成保镖并保存，并老师们看看怎么改

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls")
Dim file As String = ProjectPath & "Reports\订单.xls"
Book.Build() '生成细节区
Book.Save(file) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .PaperSize = MSExcel.XlPaperSize.xlPaperA4   '纸张大小
    .CenterHorizontally = True   '页面水平居中
    .CenterVertically = True '页面垂直居中
    .Zoom = False '以下设置将缩印在一页内
    .FitToPagesWide = 1  '按照1页的宽度打印
    .FitToPagesTall = 1  '按照1页的高度打印
End With
App.Visible = True
Ws.PrintPreview
App.Visible=False
wb.save
wb.close
App.Quit

 呃，如果要预览excel报表的话，肯定是需要生成文件的。不过，你可以把文件生成在一个另一个文件夹，或者生成在c盘的缓存文件夹里。

 或者你预览以后删除，或者定期删除。

林总，因为生成的文件自始至终就一个，对应着模板文件，这倒不是个问题。就是要预览这个文件，就要保存它，好像太浪费资源。因为Excel文件在保存它之前就可以预览和打印，那么咋们的那个Book.Build()后嫩不能生成个临时文件，只在内存中？这个是很需要的。

 

 我能力范围内做不到……必须是以文件信息才能打开预览的。

谢谢林总，希望这个功能以后可以有