代码如下: 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