dividere in più file

[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?

[Gaetanopr]

Si è possibile ma servirebbe un file di esempio su cui lavorare compreso di spiegazioni e risultato finale

[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

[marcoatmac]

Eccezionale patel, grazie mille!