Errore di run time

Question

Ho creato una routine che mi deve salvare un foglio excel in formato pdf.

Ogni volta che lancio la macro mi esce l'errore di run-time 5 e mi si blocca su questo punto:

Dopo aver dichiarato le variabili, path e indirizzo  ho inserito il seguente ciclo:

For T = 2 To 4 '(Last_Row_1 - 1)

contatore = contatore + 1

Range("K2").Select

ActiveCell.Value = contatore

Range("f10").Select

nomefile = ActiveCell.Value & ".pdf"

   ******************** la routine mi dà errore su questa istruzione *********************** (sh è chiaramente ThisWorkbook.Worksheets("nome foglio")

    sh.ExportAsFixedFormat _

            Type:=xlTypePDF, _

            Filename:=sPath & nomefile, _

            Quality:=xlQualityStandard, _

            IncludeDocProperties:=True, _

            IgnorePrintAreas:=False, _

            OpenAfterPublish:=True

  ****************************************************************************************************

  Next T

Grazie e saluti

Answer 1

Ciao pinoleo,

Per aiutarci di aiutarti, prova a sostituire

For T = 2 To 4 '(Last_Row_1 - 1)

con:

    On Error GoTo XIT

    For T = 2 To 4    '(Last_Row_1 - 1)

e sostituisci

  Next T

con:

    Next T

XIT:

    Debug.Print sPath & nomefile,

End Sub

Potresti incollare quest'ultimo valore dalla finestra Immediate in una risposta qui?

Inoltre, la tua versione di Excel è stato aggiornato con SP2?

===

Regards,

Norman

Answer 2

Certo.

ho una tabella "quote" contenente un elenco di soci con il rendiconto delle quote.

Nel foglio "lettera", predisposto appunto con layout di lettera, ho inserito i campi che con la routine si aggiornano tramite il cerca.vert, incrementando ogni volta il record di riferimento.

Aggiornato il foglio, questo deve essere salvato in pdf, con il nome del destinatario che prende da una cella del foglio "lettera". Successivamente un'altra routine, che devo ancora aggiornare, provvederà ad inviare ai destinatari il rendiconto intestato al proprio nominativo.

Spero di essere stato chiaro.

Saluti.

Answer 3

Ho controllato e il nome file è corretto.

Ho provato anche a ridurre il tutto a un c:\pippo.pdf ma mi dà sempre errore.

E' possibile qualche problema alla libreria?

Puoi spiegare a parole cosa deve fare il codice? A me sembra che salvi 3 volte la stessa cosa.

Grazie.

Answer 4

Ho controllato e il nome file è corretto.

Ho provato anche a ridurre il tutto a un c:\pippo.pdf ma mi dà sempre errore.

E' possibile qualche problema alla libreria?

Answer 5

Ho creato una routine che mi deve salvare un foglio excel in formato pdf.

Ogni volta che lancio la macro mi esce l'errore di run-time 5 e mi si blocca su questo punto:

Controlla cosa passi a Filename.

Deve essere una cosa tipo: "C:\Nomecartella\Altracartella\nomedelfile.pdf"

Occhio che non ci siano \ * ? : < > " nel nome del file.

Prova a mettere una MsgBox per valutare la stringa nomefile.