使用VBA提取excel数据到邮件中，数字带千分号格式

zhinanliu

大佬们，我现在有个代码是将excel中数据提取到邮件中，我在excel更改为千分数格式，但是在邮件中不显示千分格式，帮忙看一下代码哪里可以更改。

以下是excel数据






以下是邮件格式

邮件无千分格式

zhinanliu

链接数据代码如下：
Function ArrToHtml(t)
    Dim i As Integer
    Dim tmp As String
    Dim j As Integer
    Dim tmpstr As String
   
    For i = 1 To UBound(t, 1) '//?? ?
        
        For j = 1 To UBound(t, 2) '//?
            
            tmp = tmp & "<td>" & t(i, j) & "</td>"  '// ???????
            
        Next
        tmpstr = tmpstr & "<tr>" & tmp & "</tr>"    '//?????
        
        tmp = ""    '//????
        
    Next
   
    tmpstr = "<TABLE  width=""100%"" border=""1"" style=""border-collapse:collapse;"" bordercolor=""Blue"" cellpadding=""0"" cellspacing=""0"" >" & tmpstr & "</TABLE>"  '//html ????
   
    ArrToHtml = tmpstr
End Function