我有一个excel表,其中包含本地商家的地址以及一个简短的说明。需要将此目录上传到我的Wordpress网站。

我希望表格中的每一行都是一个单独的HTML网页。我有一个CSS模板来样式化内容,但是该表有1000多个条目。因此,手动进行操作会很痛苦。

ps。如果有一个单词新闻插件,我可以使用那将是最方便的

最佳答案

以下代码在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"

10-08 17:16