文章/答案/技术大牛

发布

社区首页 >问答首页 >如何创建脚本将excel表行转换为HTML页面？

问如何创建脚本将excel表行转换为HTML页面？
EN

Stack Overflow用户

提问于 2016-03-25 01:27:18

回答 1查看 62关注 0票数 0

我有一个excel表，其中包含本地企业的地址和一个小的描述。需要上传这个目录到我的Wordpress网站。

我希望表中的每一行都是一个单独的HTML网页。我有一个css模板来对内容进行样式化，但是该表有超过1000个条目。因此，手工操作将是一种痛苦。

ps。如果有一个字按插件，我可以使用它，这将是最方便的。

excel

html

css

wordpress

回答 1

Stack Overflow用户

回答已采纳

发布于 2016-03-25 01:58:35

下面的代码需要CSS中的C1、C2、.、Cx等。

Dim sDir As String
Dim iRnd, iCnd, iRow, iCol As Integer
Dim oFso As Object
Dim oFil As Object

sDir = ActiveWorkbook.Path & "\"
iRnd = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
iCnd = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Set oFso = CreateObject("Scripting.FileSystemObject")

For iRow = 1 To iRnd

    Set oFil = oFso.CreateTextFile(sDir & iRow & ".html")
    oFil.WriteLine "<html><body>"
    For iCol = 1 To iCnd
        oFil.WriteLine "<div class='C" & iCol & "'>" & Cells(iRow, iCol) & "</div>"
    Next
    oFil.WriteLine "</body></html>"
    oFil.Close

Next

Set oFil = Nothing
Set oFso = Nothing

MsgBox "Done"

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/36212700

复制

相似问题

问如何创建脚本将excel表行转换为HTML页面？
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何创建脚本将excel表行转换为HTML页面？EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何创建脚本将excel表行转换为HTML页面？
EN