建议楼主自行百度下这类vba对象的使用,http://wenku.baidu.com/link?url=YRUOU9Z9OcSXKVu6iGND-s-WP9eSuXW9pnNLjUNYveuYT9hwvkShZ72_wWaNAPQWGYhwz6of_o0fQkloI4K6dfnO6hrz3B9LfTQHVn1UZH_&qq-pf-to=pcqq.c2c
类似的网上百度都有很多,您完全可以通过自己学习
Set tf = fso.OpenTextFile("D:/testfile.txt", 8)
打开文件的方式决定了你可以添加
ForAppending 8 打开一个文件并写到文件的尾部