如何将模板文件复制n文件

Question

在某一文件夹下，有一模板文件→a.xls
目标需求是
a.xls文件复制成n个文件
a1.xls
a2.xls
a3.xls
.....
an.xls
谢谢。

Answer 1

FileCopy 语句
      复制一个文件。语法FileCopy source, destinationFileCopy 语句的语法含有以下这些命名参数：部分 描述 
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。 
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。 
说明如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。
For...Next 语句
      以指定次数来重复执行一组语句。语法For counter = start To end [Step step]
[statements]
[Exit For]
[statements]Next [counter]For…Next 语句的语法具有以下几个部分：部分 描述 
counter 必要参数。用做循环计数器的数值变量。这个变量不能是布尔或数组元素。 
start 必要参数。counter 的初值。 
End 必要参数，counter 的终值。 
Step 可选参数。counter 的步长。如果没有指定，则 step 的缺省值为 1。 
Statements 可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。 
说明step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示：值 循环执行，如果 
正数或 0 counter <= end 
负数 counter >= end 
当所有循环中的语句都执行后，step 的值会加到 counter 中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从 Next 语句之后的语句继续执行。提示 在循环中改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。 Exit For经常在条件判断之后使用，例如 If...Then，并将控制权转移到紧接在 Next 之后的语句。可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。下面的体系结构是正确的：For I = 1 To 10
   For J = 1 To 10
      For K = 1 To 10
         ...
      Next K
   Next J
Next I注意 如果省略 Next 语句中的 counter，就像 counter 存在时一样执行。但如果 Next 语句在它相对应的 For 语句之前出现，则会产生错误。

Answer 2

For i=1 to n
  FileCopy "c:\a.xls", "c:\a" & i & ".xls"
next i