Di seguito una breve sub per copiare un intervallo da un file Excel ad un altro.
Utile se si vuole condividere parte del proprio lavoro su un file condiviso, senza che nessuno debba avere accesso al file d’origine.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub copiaIntervallo() 'main.xlsx è il file di origine 'shared.xlsx è il file dove l'intervallo deve essere copiato 'A:H è l'intervallo da cambiare secondo le proprie esigenze Workbooks.Open "C:\..\shared.xlsx" Workbooks("main.xlsm").Worksheets("Foglio1").Range("A:H").Copy _ Workbooks("shared.xlsx").Worksheets("Foglio1").Range("A:H") Workbooks("shared.xlsx").Close SaveChanges:=True MsgBox "Intervallo copiato correttamente!" End Sub |