Salve,
ho un file excel contenente una cinquantina di fogli.
E' possibile con un singolo comando creare 50 files ognuno corrispondente ad ogni singolo foglio del file principale?
Grazie.
Moderatori: Anthony47, Flash30005
Sub CopiaFogliSuFile()
Application.ScreenUpdating = False
Application.Calculation = xlManual
If Dir("C:\FogliExcel\", vbDirectory) = "" Then MkDir "C:\FogliExcel\"
For i = 1 To ActiveWorkbook.Worksheets.Count
NomeF = i
If Len(NomeF) < 2 Then NomeF = "0" & NomeF
Sheets(i).Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\FogliExcel\" & NomeF & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Range("A1").Select
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Torna a Applicazioni Office Windows
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Trsposizione valori stessa voce tra fogli Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 1 |
Dividere foglio in piu' fogli e concatena Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 14 |
Visitano il forum: Nessuno e 19 ospiti