Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

da .xls a .pdf

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

da .xls a .pdf

Postdi scanacc » 28/12/16 16:30

Ciao a tutti.
Uso questa piccola macro per salvare una parte del foglio1 in .pdf.
Le istruzioni contenute sono che questo file si chiami Sandro e che venga salvato in una cartella determinata (in questo caso C:\DOCUMENTI\SPACCHETTAMENTO)
Codice: Seleziona tutto
    Range("A1:H8").Select
    ChDir "C:\DOCUMENTI\SPACCHETTAMENTO"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\DOCUMENTI\SPACCHETTAMENTO\Sandro.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Se io volessi chiamarla con un nome che compare nel foglio1 nella casella "A1", come dovrei implementare la macro?
Grazie per l'aiuto e ciao a tutti.
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: da .xls a .pdf

Postdi scanacc » 28/12/16 16:46

Scusate ma mancava il SUB Macro1

Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
    Range("A1:H8").Select
    ChDir "C:\DOCUMENTI\SPACCHETTAMENTO"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\DOCUMENTI\SPACCHETTAMENTO\Sandro.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30

Re: da .xls a .pdf

Postdi alfrimpa » 28/12/16 18:14

Prova così:

Codice: Seleziona tutto
Sub Macro1()
    Range("A1:H8").Select
    ChDir "C:\DOCUMENTI\SPACCHETTAMENTO"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\DOCUMENTI\SPACCHETTAMENTO\" & Range("A1").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: da .xls a .pdf

Postdi scanacc » 28/12/16 18:39

o che mito sei!!!
Semplicemente perfetta!
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30

Re: da .xls a .pdf

Postdi alfrimpa » 28/12/16 21:15

scanacc ha scritto:o che mito sei!!!
Semplicemente perfetta!



Non esageriamo :) :)
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: da .xls a .pdf

Postdi scanacc » 28/12/16 22:14

PS Se volessi evitare che dia un errore nel caso Range("A1").Value sia vuota cosa dovrei aggiungere?
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30

Re: da .xls a .pdf

Postdi Anthony47 » 28/12/16 22:49

Sono di passaggio... Prova a inserire l'istruzione marcata *** in questa posizione:
Codice: Seleziona tutto
Sub Macro1()
    If Range("A1").Value = "" then Exit Sub      '**** AGGIUNGI
    Range("A1:H8").Select

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 16956
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: da .xls a .pdf

Postdi scanacc » 28/12/16 22:56

HO TROVATO!
Codice: Seleziona tutto
Sub CREA_PDF_AGEVOLAZIONI()
    Range("A1:H22").Select
    ChDir "C:\DOCUMENTI\SPACCHETTAMENTO"
    If Range("B1").Value <> "" Then
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\DOCUMENTI\SPACCHETTAMENTO\" & Range("B1").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End If
Range("A1").Select
End Sub
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30

Re: da .xls a .pdf

Postdi scanacc » 20/05/20 18:02

Quando eseguo la Macro, il pdf creato si apre.
Si potrebbe mettere un comando che non la fa aprire oppure che la fa poi chiudere?
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30

Re: da .xls a .pdf

Postdi scanacc » 20/05/20 23:21

UP
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30

Re: da .xls a .pdf

Postdi Anthony47 » 21/05/20 00:57

Beh, sei tu che gli dici "Apriti":
Codice: Seleziona tutto
OpenAfterPublish:= _
        True

Ovviamente, quindi:
Codice: Seleziona tutto
OpenAfterPublish:= False

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 16956
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: da .xls a .pdf

Postdi scanacc » 21/05/20 13:33

Grazieeee
scanacc
Utente Senior
 
Post: 203
Iscritto il: 06/12/15 10:30


Torna a Applicazioni Office Windows

Chi c’è in linea

Visitano il forum: raimea e 50 ospiti