以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  EXCEL报表转为HTM问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69161)

--  作者:95383
--  发布时间:2015/5/31 21:42:00
--  EXCEL报表转为HTM问题
1.已通过EXCEL模板设计模块设计并生成了EXCEL报表。
2.设计了一个webbrowser窗口用于显示excel报表,感觉慢且不美观。
3.现想在此基础上改为HTM格式显示。如何编写语句?

--  作者:大红袍
--  发布时间:2015/5/31 21:47:00
--  

 把生成的excel文件转成html即可。

 

 

Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("d:\\test.xls")
Wb.SaveAs(Filename:=ProjectPath & "Reports\\基层法律服务所名册.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)
wb.close
app.quit
 

--  作者:95383
--  发布时间:2015/5/31 22:22:00
--  
搞定,谢谢大红袍的神速支持。