Pagina 1 di 1
dividere in più file
Inviato: mercoledì 29 aprile 2015, 13:25
da marcoatmac
Ciao ho un file con 6000 righe e dovrei dividerlo in più file da 150 l'uno se proprio non si può fare su più file, magari dividerlo in più fogli che andrò a salvare separatamente... mi serve per poter caricare sul server pacchetti leggeri di dati altrimenti si incricca e salta tutto: qualcuno sa se è possibile farlo senza mille taglia e incolla per favore?
Re: dividere in più file
Inviato: mercoledì 29 aprile 2015, 15:05
da Gaetanopr
Si è possibile ma servirebbe un file di esempio su cui lavorare compreso di spiegazioni e risultato finale
Re: dividere in più file
Inviato: mercoledì 29 aprile 2015, 15:15
da patel
prova questa macro
Codice: Seleziona tutto
Sub Dividi_in_fogli()
passo = 150 ' da modificare
Doc = ThisComponent
Sheet = Doc.Sheets(0)
oSheets = Doc.Sheets
c = Sheet.createCursor
c.gotoEndOfUsedArea(false)
righe = c.RangeAddress.EndRow
colonne = c.RangeAddress.EndColumn
riga=0
n = 1
For i =0 to righe step passo
nomefoglio= "F" & n
oSheets.insertNewByName(nomefoglio, 4)
oSheet = Doc.Sheets.getByName(nomefoglio)
dati = Sheet.getCellRangeByPosition(0,i,colonne,i+passo-1).getRangeAddress()
CellAddress = oSheet.getCellByPosition(0,riga).getcellAddress()
Sheet.copyRange(CellAddress, dati)
n = n+1
Next
End Sub
Re: dividere in più file
Inviato: mercoledì 29 aprile 2015, 15:24
da marcoatmac
Eccezionale patel, grazie mille!