Dividere file Excel 2007 in più parti

[libraio]

EXCEL 2007 + EXCEL 2003

Buongiorno a tutti,
vorrei automatizzare un'attività che svolgo abitualmente in modo manuale (copia/incolla).

Ho periodicamente necessità di lavorare i dati di cartelle Excel 2007 contenenti decine di migliaia di righe (mediamente 200/300.000) ed una ventina di colonne.
I dati mi servono per il gestionale che lavora in Excel 2003, con il limite delle 65.536; devo quindi dividere i dati del foglio .xlsx i più fogli .xls con il limite imposto.
Come posso velocizzare l'operazione? di mia sponte non riesco a trovare una soluzione; mi affido alla vostra preziosa competenza...
Grazie

[patel]

prova questa

Codice: Seleziona tutto

Sub dividiInFogli()
Dim uRiga As Long
Dim nFogli As Integer
Dim iCount As Integer

uRiga = Range("A" & Rows.Count).End(xlUp).Row
nrighe = 65000 ' <<<<<<<<<<<<
nFogli = Int(uRiga / nrighe) + 1
r1 = 2: r2 = r1 + nrighe
For iCount = 1 To nFogli
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = iCount * nrighe - nrighe + 1 & "a" & iCount * nrighe
Foglio1.Range("A1:I1").Copy Sheets(iCount + 1).Range("a1")
Foglio1.Range("A" & r1 & ":I" & r2).Copy Sheets(iCount + 1).Range("a2")
r1 = r1 + nrighe + 1: r2 = r1 + nrighe
Next
End Sub

[libraio]

La macro risponde perfettamente alle mie esigenze.
Grazie!