我有一个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"