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

Question

如题所述

Answer 1

用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 都将失败。

Answer 2

用下面的语句
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile "x:\xxx\xxx.xxx", "x:\xx xx\xx\", True '第一个参数是源文件路径，第二个是目标文件夹，第三个是是否覆盖已存在的文件