With .Body.AddRow(r("日期"),r("报备人"),r("推荐人"),r("返利"),r("用户姓名"),r("用户电话"),r("楼盘"),r("单元房号"),r("风格偏好"),r("备注"))
改成
With .Body.AddRow(r("日期"),r("报备人"),r("推荐人"),r("返利"),r("用户姓名"),
"<a href='tel:" & r("用户电话") & "'>" & r("用户电话") & "</a>",r("楼盘"),r("单元房号"),r("风格偏好"),r("备注"))
[此贴子已经被作者于2018/2/27 9:50:32编辑过]