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

Question

我有一个名为 control.xlsx 的文件，想在这个文件中创建宏，以便控制同一目录中的其他文件。

我试过如下，

Sub control()

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

End Sub

但它不起作用..任何可以帮助我的人！接下来我想修改复制的excel文件。有小费吗！

标签： excelvba

Answer 1

你的代码几乎没问题。

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