- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 这样不行吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148996)
-- 发布时间：2020/4/20 23:29:00
-- 这样不行吗？
Dim tmp As String = "D:\\报价\\伊藤忠\\12342435.xlsx"
Dim mht As String = ProjectPath & "Reports\\资料卡.mhtml"
Dim app As New MSExcel.Application
Dim wb As MSExcel.Workbook = app.WorkBooks.Open(tmp)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.SaveToMHT(mht)
e.Form.Controls("WebBrowser1").Address = mht
-- 发布时间：2020/4/21 8:42:00
--
SaveToMHT是foxtable提供的功能，不是vba的功能。参考：http://www.foxtable.com/webhelp/topics/1892.htm
-- 发布时间：2020/4/21 23:50:00
--
此主题相关图片如下：01.jpg
出来网页怎么缺了一个边
excel里没有问题的呀
此主题相关图片如下：02.jpg
[此贴子已经被作者于2020/4/21 23:53:09编辑过]
-- 发布时间：2020/4/21 23:52:00
--
Dim tmp As String = "D:\\报价\\伊藤忠\\12342435.xlsx"
Dim mht As String = ProjectPath & "Reports\\资料卡.mhtml"
Dim rpt As New XLS.Book(tmp)
rpt.SaveToMHT(mht)
e.Form.Controls("WebBrowser1").Address = mht
-- 发布时间：2020/4/22 8:35:00
--
execl文件发上来试试
-- 发布时间：2020/4/22 22:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:12342435.xlsx |
-- 发布时间：2020/4/23 9:49:00
--
系统安装ie10及以上版本，然后升级浏览器控件的内核：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99436
-- 发布时间：2020/4/24 7:14:00
--
此主题相关图片如下：03.jpg
此主题相关图片如下：02.jpg
修改注册表问题依旧
还是缺图片旁边那条线
-- 发布时间：2020/4/24 8:46:00
--
那就没有办法了。mhtml本来就有兼容性问题。或者试试把图片缩小一点，不要和边框重合