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


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

主题:关于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也很小。有办法优化吗

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110662 积分:563224 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/16 13:39:00 [只看该作者]

生成的报表里面有很多数据吧,直接生成为xlsx格式报表有多大?

 回到顶部
帅哥哟,离线,有人找我吗?
lisangyu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110662 积分:563224 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/16 14:08:00 [只看该作者]

原来的excel很小,那是模板啊,没有数据,和这个比较没有意义。rpt.Build()后会生成包含数据的报表,报表数据越多肯定就越大啊。

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


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

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

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110662 积分:563224 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/16 14:22:00 [只看该作者]

没有其它方式,我测试生成xls,和生成mhtml大概相差4倍。这2种文件格式存储内容的方式不一样,没法比的

 回到顶部