asked on Script or similar to create hundreds of cutomised Excel files
I need to create several hundred customised Excel files.
I have a template file with a bunch of field names as the first row. The second row is to be filled in by the recipient.
I have a master file with two columns which contains the name I want for each file, which is a number, like 92625785965 (an ABN, in fact) and a Company Name.
The company name needs to go into cell A2.
How can I go about this in an automated fashion?
I have a template file with a bunch of field names as the first row. The second row is to be filled in by the recipient.
I have a master file with two columns which contains the name I want for each file, which is a number, like 92625785965 (an ABN, in fact) and a Company Name.
The company name needs to go into cell A2.
How can I go about this in an automated fashion?
Microsoft Excel
Last Comment
snooflehammer
ASKER
This is a macro I run from within an Excel workbook?
Yes, I would do it from the template workbook.
ASKER
OK. I'll get to try this out in the next 48 hours. I'll revert then
ASKER
I'm struggling with this.
I\ve saved a worksheet with the filenames in colum 1 and the company names in column 2. Its called Book1.xlsx and it's on my D drive, so its full path is D:\Book1.xlsx.
The macro crashes on line 5 with run-time error '424'. Object required.
I've tried entering the path to book1, but no dice.
I\ve saved a worksheet with the filenames in colum 1 and the company names in column 2. Its called Book1.xlsx and it's on my D drive, so its full path is D:\Book1.xlsx.
The macro crashes on line 5 with run-time error '424'. Object required.
I've tried entering the path to book1, but no dice.
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Thank you
sub generatefiles
dim sws as worksheet
dim mws as worksheet
dim cel as range
set sws=activeworksheet
set mws = workbooks("masterworkbook.
for each cel in mws.range("A1:A1000")
if cel<>"" then
sws.copy
activesheet.range("A2").va
activeworkbook.saveas cel.value & ".xlsx"
activeworkbook.close
end if
next cel