Foxtable(狐表)用户栏目专家坐堂 → [原创]WORD转mht(单一网页)折腾半夜


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

主题:[原创]WORD转mht(单一网页)折腾半夜

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


加好友 发短信
等级:一尾狐 帖子:494 积分:4848 威望:0 精华:0 注册:2012/4/20 8:42:00
[原创]WORD转mht(单一网页)折腾半夜  发帖心情 Post By:2015/5/22 7:44:00 [显示全部帖子]

 

可以把word文件不用打开直接在代码中转换成单一的网页文件,这么做的好处为,直接用web浏览器控件加载mht文件就可以了,不用再必须安装office什么的。

代码可以直接运行。


以下内容只有回复后才可以浏览


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


加好友 发短信
等级:一尾狐 帖子:494 积分:4848 威望:0 精华:0 注册:2012/4/20 8:42:00
  发帖心情 Post By:2015/5/22 10:19:00 [显示全部帖子]

以下是引用大红袍在2015/5/22 9:27:00的发言:
没这么麻烦。
 
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(fl)
Wb.SaveAs(Filename:=ProjectPath & "Reports\基层法律服务所名册.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)
wb.close
app.quit

 

 

http://msdn.microsoft.com/zh-cn/library/office/ff839952.aspx

是的,不过。Dim fmt As Object = msword.WdSaveFormat.wdFormatWebArchive,这个还是要的。



 回到顶部