Creating new files using VBA

[prasjohn]

Hi all, I have a requirement.. File names are mentioned from A2 column onwards, and based on the names and extension, the program should create files and store in a specified location.... File names may be like, MyBook1.xls, Mywordbook.doc, Myfinal.pdf etc... Location could be just C: drive. Any help will be appreciated.... Regards ...

 

[Derek Brown]

Perhaps you can give more information about what you are trying to do.
Are those files going to be empty or will they have content (if so, where from)?
What version of Office are you using and are you using any specific PDF software?

 

[prasjohn]

Hi Derek,
I could manage to get this done.. However, i wanted to thank you for looking to my request.. I did using the following script...
'Dim lRow, x As Integer
'Dim wbName As String


'lRow = Range("A" & Rows.Count).End(xlUp).Row
'x = 1
'Do
' x = x + 1
' wbName = Range("A" & x).Value
' ActiveWorkbook.SaveAs Filename:="C:\Users\pjohn\Desktop" & wbName & ".xls"
'Loop Until x = lRow
'ActiveWorkbook.Close


Thanks once again... Merry X mas..!!