当前位置：网站首页 > 技术文章 > 正文

Excel VBA 如何将表格发布成网页，这个功能的确强大

myzbx 2024-12-06 17:38 35 浏览

No.1

Excel表格是可以作为网页来进行展示的，也就是说当你完成一个表格，想要通过Web网页来进行发布，那么就需要看这篇文章了。

目前网络技术发展十分快，办公方式也逐渐向网络办公进行迁移，这是大趋势。

那么，当我们编辑好一个工作表之后，如何在网页上正确显示，就需要以Web代码形式来进行处理，这是Excel之外的另一种编码方式，但是Excel也给出了解决方法。

如下图所示，编辑好一个表格，通过一些代码就可以实现网页显示。

下图为发布成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---

HTML 表格

上一篇：luckysheet 国产超强纯前端在线excel表格功能强大简单使用记录
下一篇：纯css实现固定表头和锁定列

Excel VBA 如何将表格发布成网页，这个功能的确强大

No.1

No.2

相关推荐

使用VSCode模板提高Vue开发效率（vscode开发vue3）

吃透 Vue 项目开发实践|16个方面深入前端工程化开发技巧【下】

移动前端重构实战系列:5-7章（前端移动端主要技术有哪些）

8.7k star，一款超炫酷的动态可视化大屏项目

说下你的vue项目的目录结构，该怎么划分?

这么牛逼的cursor功能，赶紧用起来

用上Vue3，你真的变了吗?（vue3 key）

20个免费音乐音效下载网站，无版权素材商业影片也可用

什么是“恒定光圈”，什么是“浮动光圈”?-摄影早自习第331

谷歌SEO:外贸电商网站On-page SEO优化实战「附案例」