[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 284
  • Last Modified:

Copy file and rename 110 times, increment filename by 1 each time?

I have an Excel spreadsheet called 1.xls

Is there a bit of vbs to copy this file and call it 2.xls, then 3.xls, then 4.xls and so on - 110 times, to 110.xls?

Thanks
Lapchien
0
Lapchien
Asked:
Lapchien
  • 2
1 Solution
 
Raynard7Commented:
Easy

If you have the location

public sub copy100

dim fileName as string
dim outputLoc as string
dim lngLc as long

fileName = "C:\xxx\1.xls"
outputLoc = "C:\xxx\"

for lngLC = 2 to 110
    filecopy filename, outputLoc & lnglc & ".xls"
next lngLc

end sub
0
 
Raynard7Commented:
Sory the sub should be public sub copy100 ()

This goes through the numbers in the selected range and copies from the fileName to the outputLocation - and the name of the file is just the number - if you want it to be numbered 002 to 110 then you would use a format statement in th filecopy
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now