Foxtable(狐表)用户栏目专家坐堂 → 关于excel转mhtml


  共有3301人关注过本帖树形打印复制链接

主题:关于excel转mhtml

帅哥哟,离线,有人找我吗?
lisangyu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:4295 威望:0 精华:0 注册:2019/8/5 17:49:00
关于excel转mhtml  发帖心情 Post By:2021/3/16 13:15:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20210316123728.png
图片点击可在新窗口打开查看
将xlsx的excel通过SaveToMHT 保存为mhtml 测试的发现转化的文件居然有28M,窗口打开慢 ,而且容易卡。如果手动将xlsx的excel源文件转为mHTML也很小。有办法优化吗

 回到顶部
帅哥哟,离线,有人找我吗?
lisangyu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:4295 威望:0 精华:0 注册:2019/8/5 17:49:00
  发帖心情 Post By:2021/3/16 14:00:00 [显示全部帖子]

不是生成报表,利用它进行格式转换,将xlsx的文件转成mhtml,文件变的很大。原来的excel很小,几十KB。xls的文件转化没有这个问题。
            Dim tmp As String  = projectpath & "RemoteFiles\" & wjm
            Dim mht As String = projectpath & "RemoteFiles\" & wjm & ".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




[此贴子已经被作者于2021/3/16 14:01:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lisangyu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:461 积分:4295 威望:0 精华:0 注册:2019/8/5 17:49:00
  发帖心情 Post By:2021/3/16 14:13:00 [显示全部帖子]

蓝总:可是xls后缀的就没这问题。你还有其他方式 转化mhtml吗

 回到顶部