Question

我希望使用VBA创建一个Excel宏，为每周网页更新生成一个HTML表。该表非常大，几个表格单元格是链接值。到目前为止，我的研究引领了我。

Sub Export_AB_Table()

  For Each Row In Rows

    valA = ("A" & ActiveCell.Row)
    valB = ("B" & ActiveCell.Row)
    valC = ("C" & ActiveCell.Row)
    valE = ("E" & ActiveCell.Row)
    valG = ("G" & ActiveCell.Row)
    valI = ("I" & ActiveCell.Row)

    tableHTML = "<body><tbody>"
    tableHTML = "<tr><td>"

    valE

    tableHTML = "</td><td>"

    valA valB

    tableHTML = "</td><td>"

    Val

    tableHTML = "</td></tr>"
    tableHTML = "</tbody></body>"

Next table_cell
End Sub

我想要遍历6列表，并且对于每一行，拉出几个表格单元格值，将它们插入到HTML表格行字符串中。然后该表将导出HTML文档。我可以导出表格，这是我无法找到写入的每一行的表格中的拉值。

目前的问题是我的价值参考。任何人都可以建议或指出我的教程或资源的方向接近我期望的目标吗？任何帮助表示赞赏。

Answer 1

我不担心HTML转换 - 让Excel Save As处理这个问题。

对于链接，只需在工作表中创建链接，如下所示：

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="google.com", _
        TextToDisplay:="google.com"

要过滤数据，只需创建一个新的临时工作表，只复制您想要的数据，将其另存为HTML，然后将其删除。

如何使用带有ForEach循环的VBA宏将Excel文档中的单元格值拉入HTML表

1 个答案: