-
Articoli
-
Qual è l'errore? descrizione, punto in cui si verifica, istruzione evidenziata in giallo nell'editor, scenario... tutte informazioni utili 🙂
Comunque mi sembrava di essere arrivato alla versione 5. Perchè non la trovo allegata alle discussioni? L'ho realizzata e me la sono tenuta nascosta?
la versione 5-1 mi fornisce lo stesso errore....
se può aiutarti, ho fatto delle prove con vecchi file di prova e funziona.
Con i file che ho allegato oggi nel file prova.zip ... crea problemi, ma il file excel è sempre lo stesse.
Allora il problema sta nei nuovi file. Ora li apro e guardo che la struttura sia quella dei vecchi file (ovviamente deve essere così altrimenti il codice va modificato di conseguenza)
Ho fatto alcune correzioni. C'era una descrizione inspiegabilmente null. Ho anche aggiustato il codice che legge i file xls da cui importare i dati, adesso legge solo i file che cominciano per numero, classe, sottolineato, e che terminano con xls, esempio:
1E_Sala.xlsho fatto un pò di prove!!!
Funziona!!!
GRAZIE!!
Ciao!
Aggiornamenti: il file sembra lavora bene!!!!
Ho creato questa macro per generare dei pdf da 2 fogli.
Vorrei che il pdf venisse salvato nella cartella dove si trova il file di excel in esecuzione.
Come posso procedere?
GRAZIE!!!!
Sub pdf_Fata_Eurofrutta()
Sheets("EUROFRUTTA").Select
ActiveSheet.Range("$A$7:$C$1100").AutoFilter Field:=8, Criteria1:=">=0.1", _
Operator:=xlAndActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & Range("H2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=TrueSheets("FA.TA.").Select
strFile = ThisWorkbook.Path & ""
ActiveSheet.Range("$A$7:$C$1100").AutoFilter Field:=8, Criteria1:=">=0.1", _
Operator:=xlAnd
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & Range("H2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=TrueMsgBox "Stampa pdf fatta", vbInformation
End SubCiao!
Il percorso del file Excel in esecuzione lo trovi in ThisWorkbook.Path.
Ma qui:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ myPath & Range("H2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _ True, IgnorePrintAreas:=False, OpenAfterPublish:=Truedove tu trasformi in pdf il foglio attivo, che valore ha myPath?
... non saprei... come faccio a vedere il valore di myPath?
GRAZIE!!!!!
Allora, aggiungiamo un altro piccolo tassello di conoscenza.
Subito prima di quell'istruzione scrivi
Stopsu una riga, da solo, poi avvia ed esegui la macro.Il codice si fermerà in quel punto, evidenzierà di giallo l'istruzione Stop e ti permetterà di interagire con le variabili.
Apri ora la finestra Immediata con Ctrl-G. Questo spazio di editor serve ad eseguire istruzioni in modo diretto e serve anche a verificare lo stato delle variabili.
Dentro tale finestra scrivi:
?myPath(proprio punto interrogativo) e premi invio. In risposta Excel ti dirà qual è il contenuto della variabile in esame.Questa variabile dovrebbe contenere il percorso del file corrente (cioè ThisWorkbook.Path)
myPath = vuoto
Ecco, è proprio qui che devi intervenire, devi valorizzare myPath perchè punti al percorso desiderato.
Volutamente non ti scrivo il codice, per spronarti nell'impresa, che è ampiamente alla tua portata 🙂
(bè se non riesci dillo senza timore, non c'è problema)
Login
Registrati
