VBA复制一个SHEET到另一个文件中的代码

1、在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面。

2、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】。

3、会d出代码编辑窗口。

4、在代码编辑窗口输入一下代码。Sub 复制文件()FileCopy "f:\456.xlsx", "e:\963.xlsx"End Sub。

5、在VBA界面，点击工具栏里的【运行】按钮。

6、会发现E盘的目录下，出现了【963.xlsx】文件，复制就成功了。

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

首先：如果目标文件夹与原文件夹不在同一目录，可以与原文件夹同名，先判断此目标文件夹是否已经存在，如果存在，就不需要创建了~然后进行后面的步骤。如果目标文件夹复制到原文件夹所在的位置就改一个不同的名字，习惯上在名字前面加“复件 原文件夹名”如果“复件 原文件夹名”已经存在，便“复件（2）原文件夹名”……直到不重名为止。

（那么怎么实现呢？请楼主看最后面。）

然后：

CFileFind::FindFile 开始准备文件的查找，第一个参数传所要复制的文件夹地址+ “*.*”，为的是准备查找此文件夹内所以文件与文件夹

然后循环调用：CFileFind::FindNextFile

开始真正的查找，直到返回值为0时停止，这时说明全部被找过。（此函数每调用一次找到一个文件或文件夹）。

那么如何判断此次找到的是文件还是夹呢？用下面的函数

CFileFind::IsDirectory

如果是文件，那么CopyFile

如果是文件夹，那么在所匹配的位置上进行文件夹处理，如果处理，请看最后面。

可以使用递归的方法复制它正面的子文件夹与子文件夹的子文件夹……，方法也是上面所说，只是得使用递归方法。

最后面：

判断文件夹是否存在：用上面所说的那几个函数就可以实现，如果楼主不是个懒惰的人，多看帮助吧！

如果需要创建空文件夹，那么

CreateDirectory

应该有很多更好的方法，但我也能力有限，请楼主多包含啦。

---