大概的思路就是：
Dim s As string
for each r as row in tables("xxx").Rows
s = s & Filesys.ReadAllText(r("文件列"))
Next
加好友 
发短信
Post By：2012/10/25 8:37:00 [显示全部帖子]
