小數點分隔符在電子郵件（HTML/CSS）在Excel的VBA編程

Question

我有以下簡單的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 

電子郵件本身完美的作品。

但是，正如您在Excel電子表格中所看到的，我使用「，」作爲小數分隔符。在電子郵件中，不使用這個小數點分隔符。相反，該號碼被寫爲25000000.5而沒有「，」。

有沒有在VBA或HTML/CSS中顯示帶有正確小數點分隔符的數字的方法？

Answer 1

與您的代碼行：

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

此時應更換Sheet1.Range("A1")與Sheet1.Range("A1").Text將返回單元格的格式值。

當您只使用Sheet1.Range("A1")時，它將返回單元格的默認屬性 - Value - 它包含一個未格式化的值。請參閱here

CSS/HTML不是此問題的一個因素。