excel 2007 convert one sheet into multiples sheets (for excel 2003Compatibility)

[recif20002002]

Hello everyone,

I am currently working on a research project and I am having issues
converting an excel 2007 file with a single sheet (2000 columns) into
excel 2003.
I would like to break down the main sheet into multiple 256 columns
sheets so that this file can be recognized as a excel 2003 files by
this research software

If anyone has any idea I would really appreciate

 

[john]

I don't use 2007 but as an idea, you could try and copy data to new sheets.

Not sure if I have got the logic righ but an approach like following may
work for you:

Sub SplitData()
Dim NewSh As Worksheet
Dim Col As Integer

Col = 0

Application.ScreenUpdating = False

Do

Set NewSh = Worksheets.Add

NewSh.Move After:=Worksheets(Worksheets.Count)

'sheet with data to be copied
'change name as required
With ThisWorkbook.Worksheets("Sheet1")

.Range(.Cells(1, Col + 1), .Cells(65536, Col + 256)).Copy

End With

NewSh.Paste Destination:=NewSh.Range("A1")

Col = Col + 256
'loop 8 x
Loop Until Col > 2048

Application.ScreenUpdating = True

End Sub

 

[KC]

Send it to me, I convert for you.