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
LapchienDirectorAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

 
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

Experts Exchange Solution brought to you by ConnectWise

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
 
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.