用vb代码怎样实现将dat文件转换成excel文件？急用！

我的代码如下：
.To = cell.Value
.From = "notification@XXX.com"
.Subject = "test"
.Attachment.Add '"D:\Tech\VBA\test.rar"'
结果邮件里的附件是.dat格式，请问要怎么样写代码才能让附件保持excel格式不变呢

谢谢

[解决办法]
邮件格式要是html的.
[解决办法]
读出来，写进去！
[解决办法]
友情Up...............