Procedura: copiare fogli di lavoro

Articolo
08/11/2011

È possibile creare una copia di un foglio di lavoro e inserirla prima o dopo un foglio di lavoro esistente nella cartella di lavoro. Se non si specifica dove inserire il foglio di lavoro, Excel crea una nuova cartella di lavoro per il nuovo foglio di lavoro.

Si applica a: le informazioni fornite in questo argomento sono valide per i progetti a livello di documento e di applicazione per Excel 2007 ed Excel 2010. Per ulteriori informazioni, vedere Funzionalità disponibili in base ai tipi di progetto e applicazioni di Office.

Nota

Indipendentemente dal fatto che il foglio di lavoro venga copiato a livello di codice o manualmente dall'utente finale, non è presente codice nel nuovo foglio di lavoro mentre i controlli presenti sul nuovo foglio non funzionano perché il foglio di lavoro appena copiato è un oggetto Microsoft.Office.Interop.Excel.Worksheet e non un elemento host Microsoft.Office.Tools.Excel.Worksheet. I controlli Windows Form e i controlli host possono essere aggiunti solo agli elementi host. Per ulteriori informazioni, vedere Limitazioni a livello di codice degli elementi e dei controlli host.

Per aggiungere una copia di un foglio di lavoro a una cartella di lavoro in una personalizzazione a livello di documento

Utilizzare il metodo Copy per copiare il primo foglio nella cartella di lavoro corrente e inserire la copia dopo il terzo foglio.
```
Globals.Sheet1.Copy(After:=Globals.ThisWorkbook.Sheets(3))
```
```
Globals.Sheet1.Copy(missing, Globals.ThisWorkbook.Sheets[3]);
```

Per aggiungere una copia di un foglio di lavoro a una cartella di lavoro in un componente aggiuntivo a livello di applicazione

Utilizzare il metodo Copy per copiare il primo foglio nella cartella di lavoro corrente e inserire la copia dopo il terzo foglio.

Dim worksheet1 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(1),  _
Excel.Worksheet)
Dim worksheet3 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(3),  _
Excel.Worksheet)
worksheet1.Copy(After:=worksheet3)

Excel.Worksheet worksheet1 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[1]);
Excel.Worksheet worksheet3 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[3]);
worksheet1.Copy(missing, worksheet3);