Creare FILES da FOGLI

[ryden80]

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.

[Flash30005]

Apri il foglio conmpleto di 50 (o più fogli)
inserisci in un modulo questa macro

Codice: Seleziona tutto

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

Avvia la macro e avrai tutti i tuoi file, uno per foglio, su C:\FogliExcel\ nel caso ti occorrano altrove cambia il percorso ricordando di mettere i doppi apici e la \ alla fine del percorso

così "C:\TuaDirectory\TuaSottodirectory\"

In questi casi è molto comoda e funzionale il Trova e Sostituisci (all'interno della macro, come in qualsiasi documento di office)

Ciao