Excel e gli applicativi Microsoft Office Invio file in .pdf da file esterno

LoginRegistrati
Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
  • Autore
    Articoli
  • #19091 Risposta
    Gret
    Gret
    Partecipante

      Buonasera a tutti,

      ho trovato in rete questa macro:

      Sub exporta_fogli_PDF()
          Sheets(Array(1, 2)).Select
          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
          Filename:="C:\Users\....\OneDrive\Desktop\file.pdf"
      End Sub

      che fa al caso mio, solo che i fogli sono di un file esterno e il nome viene preso dalla cella B7.

      Qualcuno ha qualche suggerimento da darmi?

      Grazie mille in anticipo della vostra disponibilità e buona continuazione 🙂

       

      #19101 Risposta
      Luca73
      Luca73
      Partecipante
        16 pts

        Se il file è esterno devi fare riferimento al corretto workbook, se non specificato si fa riferimento al workbook attivo.

         

        Workbook("NomedelWorkbook).Sheet(numeroonomedelSheet).Export......

        Per il nome come da range B7 devi modificare con qualcosa del genere

        Filename:="C:\Users\....\OneDrive\Desktop\" & Range("B7").value & ".pdf"
        #19107 Risposta
        Gret
        Gret
        Partecipante

          Ciao Luca73 e grazie per aver risposto.

          Ho provato la soluzione ma mi da errore su tutta questa parte:

          `    Workbook("Quotation #1").Sheets(Array(1, 2)).ExportAsFixedFormat Type:=xlTypePDF, _
              Filename:="C:\Users\....\OneDrive\Desktop\" & "Quote " & Range("B7").Value & ".pdf"`

          inoltre mi esce un messaggio che dice "Tipo non corrispondente" ma il nome del file è quello  

          Chiedo scusa se non ho ben specificato ma la cella a cui devo fare riferimento è sempre del file esterno.

          #19110 Risposta
          Luca73
          Luca73
          Partecipante
            16 pts

            sicuramente:

            workbooks e non workbook (scusami)

            il nome penso sia completo di estensione

            se la cella è nel file esterno allora devispecificarla in maniera completa

            workbook("nomeW)".Sheet(numeroonomedelSheet).range("B7")

             

            suggerimento usa help e registratore.

            allega un file con la macro intera.

            Ciao

            Luca

            #19111 Risposta
            Gret
            Gret
            Partecipante

              Ho cambiato il nome del file esterno perchè ho pensato che non stava funzionando per via del carattere speciale "#".

              Ora mi esce un nuovo messaggio "Subscript out of range" (non so come si traduce ) e mi evidenzia sempre tutto.

              Allego entrambi i file e grazie mille per il supporto.

              In FileMaster è presente la macro.

               

              Allegati:
              You must be logged in to view attached files.
              #19116 Risposta
              Luca73
              Luca73
              Partecipante
                16 pts

                Come ti avevo scritto prima il nome del workbook deve essere completo di estensione.

                a me quella sotto funziona mettndo opportunamnte la directory di destinazione.

                 

                Workbooks("FileEsempio.xlsx").Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
                    Filename:="C:\Users\....\documents\Quote" & Workbooks("FileEsempio.xlsx").Sheets(1).Range("B7") & ".pdf"
                End Sub
                #19118 Risposta
                Gret
                Gret
                Partecipante

                  Scusa l'ignoranza, ma a te salva in pdf i due fogli del file esterno?  

                  Io avrei la necessità di salvare in un unico pdf i due fogli e non solo uno.

                  #19120 Risposta
                  Luca73
                  Luca73
                  Partecipante
                    16 pts

                    Il mio esempio era per un foglio solo.

                    Prova con

                    Sub FogliPDF()
                    
                    Workbooks("FileEsempio.xlsx").Activate
                    Workbooks("FileEsempio.xlsx").Sheets(Array(1, 2)).Select
                    
                    Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                        Filename:="C:\Users\ltravai\documents\" & "Quote" & Workbooks("FileEsempio.xlsx").Sheets(1).Range("B7") & ".pdf"
                    End Sub
                    Gret
                    #19121 Risposta
                    Gret
                    Gret
                    Partecipante

                      Grazie, funziona alla grande!  

                      Era proprio quello che cercavo.

                      Grazie mille ancora e buona continuazione  

                    LoginRegistrati
                    Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
                    Rispondi a: Invio file in .pdf da file esterno
                    Gli allegati sono permessi solo ad utenti REGISTRATI
                    Le tue informazioni:



                    vecchio frac - 2564 risposte

                    albatros54
                    albatros54 - 680 risposte

                    patel
                    patel - 585 risposte

                    Marius44
                    Marius44 - 480 risposte

                    Luca73
                    Luca73 - 476 risposte