No.1
Excel表格是可以作为网页来进行展示的,也就是说当你完成一个表格,想要通过Web网页来进行发布,那么就需要看这篇文章了。
目前网络技术发展十分快,办公方式也逐渐向网络办公进行迁移,这是大趋势。
那么,当我们编辑好一个工作表之后,如何在网页上正确显示,就需要以Web代码形式来进行处理,这是Excel之外的另一种编码方式,但是Excel也给出了解决方法。
如下图所示,编辑好一个表格,通过一些代码就可以实现网页显示。
下图为发布成Web页的效果,也就是Htm后缀的文件。
Htm文件有什么用呢?
它是Web页通用格式,当然不是唯一的格式,也就是说,Htm格式可以用任何浏览器打开,而xls或xlsx只能用Excel或WPS等编辑软件打开,通用性不同,Htm格式只能读不能编辑。
下面进入正题,了解一下通过VBA如何实现Web网页发布。
如下图所示,首先要认识PublishObject对象,图中有对象的方法和属性详细内容。
PublishObject对象看不到,它是不是存在,可以通过代码来查看。
WorkBook.Publi '返回工作薄中的PublishObject对象数
WorkBook.Publi(1).FileName'返回第一个PublishObject对象文件地址和文件名
PublishObjects是一个集合,包含了所有PublishObject对象。
发布只用一个方法:
Publi(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.Publi(xlSourceRange, xPath, wx.Ac _ , wx.Ac, xlHtmlStatic, "", wx.Ac) With pobj .Publish (True) .AutoRepublish = False ' MsgBox .DivID End With Set pobj = Nothing End Sub
上述代码首先添加一个PublishObject对象,然后再进行方法和属性设置。
添加PublishObject使用Publi()方法
具体参数如下图所示:
如果要进行网页展示表格,相信这个还是十分有用的。
欢迎关注、收藏
---END---