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


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

主题：[原创]WORD转mht(单一网页)折腾半夜
帅哥哟，离线，有人找我吗？
baicaocao
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4915 威望：0 精华：0 注册：2012/4/20 8:42:00 		[原创]WORD转mht(单一网页)折腾半夜  发帖心情 Post By：2015/5/22 7:44:00 [只看该作者]

 

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

代码可以直接运行。

以下内容只有回复后才可以浏览
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/5/22 8:35:00 [只看该作者]

谢谢分享

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2015/5/22 8:44:00 [只看该作者]

多谢楼主分享

 回到顶部
帅哥哟，离线，有人找我吗？
foxor
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：517 积分：4199 威望：0 精华：0 注册：2009/10/8 16:43:00 		  发帖心情 Post By：2015/5/22 8:52:00 [只看该作者]

谢谢分享！

 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2015/5/22 8:56:00 [只看该作者]

好的

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/22 9:21:00 [只看该作者]

 瞧瞧。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
baicaocao
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4915 威望：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，这个还是要的。
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2015/5/22 12:10:00 [只看该作者]

学习

 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		学习  发帖心情 Post By：2015/5/22 12:23:00 [只看该作者]

好

 回到顶部
总数 129 1 2 3 4 5 6 7 8 9 10 下一页 ..13
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询