Mangiare Senza Glutine disponibile su App Store

Per altre informazioni scrivi a fabriziocaldarelli@negusweb.it

Separare fogli excel in files

Da Programmazione Software.
Versione del 17 apr 2014 alle 17:15 di Fabrizio Caldarelli (Discussione | contributi) (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 =...")

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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
Estratto da "http://negusweb.it/wiki_software/index.php?title=Separare_fogli_excel_in_files&oldid=381"