| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [原创]WORD转mht(单一网页)折腾半夜 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68656) |
| -- 作者：baicaocao -- 发布时间：2015/5/22 7:44:00 -- [原创]WORD转mht(单一网页)折腾半夜
可以把word文件不用打开直接在代码中转换成单一的网页文件，这么做的好处为，直接用web浏览器控件加载mht文件就可以了，不用再必须安装office什么的。 代码可以直接运行。 以下内容只有回复后才可以浏览 |
| -- 作者：Bin -- 发布时间：2015/5/22 8:35:00 -- 谢谢分享 |
| -- 作者：狐狸爸爸 -- 发布时间：2015/5/22 8:44:00 -- 多谢楼主分享 |
| -- 作者：foxor -- 发布时间：2015/5/22 8:52:00 -- 谢谢分享！ |
| -- 作者：pcxjxjhkw -- 发布时间：2015/5/22 8:56:00 -- 好的 |
| -- 作者：大红袍 -- 发布时间：2015/5/22 9:21: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 |
| -- 作者：baicaocao -- 发布时间：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 -- 发布时间：2015/5/22 12:10:00 -- 学习 |
| -- 作者：hbhb -- 发布时间：2015/5/22 12:23:00 -- 学习 好 |