Trasferimento automatico colonne

[luca733]

Buongiorno a tutti
cerco qualcuno disposto ad aiutarmi a modificare una macro (campo in cui pultroppo non ho gran esperienza).La macro è stata creata in excell ma vorrei poterla eseguire in Open Office.
Il file in questione lo chiameremo "pippo".Una volta aperto sono presenti 5 colonne che vanno compilate con dei dati che trovo da un altro file che ciameremo "sorgente"
Es: nella colonna A di "pippo" copio la colonna H di "sorgente",nella colonna B di "pippo" la colonna J di "sorgente" e cosi via fino a compilarle tutte e 5
Una volta fatto questo lancio la macro.
Dovrei integrare la macro presente in modo tale che l'importazione di determinate colonne dal file "sorgente" venga fatto in automatico.
Grazie a chiuque vorrà aiutarmi

[patel]

se elimini le 2 righe con Debug.Print e quelle che formattano le colonne la macro funziona anche su LibreOffice, io ho la versione 6

[luca733]

ok sembra funzionare ora anche su libreOffice
Ora dovrei fare in modo che determinate colonne del file "sorgente" vengano importate in automatico sulle 5 di "pippo".
Meglio sarebbe all'apertura del file e poi eseguo la macro
Grazie

[luca733]

nessuno che mi può aiutare?

[unlucky83]

Nel forum è un argomento trattato spesso.
Con la seguente macro apri il file sorgente.xls che si trova nella stessa cartella del file pippo.xls. Questa macro andrebbe salvata nel file pippo.xls

Codice: Seleziona tutto

Sub Apridocumento
Dim args()
Documento1=ThisComponent
nomesorgente="sorgente.xls"
percorso=left(THiscomponent.URL,instr(THiscomponent.URL,THiscomponent.Title)-1)
fullname=percorso & nomesorgente
msgbox "Verrà aperto il file " & fullname
Documento2 = StarDesktop.loadComponentFromURL (fullname, "_blank",0,args() )
sheet2=Documento2.Sheets(0)
End Sub

Per la copia prendi spunto per esempio da viewtopic.php?f=26&t=5930#p29824