thunder ha scritto:

case when

Bè non stai programmando in SQL mi pare 🙂 L'equivalente in VBA è Select Case ... End Select.

Comunque sì, è come dici:

thunder ha scritto:

i cicli next, vorrei capire se potrebbe essere questo il caso e come impostarlo

questo è il caso, secondo me.

Ragionando un attimo, tu devi eseguire l'istruzione oPDF.AddFileToQueue un certo numero di volte, indeterminato a priori, ma finito e delimitato da un certo range di valori. Certo che se tu ammetti celle vuote (da bypassare) allora il punto finale deve essere un'altra cella (ad esempio sai che il range ammesso va da F2 a F50) oppure finchè non inserisci una parola convenzionale per indicare fine ciclo (esempio, in una cella scrivi "STOP").

L'algoritmo è:

- inizia un ciclo nel range che parte da F2 in avanti (fino alla cella finale oppure finchè non trovi una parola chiave in una cella)

- ad ogni passata del ciclo la variabile di controllo assume il valore di ogni cella del range

- quindi imposti l'istruzione che accoda all'oggetto oPDF la variabile di controllo che rappresenta la cella corrente

- concludi il ciclo passando al valore successivo 

Dunque direi che ci siamo come logica ma attenzione che:

thunder ha scritto:

For Each c In Worksheets("Foglio1").Range("F2", ActiveSheet.Range("F1").End(xlDown))

questo imposta un ciclo nel range del Foglio1 che va da F2 (del foglio attivo) all'ultima cella occupata  del foglio attivo a partire da F1.

Alcune imprecisioni:

- se sei su un foglio diverso, i riferimenti al Foglio1 (o dove si trovano i dati) devono essere qualificati affinché funzionino correttamente, e ciò va fatto ogni qual volta ti riferisci a un range;

- il calcolo dell'ultima cella occupata di un range, utilizzando il metodo con End, è leggermente diverso da come l'hai impostato, eccome dovrebbe essere:

Range("F2", Cells(Rows.Count, "F").End(xlUp))

così imposti un riferimento al range F2:Fxx (dove xx è l'ultima cella piena in colonna F);

- per rispondere alla tua domanda, "come faccio ad impostare l'istruzione successiva?", devi pensare alla sintassi di For;

- dentro il ciclo, imposti l'istruzione che aggiunge il valore della cella corrente alla coda di oPDF (hai commentato la riga nel tuo codice, decommentala perchè è giusta, solo che invece che file1 devi scrivere ... ?

Come suggerimento finale ti consiglio ti dichiarare tutte le variabili dopo la firma della procedura; cioè: dopo la dichiarazione tipo Sub xyz() metti subito sotto i diversi Dim che dichiarano e tipizzano le variabili in uso nel programma.

thunder ha scritto:

aggiorno

thunder ha scritto:

mi ha dato comunque errore

Ricordi quale e su che riga?

Può darsi che ci sia qualcosa che confligge in memoria. Non ho installato PDF Creator qui, dovrei provare i una macchina virtuale, ma adesso mi manca il tempo.

Non sono riuscito a ricreare la situazione ma se il tuo problema di fondo è rimasto lo stesso (combinare un pdf da più file pdf) allora ti suggerisco il mio metodo, che uso con successo da anni, funziona egregiamente e non devi neppure installare componenti strani nè creare oggetti in memoria.

Io utilizzo (per questo ma anche per altre operazioni sui pdf) uno strumento che si chiama pdftk, puoi cercarlo con Google, è un programmino da richiamare in una Shell e fa tutta l'operazione (e anche di più: estrae, combina, ruota, aggiunge watermark ecc.). 

Se sei interessato ti approfondisco l'uso di questo strumento. Altrimenti vediamo di risolvere con PDFCreator ma dubito di riuscire ad essere più efficace di altri che hai già consultato.

Ti dirò, PDFCreator è un bel programma davvero. E non c'è ragione a non fidarsi, l'ho utilizzato anch'io per qualche tempo (smazzandomi pure io con il suo modello COM), poi ho scoperto pdftk che fa egregiamente quello che mi serviva... ora non lo uso più, anche perchè trovo più rapido creare pdf direttamente da Word o Excel, e quando poi devo fare operazioni più complesse (che ti ho già illustrato) vado di batch con pdftk e vivo felice... quindi domani in ufficio raccolgo materiale e ti passo tutte le info (intanto fatti un giro su Google cercandolo, è free e pure ben documentato con gli esempi più utili).

@thunder voglio risolvere questa cosa che anche  a me è costata settimane di lavoro ma alla fine ho ottenuto risultati splendidi 🙂 Quindi non rinunciare

Solo una domanda banale... ma il percorso *esatto* di pdftk sul tuo pc qual è?

Perchè ho scaricato l'installer e l'ho installato su macchina virtuale, ha creato tutto il suo percorso ed è finito qui:

C:\Program Files\PDFtk\bin\pdftk.exe

Il dubbio mi è sorto perchè nel tuo file il percorso della "const pdftk" è leggermente diverso.