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


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

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

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


加好友 发短信
等级:一尾狐 帖子:472 积分:4627 威望: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 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/22 8:35:00 [只看该作者]

谢谢分享

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


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

多谢楼主分享

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


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

谢谢分享!

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


加好友 发短信
等级:七尾狐 帖子:1779 积分:12659 威望: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


加好友 发短信
等级:一尾狐 帖子:472 积分:4627 威望: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


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

学习

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


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


 回到顶部
总数 122 1 2 3 4 5 6 7 8 9 10 下一页 ..13