Mangiare Senza Glutine disponibile su App Store

Per altre informazioni scrivi a fabriziocaldarelli@negusweb.it

Separare fogli excel in files: differenze tra le versioni

Da Programmazione Software.
(Creata pagina con "Macro ( codice Visual Basic ) per separare i fogli contenuti in un file Excel in più files, contenenti ciascuno un singolo foglio <source lang="vb"> Sub Splitbook() MyPath =...")
 
(Nessuna differenza)

Versione attuale delle 17:15, 17 apr 2014

Macro ( codice Visual Basic ) per separare i fogli contenuti in un file Excel in più files, contenenti ciascuno un singolo foglio

Sub Splitbook()
MyPath = ThisWorkbook.Path
For Each sht In ThisWorkbook.Sheets
sht.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs _
Filename:=MyPath & "\" & sht.Name & ".xls"
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub