Condividi:        

Excel - Accodamento file

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

Excel - Accodamento file

Postdi gaetano73 » 01/07/13 15:55

Ciao a tutti. Uso Excel 2010.

Ho creato una macro che importa il contenuto di 4 file Excel in uno solo (su vari fogli).
Di seguito il codice:
Codice: Seleziona tutto
Const percorso_import = "C:\FileDaImpotare\"
Sub Macro1_Importa()
    Sheets("Gennaio").Select
    Range("A1").Select
    Workbooks.Open Filename:=percorso_import & "ReportGennaio.xlsx"
    Columns("A:T").Select
    Selection.Copy
    Windows("Anno2013.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Windows("ReportGennaio.xlsx").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close

' e così via...

End sub

Ora ho la necessità di importare 5 file sullo stesso foglio ("Riepilogo2013") di Anno2013.xlsm
Considerando che il numero di righe dei 5 file varia di volta in volta, come li accodo senza lasciare righe vuote o evitando sovrascritture?
gaetano73
Utente Senior
 
Post: 250
Iscritto il: 03/09/02 18:36

Sponsor
 

Re: Excel - Accodamento file

Postdi ricky53 » 02/07/13 00:50

Ciao,
prova con questo esempio.
Sono partito dal tuo codice e l'ho adattato con quanto hai scritto.
Non avendo un file sul quel provare lascio a te le prove e ... trovare eventuali errori nel codice.

Codice: Seleziona tutto
Sub Macro_Importa()
    Dim fd As FileDialog, X As Integer
   
    Sheets("Riepilogo2013").Select
   
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Nome_File = ActiveWorkbook.Name
    For X = 1 To 5 ' <<==== Numero di file da aprire
        With fd
            .Title = "Scelta FILE"
            .ButtonName = "&Apri"
            .AllowMultiSelect = False
            .Filters.Clear
            .Filters.Add "Selezionare un file ", "*.xls*"
            If .Show = -1 Then
                File_Scelto = .SelectedItems(1)
                Workbooks.Open Filename:=File_Scelto
            Else
                MsgBox "Non è stato selezionato nessun dato. L'elaborazione viene interrotta !!!"
                Exit Sub
            End If
        End With
        File_Aperto = ActiveWorkbook.Name
        UR = Range("A" & Rows.Count).End(xlUp).Row
        Range("A1:T" & UR).Select
   
        Selection.Copy
        Windows(Nome_File).Activate
   
        UR = Range("A" & Rows.Count).End(xlUp).Row + 1
        Range("A" & UR).Select
   
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Windows(File_Aperto).Activate
       
        Application.CutCopyMode = False
        ActiveWindow.Close
    Next X
    Set fd = Nothing
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel - Accodamento file

Postdi gaetano73 » 03/07/13 09:11

Ottimo spunto... grazie! Adatterò il codice al mio file.
Grazie ancora!
gaetano73
Utente Senior
 
Post: 250
Iscritto il: 03/09/02 18:36

Re: Excel - Accodamento file

Postdi ricky53 » 03/07/13 11:24

E' sempre un piacere collaborare per arrivare ad una soluzione.

Per ogni necessità ci trovi QUI
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Accodamento file":


Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti