使用VBA填充Outlook模板时保留Excel格式的方法咨询

我明白你的困扰——直接从Excel单元格取值替换Outlook模板内容时，格式全丢了，数字变成光秃秃的纯数值，百分比也变成了小数，这确实很头疼！

问题根源 #

你当前代码里用Worksheets("Feuil1").Range("C29")时，VBA默认获取的是单元格的Value属性，也就是存储在Excel里的原始数值，而不是你在界面上看到的带千分位、货币符号或百分比的格式化显示文本。这就是格式丢失的核心原因。

解决方案1：直接获取Excel显示的格式化文本 #

最简单的方法是改用单元格的Text属性，它会返回你在Excel中看到的完整格式化内容：

修改替换代码行如下：

.HTMLBody = Replace(.HTMLBody, "#NOMINAL#", Worksheets("Feuil1").Range("C29").Text)

这样替换后，"1 500 000,00€"和"85%"就能完整保留格式出现在Outlook邮件里了。

解决方案2：手动自定义格式（更灵活） #

如果遇到单元格宽度不够导致Text显示不全，或者你想完全控制输出格式，可以用Format函数手动指定格式规则：

比如针对带欧元的数字：

Dim formattedNominal As String
' 按照你的Excel格式规则定义格式字符串
formattedNominal = Format(Worksheets("Feuil1").Range("C29").Value, "# ### ##0,00€")
.HTMLBody = Replace(.HTMLBody, "#NOMINAL#", formattedNominal)

针对百分比：

Dim formattedPercent As String
formattedPercent = Format(Worksheets("Feuil1").Range("你的百分比单元格").Value, "0%")
' 替换模板中的对应占位符
.HTMLBody = Replace(.HTMLBody, "#PERCENT#", formattedPercent)

小提示 #

因为你用的是HTMLBody替换，要确保特殊字符（比如欧元符号€、千分位空格）在HTML中能正常显示。一般情况下直接用Text或Format生成的文本都没问题，如果遇到空格显示异常，可以把空格替换成HTML实体 ，比如：

formattedNominal = Replace(formattedNominal, " ", " ")

内容的提问来源于stack exchange，提问作者BenjamLev