如何将一系列Excel单元格编写并保存为单独的HTML文件

为了说明这一点，我正在Outlook365中创建一组专业的电子邮件签名，并试图统一创建这些签名，但用户的联系方式不同（自然）

为此，我将用户的数据放在一个表中，并用HTML代码为每一行填充一个单元格，动态更改每一行的信息，为每个用户生成一个唯一的模板签名

然而，我正在努力寻找的部分是一段代码，它将获取每个单元格的数据，并为每个单元格生成一个HTML文件。澄清一下：我预计200个单元格将生成200个HTML文档，全部来自Excel工作表的“HTML”列

名称 电子邮件地址 电话号码 HTML 乔·布洛格斯 jb@website.com 079998

---

该代码与您开始它的工作表一起工作。我使用name列作为文件名。像你需要的那样改变它

以下是如何将列的每个单元格保存到单个文件中：

Sub WriteCellHTML()

Const colToWrite As Long = 4
Const colToFileName As Long = 1
Const firstRow As Long = 2
Const path As String = "E:\Test\" 'don't forget the backslash at the end
Dim currRow As Long

  currRow = firstRow
  
  Do Until Cells(currRow, colToFileName) = ""
    Close
    Open path & Cells(currRow, colToFileName) & ".htm" For Output As #1
    Print #1, Cells(currRow, colToWrite)
    Close
    currRow = currRow + 1
  Loop
End Sub

链接的问题似乎是专门从一个范围创建一个文档，我请求从一个范围创建多个文档。