Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Dividere file Excel 2007 in più parti

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Dividere file Excel 2007 in più parti

Postdi libraio » 03/06/17 10:53

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... :oops:
Grazie
libraio
Utente Senior
 
Post: 300
Iscritto il: 04/01/10 20:31

Sponsor
 

Re: Dividere file Excel 2007 in più parti

Postdi patel » 03/06/17 17:26

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
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Dividere file Excel 2007 in più parti

Postdi libraio » 03/06/17 18:10

La macro risponde perfettamente alle mie esigenze.
Grazie!
libraio
Utente Senior
 
Post: 300
Iscritto il: 04/01/10 20:31


Torna a Applicazioni Office Windows


Topic correlati a "Dividere file Excel 2007 in più parti":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti