Excel 如何使用vba将同一目录中的文件复制到另一个目录？

我有一个名为control.xlsx的文件，希望在该文件中生成宏，以便控制同一目录中的其他文件

我试着像下面一样

Sub control()

  name = Dir(ActiveWorkbook.path & "\*.xlsx")
  Do While name <> ""
   FileCopy name, ActiveWorkbook.Path & "\new" & "\" & name
  Loop

End Sub

子控件（）
name=Dir（ActiveWorkbook.path&“\*.xlsx”）
当名称为“”时执行此操作
FileCopy名称，ActiveWorkbook.Path&“\new”&“\”名称
环
端接头

但是它不起作用。。任何能帮我的人！

---

接下来我想修改复制的excel文件。任何提示

您的代码几乎正常

     Sub control()
        name = Dir(ActiveWorkbook.path & "\*.xlsx")
        Do While name <> ""
           FileCopy name, ActiveWorkbook.Path & "\new" & "\" & name
           name = Dir()
        Loop
     End Sub

子控件（）
name=Dir（ActiveWorkbook.path&“\*.xlsx”）
当名称为“”时执行此操作
FileCopy名称，ActiveWorkbook.Path&“\new”&“\”名称
name=Dir（）
环
端接头

请注意，“它不工作”是一个完全无用的错误描述。还要确保

ActiveWorkbook

正是您想要的，而不是

thiswoolk

它们经常混淆我还建议激活

Option Explicit

：在VBA编辑器中，转到工具›选项›。重复的。是否确实存在完整的目标路径？可能重复的，为什么不复制文件夹（包含内容…）