Unire tanti file di calc ODS o CSV in un un file

[GaspareNet]

Salve a tutti, cercando con in rete o trovato e provato la macro di Patel e funziona
viewtopic.php?f=9&t=4856#p23182

Editato: inserito link (Admn)

Ho provato e funziona anche con file .csv.
A me servirebbero due varianti:
1 Non copiare solo la colonna A ma tante colonne es. TUTTE quelle da A fino a BX
2 Copiare un solo alcune colonne es A,D,H,A,AC,AZ
Dove devo modificare il codice?
Ringrazio in anticipo chi mi aiuterà

[charlie]

Ciao e benvenuto/a sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> viewforum.php?f=16

L’utente che apre un quesito si impegna:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati - Manuale di sopravvivenza ).

In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.

Buon proseguimento.

[GaspareNet]

Salve Charlie, grazie per i link

[unlucky83]

CIao
per la prima variante basta che modifichi 4 cifre

Codice: Seleziona tutto

Range = Sheet1.getCellRangeByPosition(0, 0,  0, LastRow1).getDataArray
  DocName.dispose
  dRange  = Sheet.getCellRangeByPosition(0, LastRow,  0, LastRow1 + LastRow )

getCellRangeByPosition(0=Indice Colonna inizio Range, 0=Indice Riga inizio range, 0=indice Colonna fine range, LastRow1=indice riga fine range)
Ciò vul dire che se vuoi copiare da colonna B a colonna E allora dovrai mettere (1, 0, 4, LastRow1)
Idem per il range di destinazione, cioè dRange

Per la variante due facciamo un esempio, vuoi copiare colonna A, C e E. Allora dovrai mettere prima di DocName.dispose

Codice: Seleziona tutto

...
RangeA = Sheet1.getCellRangeByPosition(0, 0,  0, LastRow1).getDataArray
RangeC = Sheet1.getCellRangeByPosition(2, 0,  2, LastRow1).getDataArray
RangeE = Sheet1.getCellRangeByPosition(4, 0,  4, LastRow1).getDataArray
  DocName.dispose
...

mentre dopo il dispose dovrai avere

Codice: Seleziona tutto

...
DocName.dispose
dRangeA = Sheet.getCellRangeByPosition(0, 0,  0, LastRow)
dRangeC = Sheet.getCellRangeByPosition(2, 0,  2, LastRow)
dRangeE = Sheet.getCellRangeByPosition(4, 0,  4, LastRow)
dRangeA.setDataArray(RangeA)
dRangeC.setDataArray(RangeC)
dRangeE.setDataArray(RangeE)
...

[GaspareNet]

Ho provato solo a mettere un 10 al posto di uno 0 ma ricevo questo errore che si vede nell'immagine. Io uso LibreOffice 7.1.1.2 64bit su Win10 build 19042.

[charlie]

Ciao, sei pregato di usare le finzioni del forum per allegare immagini e file e, comunque, in piccolo formato (non l'mmagine dell'intero schermo).
viewtopic.php?f=2&t=6261

[GaspareNet]

L'immagine non era a pieno schermo, circa 1/4, ora è ulteriormente ridotta 600x400 circa, mi scuso per l'errore...

[unlucky83]

Non puoi cambiare solo l’area di Range e non cambiare anche l’area di dRange. È come se dicessi di far entrare 11 colonne in una colonna. Lo considera errore

[GaspareNet]

Ok capito, ora però ricevo un altro errore, ho fatto alcune prove e apre tutti i file presenti nella cartella tranne 1. Nell'immagine in alto a destra ho messo i file presenti nella cartella e i numeri in rosso indicano la sequenza con cui sono stati aperti. Titti i file sono statsi generati con lo stesso script ed hanno la stessa identica struttura, cambia solo il numero di righe, es un file con 34 righe, uno con 40, uno con 25 etc....