Question

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

我尝试如下，

Sub control()

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

End Sub

但是它不起作用..任何可以帮助我的人！接下来，我要修改复制的Excel文件。任何提示！

Answer 1

您的代码几乎可以。

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

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

1 个答案: