Pagina 1 di 1

Trasferimento automatico colonne

Inviato: venerdì 3 agosto 2018, 16:16
da 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

Re: Trasferimento automatico colonne

Inviato: venerdì 3 agosto 2018, 17:42
da 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

Re: Trasferimento automatico colonne

Inviato: lunedì 6 agosto 2018, 14:26
da 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

Re: Trasferimento automatico colonne

Inviato: lunedì 20 agosto 2018, 16:16
da luca733
nessuno che mi può aiutare? :roll: :(

Re: Trasferimento automatico colonne

Inviato: domenica 16 settembre 2018, 0:55
da 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