如何运用VBA将指定路径下的某一文件复制到另一指定路径下

1、我们需要批量提取新建文件夹里的文件完整路径，打开批量提取文件名的excel文件。

2、单击视图按钮中的查看宏按钮。

3、在弹出的对话框中找到对应操作的宏命令，批量获取文件名，并单击执行。

4、接着会弹出文件选择对话框，我们需要找到对应文件，并单击确定。

5、确定后，即可看到文件的路径已经找到。

6、接着我们需要输入函数将文件路径和文件名合并为完整路径，函数为简单的&文本链接。

7、最后把宏代码分享给大家，需要打开工作簿，然后按快捷键ALT+F11打开宏窗口。

8、然后插入一个模块，并将代码写入。

1、首先打开工作表，点击【开发工具】下的【Visual Basic 】选项。

2、打开VBA工程窗口后，在左侧的“ThisWorkbook”上面单击右键，选择“插入”，“模块”。

3、在“模块1”的代码窗口里面输入以下VBA代码。

4、按下F5键，或者点击VBA工程窗口上面的“运行”图标运行VBA程序，之后就会自动复制工作表，改变工作表名称，改变工作表标签颜色等。

5、VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错，在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。

1、首先打开工作表，点击【开发工具】下的【Visual Basic 】选项。

2、打开VBA工程窗口后，在左侧的“ThisWorkbook”上面单击右键，选择“插入”，“模块”。

3、在“模块1”的代码窗口里面输入以下VBA代码。

4、按下F5键，或者点击VBA工程窗口上面的“运行”图标运行VBA程序，之后就会自动复制工作表，改变工作表名称，改变工作表标签颜色等。

5、VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错，在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。

代码如下：
Sub 将指定路径下的某一文件复制到另一指定路径下1()

Dim souf$, desf$

souf = "D:\test.xlsx"

desf = "E:\vba\test.xlsx"

FileCopy souf, desf

End Sub

Sub 将指定路径下的某一文件复制到另一指定路径下2()

Dim fso As Object, souf$, des$

Set fso = CreateObject("Scripting.FilesyStemObject")

souf = "D:\test.xlsx"

des = "E:\vba\"

fso.CopyFile souf, des

Set fso = Nothing

End Sub