在Excel VBA中编程的电子邮件（HTML/CSS）中的十进制分隔符

我有以下简单的Excel电子表格：

          A                  B           C
1   25,000,000.50
2
3

以及以下VBA代码，用于发送包含单元格A1内容的电子邮件：

Sub Separators_in_Email()
    If ExitAll = False Then
        Dim OApp As Object, OMail As Object, signature As String
        Set OApp = CreateObject("Outlook.Application")
        Set OMail = OApp.CreateItem(0)
            With OMail
            .display
            End With
            signature = OMail.HTMLBody
            With OMail
            .To = "test@test.de"
            .Subject = "test"
            .HTMLBody = "<p> I want this number " & Sheet1.Range("A1") & " to be shown with its decimal separators as in the Excel sheet</p>"
            End With
        Set OMail = Nothing
        Set OApp = Nothing
    Else
    End If
End Sub

电子邮件（）中的子分隔符 如果ExitAll=False，则 Dim OApp作为对象，OMail作为对象，签名作为字符串 设置OApp=CreateObject（“Outlook.Application”） 设置OMail=OApp.CreateItem（0） 与奥马尔 .展示 以 签名=OMail.HTMLBody 与奥马尔 .To=”test@test.de" .Subject=“测试” .HTMLBody=“我希望此数字”和Sheet1.Range（“A1”）和“以其十进制分隔符显示，如Excel工作表中所示

” 以 设置OMail=Nothing 设置OApp=Nothing 其他的 如果结束 端接头 电子邮件本身工作正常

但是，正如您在Excel电子表格中看到的，我使用“，”作为小数分隔符。在电子邮件中不使用此十进制分隔符。相反，数字写为25000000.5，不带“，”

在VBA或HTML/CSS中，有没有一种方法可以用正确的小数点分隔符显示工作表中的数字？

代码行：

.HTMLBody = "<p> I want this number " & Sheet1.Range("A1") & " to be shown with its decimal separators as in the Excel sheet</p>"

.HTMLBody=“我希望这个数字”和Sheet1.Range（“A1”）&“以其十进制分隔符显示，如Excel工作表中所示
”

您应该将

Sheet1.Range（“A1”）

替换为

Sheet1.Range（“A1”）.Text，该文本将返回单元格的格式化值

当您仅使用
Sheet1.Range（“A1”）
时，它返回单元格的默认属性-
Value
，其中包含未格式化的值。看

CSS/HTML不是导致此问题的因素