Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel apertura codici 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

Excel apertura codici pdf

Postdi salatony » 05/07/18 10:57

Ciao,
Torno a chiedere aiuto,
Avrei bisogno di una macro, che attraverso alcuni codici alfanumerici
presenti nel file Excel (codici/foglio1/colonna a), mi cerchi ed apra dei disegni in pdf presenti nella cartella "disegni".

Nel forum, ho trovato: macro per visualizzare e stampare file pdf (non serve stampare ma solo aprire), moderatore Anthony47,Flash30005.

Il problema sta nel nome dei file, ad es.
nel file excel "codici" ci sono:
111122233333
k1234567
b12345
Ecc.

Nella cartella disegni ci sono i file da aprire:
111122233333descrizione
K123456descrizione
B12345descrizione
Ecc.

Quindi con la "descrizione" non li apre, se li rinomino e tolgo la descrizione li apre (Sono centinaia di file disegno), quindi bisognerebbe "tarare" la ricerca solo in riferimento al n° di digital presenti nel file Excel codici.
Come si potrebbe fare?
Ringrazio
Saluti
salatony
Utente Junior
 
Post: 68
Iscritto il: 08/11/13 21:16

Sponsor
 

Re: Excel apertura codici pdf

Postdi Anthony47 » 05/07/18 16:59

L'analisi non e' abbastanza circostanziata, quindi propongo "una cosa" che apre, per ogni codice presente in colonna A del foglio corrente, da riga 2 verso il basso, il primo file CODICE*.pdf che trova nella directory indicata:
Codice: Seleziona tutto
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long


Sub Autopdf()
Dim I As Long, myFile As String, cFile As String, lngX As Long
Dim dPath As String
'
dPath = "C:\PROVA\"         '<<< La directory con i Pdf, con \ finale
'
For I = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    cFile = Cells(I, "A").Value
        If cFile <> "" Then
            myFile = Dir(dPath & cFile & "*.pdf*")
            If Len(myFile) > 3 Then
                lngX = ShellExecute(vbNull, "Open", dPath & myFile, "", "", vbNormalFocus)
            End If
        End If
Next I
End Sub

Tutto va messo in un modulo standard del vba inizialmente vuoto. La riga marcata <<< va personalizzata come da commento.
All'occorrenza va eseguita la Sub Autopdf

La macro non segnala se qualche codice potrebbe corrispondere a piu' di un file, ne' se a qualche codice non corrisponde nessun file.
Queste segnalazioni possono essere inserite sul foglio di partenza, conoscendo il suo layout.

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

Re: Excel apertura codici pdf

Postdi salatony » 09/07/18 09:13

Ancora grazie,
Perfetto.
Saluti
salatony
Utente Junior
 
Post: 68
Iscritto il: 08/11/13 21:16


Torna a Applicazioni Office Windows


Topic correlati a "Excel apertura codici pdf":


Chi c’è in linea

Visitano il forum: Nessuno e 31 ospiti