如题所述
1、我们需要批量提取新建文件夹里的文件完整路径，打开批量提取文件名的excel文件。
2、单击视图按钮中的查看宏按钮。
3、在弹出的对话框中找到对应操作的宏命令，批量获取文件名，并单击执行。
4、接着会弹出文件选择对话框，我们需要找到对应文件，并单击确定。
5、确定后，即可看到文件的路径已经找到。
6、接着我们需要输入函数将文件路径和文件名合并为完整路径，函数为简单的&文本链接。
7、最后把宏代码分享给大家，需要打开工作簿，然后按快捷键ALT+F11打开宏窗口。
8、然后插入一个模块，并将代码写入。
1、首先打开工作表，点击【开发工具】下的【 】选项。
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本回答被提问者和网友采纳
