为html表赋值时，使用单元格保持换行符_Html_Excel_Email_Html Email_Vba

为html表赋值时，使用单元格保持换行符

html excel email vba

为html表赋值时，使用单元格保持换行符,html,excel,email,html-email,vba,Html,Excel,Email,Html Email,Vba,我正在生成一封html电子邮件，其中包含excel工作表中基于标志值的特定值表。我遇到的问题是某些单元格中包含换行符，例如：在单元格B5中，用户输入了： Red Blue Green 每个单词之间有一行空格我正在使用 <html> <table> <tr> <td>Cells(5,2).Value</td> </tr> </table>

我正在生成一封html电子邮件，其中包含excel工作表中基于标志值的特定值表。我遇到的问题是某些单元格中包含换行符，例如：

在单元格B5中，用户输入了：

Red
Blue
Green

每个单词之间有一行空格

我正在使用

<html>
    <table>
        <tr>
            <td>Cells(5,2).Value</td>
        </tr>
    </table>
</html>

同一行中的其他单元格可能只包含一个值，因此添加额外的行并不是我真正想要的解决方案

在电子邮件中将值分配给html表时，如何保留最初输入单元格的换行符？

html需要

BR

元素来标记换行符。因此，您需要将

\n

Chr（10）

换行符替换为

像这样：

sHTML = "<html><table><tr><td>"
sHTML = sHTML & Replace(Cells(5, 2).Value, Chr(10), "<br/>")
sHTML = sHTML & "</td></tr></table></html>"

sHTML=“”
sHTML=sHTML&Replace（单元格（5,2）.值，Chr（10），“
”）
sHTML=sHTML&“

谢谢！真是一种享受！

sHTML = "<html><table><tr><td>"
sHTML = sHTML & Replace(Cells(5, 2).Value, Chr(10), "<br/>")
sHTML = sHTML & "</td></tr></table></html>"