excel能创建html吗,如何通过Excel电子表格使用循环创建单独的HTML发布页面

这应该是相当简单的放在循环内。

这里是一个例子。我假设文件名将来自子范围的第一行/第二列，您可以轻松修改此内容，或者询问我如何修改。我还假设Div ID(“FileName_100067”)是不变的。再次，如果需要，可以很容易地修改。

Sub HTMLinLoop()

Dim wb As Workbook: Set wb = ActiveWorkbook

Dim ws As Worksheet: Set ws = ActiveSheet

Dim rng As Range '## The full range including all columns'

Dim subRng As Range '## a variable to contain each publishObjects range'

Dim pObj As PublishObject '## A variable to contain each publishObject as we create it.'

Dim p As Long '## use this integer to iterate over the columns in rng'

Dim fileName As String '## represents just the file name to export'

Dim fullFileName As String '## the full file path for each export'

Dim divName As String '## variable for the DivID argument, assume static for now'

Set rng = ws.Range("A3:W30") '## modify as needed'

For p = 1 To rng.Columns.Count

'Identify the sub-range to use for this HTML export:'

' this will create ranges like "A:B", then "A:C", then "A:D", etc.'

Set subRng = Range(rng.Columns(1).Address, rng.Columns(p + 1).Address)

'Create the filename:'

'## modify as needed, probably using a range offset.'

fileName = subRng.Cells(1, 2).Value & "_VSE.htm"

'Concatenate the filename & path:'

'## modify as needed.'

exportFileName = "C:\Users\" & Environ("Username") & "\Desktop\" & fileName

'Create hte DIV ID:'

divName = "FileName_10067" '## modify as needed, probably using a range offset.'

'## Now, create the publish object with the above arguments:'

Set pObj = wb.PublishObjects.Add(_

SourceType:=xlSourceRange, _

fileName:=exportFileName, _

Sheet:=ws.Name, _

Source:=subRng.Address, _

HtmlType:=xlHtmlStatic, _

DivID:=divName, _

Title:="")

'## Finally, publish it!'

pObj.Publish

'## Hide the last column:'

rng.Columns(p+1).EntireColumn.Hidden = True

Next

End Sub