[vba] errore

[ramset1978]

Ho un file di excel che richiama a sua volta alcune voci di un altro file excel. Poi ho un macro che mi "esporta" questi dati richiamati in un file pdf. Ora il 50% delle volte tutto procede bene il file viene salvato ed ottengo conferma. L'altro 50% delle volte il file pdf viene comunque salvato ma la macro mi restituisce errore qui:


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
FileNuovo, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Qualcuno sa spiegarmi perchè? Forse qualche impostazione per il salvataggio in pdf è errata (salvataggio che comunque avviene sempre)?

[ricky53]

Ciao
che errore ottieni e quale versione di Office utilizzi?

[Anthony47]

che errore ottieni e quale versione di Office utilizzi?

Voglio calcare ancor di piu' la mano: un Utente Senior non scrive MAI "restituisce un errore qui"

Comunque in prima battuta prova a modificare in IncludeDocProperties:=False

Ciao

[ramset1978]

ciao a tutti, Anthony è un pò arrabbiato con me....
Errorre run time "1004", la versione di excel è la 2010.

[Anthony47]

Ma hai provato il suggerimento "in prima battuta"?
Ciao

[ramset1978]

Ma hai provato il suggerimento "in prima battuta"?
Ciao

Si ho provato, ma il problema rimane identico.
Ciao

[Anthony47]

Ok.
Ma l'errore completo quale e'? Oltre a Errorre run time "1004" che cosa dice??
Intanto aggiungi questa istruzione in questa posizione:

Codice: Seleziona tutto

Debug.Print FileNuovo          'AGGIUNGI
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
'etc etc

Poi quando va in errore e se in debug, premi Contr-g e copia nel tuo prossimo messaggio cosa vedi scritto nell'ultima riga compilata della finestra "Immediata" che si e' aperta.

Ciao

[ramset1978]

Dalla finestra immediata viene fuori il nome del file pdf salvato, nello specifico avendo inserito prova come nome file mi è venuto fuori "prova.pdf". Ora sto provando e riprovando per rispondere alla tua domanda (mi era sfuggita) e non riesco a replicare l'errore, appena ricapita te lo dico.

[ramset1978]

Ecco l'errore completo:
"Errore di run-time '1004'
Documento non salvato. E' possibile che il documento sia aperto o che si sia verificato un errore durante il salvataggio."

Ribadisco che di fatto però il documento viene salvato correttamente.

[Anthony47]

Da quello che leggo in giro sembra un problema abbastanza comune al salvataggio in formato pdf, quindi ho l'impressione che rimarra' insoluto.
Ma tu salvi sempre con lo stesso nome o il nome cambia sempre? Dici che il salvataggio avviene; hai controllato con Esplora risorse se l'orario di salvataggio corrisponde? Inoltre mi aspettavo che al momento dell'errore leggessi sulla finestra Immediata quale era il nome file in uso; te ne sei ricordato?
Una volta che mi confermi che il timestamp sul file e' corretto io mi limiterei a inserire un "ignora l'errore", ma per questo avrei bisogno di conoscere esattamente che cosa c'e' scritto in "NomeFile" (senza bisogno di aspettare il prossimo errore).

Ciao

[ramset1978]

Si Anthony, nella finestra immediata viene fuori il nome del file da salvare, te l'avevo scritto su.
Di fatto il nome da salvare è data (cap).pdf dove la data è contenuta nel file excel. Es. 10 feb 2016 (cap).pdf. Il salvataggio avvienese sempre in maniera corretta. Un ignora errore sarebbe comunque una soluzione.

[Anthony47]

Avevo gia' letto l'altra risposta, ma mi serviva sapere concretamente se in NomeFile c'e' il percorso completo + il nome ed eventualmente se era un drive diverso da C, perche' il mio obiettivo e' di controllare l'esito sul file non fare un semplice On Error Resume Next.
Ciao

[ramset1978]

Avevo gia' letto l'altra risposta, ma mi serviva sapere concretamente se in NomeFile c'e' il percorso completo + il nome ed eventualmente se era un drive diverso da C, perche' il mio obiettivo e' di controllare l'esito sul file non fare un semplice On Error Resume Next.
Ciao

No, non esce nessun percorso, semplicemente il nome del file da salvare.
Comunque il drive è D.

[Anthony47]

Non l'ho potuto collaudare nella situazione normale, ma prova questa variazione:

Codice: Seleziona tutto

'Definizioni da aggiungere in testa
Dim FsO As Object, JJ As Long, fTime As Double, myTime As Double   


'Codice variato
JJ = 0
reSave:
myTime = Now: fTime = 0
    On Error Resume Next
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        FileNuovo, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        Application.Wait (Now + TimeValue("0:00:02"))
        fTime = FsO.getfile(FileNuovo).Datelastmodified
    On Error GoTo 0
    If fTime < myTime Then
        JJ = JJ + 1
        If JJ > 10 Then
            MsgBox ("Il file non risulta salvato")
            Exit Sub
        Else
            GoTo reSave
        End If
    End If
Next I


Come vedi l'istruzione di esportazione in formato pdf e' racchiusa in una logica piu' complessa in cui si verifica se l'orario di salvataggio del file e' "recente"; se No si riprova per max 10 volte e poi si rinuncia con messaggio di errore.

Non sapendo concretamente che cosa c'e' scritto in FileNuovo ho dovuto assumere che ci sia nome + estensione.

Prova e fai sapere...

[ramset1978]

Grazie Anthony.
Intanto il codice restituisce subito errore "Next senza For".
Ma io credo che sia "troppo" il tuo codice, considera che il file VIENE SEMPRE SALVATO CORRETTAMENTE. E' solo che anzichè proseguire con il codice che mi dice che il file è stato salvato correttamente, viene fuori quell'errore. Credo basterebbe solo un codice che ignori quell'errore.
Comunque grazie per il tuo interesse.

[Anthony47]

Cancella quel Next I in fondo, faceva parte dei test.

Se vuoi puoi mettere solo

Codice: Seleziona tutto

    On Error Resume Next
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        FileNuovo, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    On Error GoTo 0

Ma ci sono dei casi in cui non puo' venire salvato, es se quel file gia' esiste ed e' aperto, o anche solo in preview all'interno di Explorer.

Ciao

[ramset1978]

Non ci sono stati mai casi in cui il file non è stato salvato, se invece quel file esiste è già "controllato". Toglimi solo una curiosità alla fine del tuo codice On Error GoTo 0 significa "prosegui.....? Se si allora ci siamo.

[Anthony47]

Si, significa Continua col normale controllo degli errori.

[ramset1978]

Allora direi che il problema è risolto. Errore visivo a parte non si è mai verificato che il file non venisse salvato. Grazie Magico Anthony. Ciao