Sviluppare funzionalita su Microsoft Office con VBA salvare un file con un valore data in una cella

LoginRegistrati
Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
  • Autore
    Articoli
  • #22860 Risposta

    frallin
    Partecipante

      Ciao a tutti,

      avrei bisogno ancora di una mano,

      ho la necessità di creare una macro che mi salvi in pdf il foglio attivo. le condizioni che si devono verificare sono queste:

      L'indirizzo della cartella dove salvare il file è nella cella (1,R);

      il nome del file è composto dal nome del foglio attivo ("COPERTURE") e da una data che inserisco manualmente in cella (6, I)

      ho provato con questo codice 

      Dim wks1 As Worksheet
          
          Dim percorso As String
          Dim nomefile As String
          Dim MyDate As String
      
      
          Set wks1 = ActiveSheet
          MyDate = Cells(6, 9).Value
              MyDate = Format(Date, "dd") & "_" & Format(Date, "mm") & "_" & Format(Date, "yyyy")
          
          nomefile = wks1 & MyDate
          percorso = Cells(1, 18)
      
      
          wks1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=percorso & nomefile, _
              Quality:=xlQualityStandard, OpenAfterPublish:=False
      

      ma mi da sempre un messaggio di errore

      Non so come venirne fuori.

      Mi aiutate?

      Grazie

      #22876 Risposta
      tanimon
      tanimon
      Partecipante
        5 pts

        ciao a tutti  

        ciao frallin,

        hai dimensionato la variabile "nomefile" come testo:  

        sicuro di averla valorizzata con dati della stessa natura?

        Set wks1 = ActiveSheet, imposta un oggetto!

        nomefile = wks1 & MyDate, oggetto & stringa: non credo siano compatibili tra loro

        MyDate = Cells(6, 9).Value, diamo per scontato che nella cella "I6" ci sia un testo

        MyDate = Format(Date, "dd") & "_" & Format(Date, "mm") & "_" & Format(Date, "yyyy")

        per me, con questo imposti il formato sulla data di sistema, e non sulla variabile "MyDate"

        Prova a verificare i dati che imposti alle variabili, eseguendo la macro passo passo con F8 in debug e nel caso,

        fai le modifiche necessarie.

        Fai sapere.

         

        Ciao

        Frank

         

      LoginRegistrati
      Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
      Rispondi a: salvare un file con un valore data in una cella
      Gli allegati sono permessi solo ad utenti REGISTRATI
      Le tue informazioni:



      vecchio frac - 2750 risposte

      albatros54
      albatros54 - 833 risposte

      patel
      patel - 724 risposte

      Marius44
      Marius44 - 634 risposte

      Luca73
      Luca73 - 587 risposte