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

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

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

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

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

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

Sub copyFiles(Path As String, afterPath)

'Path：原文件夹滑旦枝路径；afterPath：目标文件夹路径

Dim Spath As String

Set fs = CreateObject("Scripting.FileSystemObject")

Spath = Dir(Path, vbDirectory)

Do While Len(Spath)

If Spath <>"."迟掘 And Spath <>".." Then

fs.CopyFolder Path, afterPath

Spath = Dir()

End If

Loop

End Sub

———————信敏—————————

版权声明：本文为CSDN博主「前端小菜鸟007」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/weixin_41844140/article/details/103188537

---