如题所述
代码如下：Sub将指定路径下的某一文件复制到另一指定路径下1()Dimsouf$,desf$souf="D:\test.xlsx"desf="E:\vba\test.xlsx"FileCopysouf,desfEndSubSub将指定路径下的某一文件复制到另一指定路径下2()DimfsoAsObject,souf$,des$Setfso=CreateObject("Scripting.FilesyStemObject")souf="D:\test.xlsx"des="E:\vba\"fso.CopyFilesouf,desSetfso=NothingEndSub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2022-12-01
1、首先打开工作表，点击【开发工具】下的【Visual Basic 】选项。
2、打开VBA工程窗口后，在左侧的“ThisWorkbook”上面单击右键，选择“插入”，“模块”。
3、在“模块1”的代码窗口里面输入以下VBA代码。
4、按下F5键，或者点击VBA工程窗口上面的“运行”图标运行VBA程序，之后就会自动复制工作表，改变工作表名称，改变工作表标签颜色等。
5、VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错，在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。
