Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Creare FILES da FOGLI

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Creare FILES da FOGLI

Postdi ryden80 » 11/09/09 11:38

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.

8)
Palla tagliata-messa fuori-c'e' Pirlo,Pirlo,Pirlo-ancora-Pirlo,di tacco-tiro-GGGOOOOOOOOOOOOLLL-GGOOOOOLLL-GROSSOOO-GROSSOOO-GOOOOOOOOOOO....GOL di Grosso.
ryden80
Utente Senior
 
Post: 114
Iscritto il: 01/06/04 10:26
Località: Bari

Sponsor
 

Re: Creare FILES da FOGLI

Postdi Flash30005 » 12/09/09 00:09

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Creare FILES da FOGLI":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti