';
pc-facile
Valutazione 4.87/ 5 (100.00%) 5838 voti




Login
Iscriviti
Cerca
Topic senza risposta
Topic attivi
Indice
Assistenza Software
Applicazioni Office Windows

Excel apertura codici pdf

Rispondi al post

Pagina 1 di 1


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

Re: Excel apertura codici pdf
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

Re: Excel apertura codici pdf
salatony @ 09/07/18 09:13

Ancora grazie,
Perfetto.
Saluti


Rispondi al post

Pagina 1 di 1

Torna a Applicazioni Office Windows


Glossario | Blog | Cerca
© 2000-2018 pc-facile.com