- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel 报表保存为htm格式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119397)
-- 发布时间：2018/5/24 10:39:00
-- excel 报表保存为htm格式
Dim Book As New XLS.Book(ProjectPath & "Attachments\\成品油出厂检验报告.xls")
Dim fl As String = ProjectPath & "Reports\\temp.xls"
book.save(fl)
我可以保存为htm格式吗
-- 发布时间：2018/5/24 10:41:00
--
用vba打开，然后另存为htm，如
Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
Wb.SaveAs(Filename:=dlg.FileName, FileFormat:=MSExcel.XlFileFormat.xlExcel9795)
wb.close
app.quit
End If
-- 发布时间：2018/5/25 10:32:00
--
此主题相关图片如下：qq图片20180525103137.png
-- 发布时间：2018/5/25 10:41:00
--
你生成后的excel文件发上来测试一下。
-- 发布时间：2018/5/25 10:46:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:temp.xls |
-- 发布时间：2018/5/25 10:56:00
--
我测试没问题，全部都正常显示
Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
Wb.SaveAs(Filename:="d:\\test.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)
wb.close
app.quit
End If
-- 发布时间：2018/5/25 10:59:00
--
那奇怪了 我在试试啊 谢谢
-- 发布时间：2018/5/25 11:28:00
--
可能是ie的问题 我把生成的文件 用360 浏览器打开 显示正常，使用ie 就有问题
-- 发布时间：2018/5/25 11:34:00
--
可能是ie的问题 我把生成的文件 用360 浏览器打开 显示正常，使用ie 就有问题
你ie打开有问题？你用的是什么版本的ie？如果升级ie到最新版呢？
webbrowser可以显示网页，也可以显示excel的，不一定要转换成htm文件。
-- 发布时间：2018/5/25 12:12:00
--
我的ie是8.0. 之前就是在窗口中打开excel。 之所以想生成html 是因为，如果我把模板保护了，在生成过程中 有时会报错， 如果不保护担心生成文件的安全性
此主题相关图片如下：qq图片20180525121226.png
生成过程中 报错 文件不能读取 错误呢
此主题相关图片如下：qq图片20180525121226.png