No.1
Excel表格是可以作为网页来进行展示的，也就是说当你完成一个表格，想要通过Web网页来进行发布，那么就需要看这篇文章了。
目前网络技术发展十分快，办公方式也逐渐向网络办公进行迁移，这是大趋势。
如下图所示，编辑好一个表格，通过一些代码就可以实现网页显示。
下图为发布成Web页的效果，也就是Htm后缀的文件。
Htm文件有什么用呢？
它是Web页通用格式，当然不是唯一的格式，也就是说，Htm格式可以用任何浏览器打开，而xls或xlsx只能用Excel或WPS等编辑软件打开，通用性不同，Htm格式只能读不能编辑。
下面进入正题，了解一下通过VBA如何实现Web网页发布。
如下图所示，首先要认识PublishObject对象，图中有对象的方法和属性详细内容。
PublishObject对象看不到，它是不是存在，可以通过代码来查看。
WorkBook.PublishObjects.Count 返回工作薄中的PublishObject对象数
WorkBook.PublishObjects.item(1).FileName返回第一个PublishObject对象文件地址和文件名
PublishObjects是一个集合，包含了所有PublishObject对象。
发布只用一个方法：
PublishObject.Publish(true)
具体研究可以看一下代码
No.2
Sub NewPublishObject(xPath As String) 导出Html文件
On Error Resume Next
Dim wx As Workbook, pobj As Object
Set wx = ActiveWorkbook
Set pobj = wx.PublishObjects.Add(xlSourceRange, xPath, wx.ActiveSheet.Name _
, wx.ActiveSheet.UsedRange.Address, xlHtmlStatic, "", wx.ActiveSheet.Name)
With pobj
.Publish (True)
.AutoRepublish = False
MsgBox .DivID
End With
Set pobj = Nothing
End Sub
上述代码首先添加一个PublishObject对象，然后再进行方法和属性设置。
添加PublishObject使用PublishObjects.Add()方法
具体参数如下图所示：
如果要进行网页展示表格，相信这个还是十分有用的。
---END---
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至123456@qq.com 举报，一经查实，本站将立刻删除。
