Salvare .pdf (creato da excel) in un foglio (Excel 2016)

[GretPartecipante Gret]

Ciaoo a tutti,

spero che possiate aiutarmi  

In un foglio di excel è presente una macro che "trasforma" il foglio attivo excel in un file .pdf e lo invia come allegato, salvandolo sul desktop.

Invece di salvarlo sul desktop, sarebbe possibile salvare il file .pdf appena creato in un altro foglio excel (nella colonna D di Sheet2) come fosse un archivio?

Esempio: clicco sulla macro per poter inviare il file in .pdf, lo invia, automaticamente lo salva nella colonna D del foglio2. Il giorno dopo faccio la stessa  cosa e lo salva sempre nella colonna D del foglio2 e così via...

Vorrei che tipo si creasse una lista in modo che ogni qualvolta voglio andare a visionare un allegato faccio doppio clic e si apre l'allegato..

Vi ringrazio anticipatamente per ogni aiuto e/o suggerimento e buona giornata  

 

[Luca73Partecipante Luca73 Karma: 58 pts]

Ciao

una volta che hai salvato il file lo incorpori come oggetto da file.

Ti consiglio di partire dal registratore di macro e poi modificare.

Ciao

Luca

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

No, Excel non è come Access (che espone un campo blob per gli oggetti, e comunque memorizzare oggetti pesanti nel db è una tecnica sconsigliata anche per Access).

Fai quello che faccio io e che fanno tutti: salvi il pdf in una cartella sempre accessibile (locale o condivisa, basta che sia accessibile almeno in lettura) e nel file Excel memorizzi il percorso, magari salvandolo come hyperlink. In questo modo hai un collegamento solo testo, gestibilissimo, leggerissimo e con accesso diretto al file salvato non importa dove (basta che non venga rimosso).

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Luca73 ha scritto:

lo incorpori come oggetto da file

Sì, in effetti è un'idea, ma rimango lo stesso della mia opinione. Quando hai salvato dieci pdf immagino che la dimensione del file aumenti considerevolmente.

[GretPartecipante Gret]

Grazie mille per le risposte tempestive  

Quindi praticamente creo una cartella sul desktop, copio il percorso e lo memorizzo nella colonna D di sheet2 in modalità hyperlink e tiro giù.

Sto per finire una macro che mi archivia il foglio sempre in sheet2, sarebbe possibile collegare il percorso cartella in modo che ogni volta che clicco su "archivia" in automatico nella colonna D esca il percorso? Giusto un piccola chicca  

Grazie infinitamente  

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Gret ha scritto:

copio il percorso

Non solo il percorso, proprio tutto, anche il nome del file. Altrimenti l'hyperlink aprirebbe solo la cartella ma non il file relativo.

Gret ha scritto:

ogni volta che clicco su "archivia"

è un pulsante? c'è del codice associato? puoi scriverci quindi (ed eseguirla) l'istruzione che crea l'hyperlink, completo del percorso (se è predefinito), nella colonna D.

[GretPartecipante Gret]

Ciao vecchio frac,

ho finito adesso di fare la macro che archivia il file. Comunque rispondendo alla tua domanda sì, il codice seguente è associato ad un pulsante.

Dove dovrei scriverla l'istruzione che riporta il percorso del file?

Questo è il codice che uso:

Sub archivia()

Application.ScreenUpdating = False
    Sheets("archivio").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Sheets("fattura").Select
    Range("A5").Select
    Selection.Copy
    Sheets("archivio").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("fattura").Select
    Range("C3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("archivio").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("fattura").Select
    Range("D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("archivio").Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        Sheets("fattura").Select
    ActiveWindow.SmallScroll Down:=24
    Range("C8").Select
    ActiveWindow.SmallScroll Down:=3
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("archivio").Select
    Range("D4").Select
    ActiveWindow.SmallScroll Down:=0
    Range("D7").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("D4").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Rows("5:5").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("B4").Select
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("fattura").Select
    ActiveWindow.SmallScroll Down:=-36
    Range("C3").Select
End Sub

Ho dimenticato che è presente il totale fattura (colonna D), quindi il percorso del file va immesso nella colonna E.

Grazie mille dell'aiuto!  

 

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Gret ha scritto:

Dove dovrei scriverla l'istruzione che riporta il percorso del file?

Direi dopo l'esecuzione di tutto l'ambaradan, che non ho provato ma che mi sembra il prodotto del registratore di macro quindi va ampiamente rivisto e corretto. Principalmente se devi ricopiare solo i valori puoi assegnarli direttamente, esempio (uno per tutti), evitando la trafila di Select e di Copy/Paste:

Sheets("archivio").Range("A4").Value = Sheets("fattura").Range("A5").Value

 

[GretPartecipante Gret]

Ho capito.

Grazie mille per le informazioni  

[Autore]

Articoli