How To Loop From File0001.xls To File0150.xls

[donna.gough]

Using....
For j = 1 To 101
FileToOpen = "File000" & j & ".xls"
......
This obviously fails when it tries to open File0010.xls.
Can you loop with it recognising the preceeding 0's in the number ?
I know you can use the length of j to then alter the number of 0's
after the File component by using if/elseifs or case select etc but I'm
sure there must be a way of looping from 0001 to 0010 to 0150.

Question is ...is there ?

Kind Regards
Donna

 

[donna.gough]

For j = 1 To 11
a = "File" + "0000"
b = Left(a, Len(a) - Len(j)) & j
Next j

This works.

 

[Harald Staff]

Hi Donna

FileToOpen = "File" & Format(j, "0000") & ".xls"

HTH. Best wishes Harald

 

[donna.gough]

Thank you very much....you've saved me a lot of trouble.

 

[Harald Staff]

Thank you very much....you've saved me a lot of trouble.

Glad to hear that. Thank you for the feedback.

Best wishes Harald