Come posso risolvere “errore di run-time ‘1004’“ che compare alla fine di esecuzione di una macro in excel?

Question

Premetto che la macro "Aggiorna report.xlsm" ha sempre funzionato e che solo da qualche settimana viene eseguita e si interrompe all'ultimo file da aprire e prima di passare in altri file dentro eventuali subcartelle.

Questa l'immagine dell'errore:

In realtà il file "00_Budget Dedalus.xlsx" è il primo file dell'elenco da aggiornare e non è corrotto ma si apre normalmente e permette l'aggiornamento di tutti gli altri file.

Questa la descrizione del Debug:

Answer 1

Ciao Alberto,

il file si chiude regolarmente così come gli altri 32 file coinvolti dalla procedura di aggiornamento, e non c'è neanche tra i file "nascosti".

Ieri ho provato ha eliminare il file "00_Budget Dedalus.xlsx" dall'elenco e ho avviato la macro di aggiornamento....Stranamente a fine procedura mi è comparso lo stesso messaggio di errore:

anche se il file non c'era più in elenco!!!!!!!!!!

OK, senza ulteriori indagini, forse prova a aggirare il problema sostituendo la tua sezione di codice:

con qualcosa del genere:

For Each iFi1e In ifolder.Files 

    **If Not iFi1e.Name Like "\*$\*.xlsx" Then** 

        Call Aggiorna(iFi1e) 

    **End If** 

Next iFi1e 

For Each iSubFo1der In iFo1der.SubFo1ders 

    For Each nFi1e In iSubFo1der.Files 

        **If Not iFi1e.Name Like "\*$\*.xlsx" Then** 

            Call Aggiorna(nFi1e) 

        End If 

    **Next nFi1e** 

Next iSubFo1der 

===

Regards,

Norman

Answer 2

Ciao Alberto,

il file si chiude regolarmente così come gli altri 32 file coinvolti dalla procedura di aggiornamento, e non c'è neanche tra i file "nascosti".

Ieri ho provato ha eliminare il file "00_Budget Dedalus.xlsx" dall'elenco e ho avviato la macro di aggiornamento....Stranamente a fine procedura mi è comparso lo stesso messaggio di errore:

anche se il file non c'era più in elenco!!!!!!!!!!

OK, senza ulteriori indagini, forse prova a aggirare il problema sostituendo la tua sezione di codice:

con qualcosa del genere:

For Each iFi1e In ifolder.Files

If Not iFi1e.Name Like "*$*.xlsx" Then

Call Aggiorna(iFi1e)

End If

Next iFi1e

For Each iSubFo1der In iFo1der.SubFo1ders

For Each nFi1e In iSubFo1der.Files

If Not iFi1e.Name Like "*$*.xlsx" Then

Call Aggiorna(nFi1e)

End If

Next nFi1e

Next iSubFo1der

===

Regards,

Norman

Ciao Norman,

grazie tante per il supporto fornito, ho appena eseguito la macro è funziona perfettamente fino alla notifica finale "Finito". GRAZIEEEEE