excel表格中，使用宏，如何实现把一个文件拷贝到另外一个文件夹？

用Copyfile方法可以实现。

代码如下：

Set fs = CreateObject("Scripting.FileSystemObject")

fs.copyfile 参数1, 参数2, 参数3

其中第一个参数是源文件的完整路径，如“C:\users\administrator\Desktop\Book1.xls”，第二个参数是目标文件夹的完整路径，如“C:\users\administrator\Desktop"，第三个是是否覆盖已存在的文件，True或者False，True表示覆盖，False表示不覆盖。

关于Copyfile的相关知识：

Copyfile：把一个或多个文件从一个地方复制到另一个地方。

语法

object.CopyFile source, destination[,

overwrite]

CopyFile 方法语法有如下几部分：

object

必需的。object始终是一个 FileSystemObject

的名字。

source

必需的。指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符。

destination

必需的。指明 source

中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。

overwrite

选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是

True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination

具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。

模块上右键菜单——导出文件

新Excel文件中，打开VBA编辑器，导入文件，找到刚导出的文件导入即可。

如果需要执行这样检查的文件不是特别多的话，还是逐一导入模块比较合适；如果特别多的话，可以考虑专门制作一个模板文件（.xlt），在其中加上你的宏，然后你的这些文件就使用这个专门的模板，其他文件不会受影响的。

Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。VBA是它的一个子集，可以广泛地应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。

'按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式

Sub 提取数据()

For i = 2 To Sheets.Count

Sheets("0").Columns(i - 1).Copy Sheets(i).Range("a1")

Next

End Sub

---