Open, split worksheet into separate workbook, save splited workbooks

[solti]

Hello,

I'm new to VBA and want to write a macro which will open an excel file (macro will be run from acces) split it to separate workbooks (each workbook will have the unique strings from col A) and saved withe the same name from col A.

I've a bit of code but it's not working properly.

Please Login or Register  to view this content.

Help greatly apprecaited,
s.

[JBeaucaire]

'ONE SHEET to WORKBOOKS (1)
Here's a macro for taking a sheet with data and creating individual wbs from each unique value in a chosen column. The date is added to the workbook names to give a reference as to when the wbs were created.

SHEET to WORKBOOKS(1)

This also uses column A and seems to be a similar approach to what you're trying to do, so use this as code examples for adapting your macro.

[solti]

Thanks a lot for help! I have couple of more questions:

1/ as the macro has to reference to the external file (workbook), which will be exported from access could you please tell me how to modify this statement. Is it the only statement I’ve to modify?
'Sheet with data in it
Set ws = Sheets("Original Data")
2/ I want to change a format of the saved files to that of the eclosed file:

I’d grateful if you could show me how to modify your code to match the new format (on 2,3 records of enclosed example)
s.
new_format.xls