如何实现根据文本模板批量生成多个文本文件？

Question

如何实现根据文本模板批量生成多个文本文件？
例如文本模板内容如下：
###_are you ok?
maybe ### is right
thanks ###'s help其中###需要用如下名单来分别替换，并生成以该名称命名的文本文件。
名单：Tony，Pily，Ruichar，Dever……分别生成的文本文件名称为：Tony.txt，Pily.txt，Ruichar.txt，Dever.txt……谢谢各位高手帮助！

Answer 1

假设你的模板内容是在一个字符串变量StrTemplate里.那么,生成A文件:dim A as stringa=replace(StrTemplate,"###","Tony")open app.path & "\Tony.txt" for binary as #1
    put #1,,a
close #1

Answer 2

谢谢二楼！
我是菜鸟，有些还是不明白：
假设我的模板文件名称为TXTtemplate.txt，存放在Temp文件夹中，需要替换的变量名存放在该文件夹Name.xls文件中（Tony，Pily，Ruichar，Dever……一列），然后根据模板和名单生成的多个文本文件存放在FilOK文件夹中。如果用VBA的话应该怎么编写源代码？求完整版。谢谢！