How can I copy files in same directory to another directory with vba?

Question

I have a file named control.xlsx and want to make macro in this file so control other files in same directory.

I tried like below,

Sub control()

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

End Sub

but it doesn't work.. anybody who can help me! I want to modify the copied excel files next. any tips!

Note that "it doesn't work" is a completely useless error description. Also make sure that ActiveWorkbook is exactly what you want and not ThisWorkbook they often get mixed up. • I also recommend to activate Option Explicit: In the VBA editor go to Tools › Options › Require Variable Declaration. — Pᴇʜ
– Pᴇʜ, Commented Jan 17, 2019 at 8:07
Possible duplicate of VBA to copy a file from one directory to another — Michał Turczyn
– Michał Turczyn, Commented Jan 17, 2019 at 8:11

Rafał B. · Accepted Answer · 2019-01-17 08:57:48Z

1

Your code is almost OK.

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

answered Jan 17, 2019 at 8:57

Rafał B.

4041 gold badge3 silver badges19 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How can I copy files in same directory to another directory with vba?

1 Answer 1

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related