Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Apri file PDF se nel percorso indicato è presente.

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

Apri file PDF se nel percorso indicato è presente.

Postdi zanatta77 » 01/02/14 14:36

CIao a tutti
Ho cercato di fare una macro è sono fermo su un punto :undecided:
Questo è quanto sono riuscito a fare finora
Codice: Seleziona tutto
Sub ApriPDF()
Dim Message, Title, MyValue
Dim pathPDF As String
Message = "Visualizza quanto segue :"   ' Imposto  messaggio.
Title = "SEARCH " ' Imposto il titolo.
MyValue = InputBox(Message, Title) 'Ricavo valore o stringa inserita con visualizzazione del messaggio, e titolo
pathPDF = "C:\Users\SaSà\Documents\PDF\" ' Percorso dove si trovano i file in .pdf
If MyValue = pathPDF Then     ' Questo è il punto dove sto impazzendo come faccio a tradurgli ..Se nel percorso dove si trovano i file _
' troverai allocato un file con denominazione come inserito nell'inputbox allora procedi con la visualizzazione _
' altrimenti semplicemente avvisa tramite un msgbox.
strAddress = pathPDF + MyValue
ActiveWorkbook.FollowHyperlink Address:=strAddress
Else
MsgBox "La richiesta non può essere soddisfatta"
End If
End Sub


Quello che vorrei facesse la macro è:
Associando la macro a un command button al mio click si apre l'inputbox e inserisco il nome di un file.pdf
A questo punto premendo ok dell' inputbox dovrebbe controllare se esiste nel percorso indicato quel file
e se lo trova ok lo apre con programma predefinito per .pdf e lo visualizzo mentre invece se non lo trova
oppure inserisco un nome estraneo mi esca semplicemente un msgbox.
Spero di essere stato abbastanza comprensibile
Grazie ciao
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12

Sponsor
 

Re: Apri file PDF se nel percorso indicato è presente.

Postdi ricky53 » 01/02/14 19:35

Ciao,
sostituisci la tua istruzione
Codice: Seleziona tutto
If MyValue = pathPDF Then


con
Codice: Seleziona tutto
If Len(Dir(pathPDF & MyValue)) > 0 Then


prova e ... sono QUI



Commento: con il tuo codice il nome del file va inserito con l'estensione ".PDF", dovresti aggiungere un controllo sul corretto inserimento del nome del file.

Ti propongo un esempio
Codice: Seleziona tutto
Sub ApriPDF()
    Dim Message, Title, MyValue
    Dim pathPDF As String
    Message = "Visualizza quanto segue :"
    Title = "SEARCH "
    MyValue = InputBox(Message, Title)
    pathPDF = "D:\Temp\" ' Percorso dove si trovano i file in .pdf
   
'.............................................................
' AGGIUNTE
    If Right(myvale, 4) <> ".pdf" Then
        MsgBox "Inserire in modo corretto l'estenzione del file che deve essere  ====>>  '.pdf'  ", vbCritical
        Exit Sub
    End If
' AGGIUNTE
'.............................................................

    If Len(Dir(pathPDF & MyValue)) > 0 Then
        strAddress = pathPDF & MyValue
        ActiveWorkbook.FollowHyperlink Address:=strAddress
' AGGIUNTA
        MsgBox "File trovato ed aperto", vbInformation
    Else
' MODIFICATA
        MsgBox "La richiesta non può essere soddisfatta perchè il file  '" & MyValue & _
            "'  NON esiste nel percorso  '" & pathPDF & "'", vbInformation
    End If
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Apri file PDF se nel percorso indicato è presente.

Postdi ricky53 » 01/02/14 19:53

Ciao,
nelle righe di codice che ho aggiunto ho sbagliato il nome della variabile "MyValue" ...
Codice: Seleziona tutto
    If Right(myvale, 4) <> ".xls" Then


ecco il codice corretto
Codice: Seleziona tutto
Sub ApriPDF()
    Dim Message, Title, MyValue
    Dim pathPDF As String
    Message = "Visualizza quanto segue :"
    Title = "SEARCH "
    MyValue = InputBox(Message, Title)
    pathPDF = "D:\Temp\" ' Percorso dove si trovano i file in .pdf
   
'.............................................................
' AGGIUNTE
    If Right(MyValue, 4) <> ".xls" Then
        MsgBox "Inserire in modo corretto l'estensione del file che deve essere  ====>>  '.pdf'  ", vbCritical
        Exit Sub
    End If
' AGGIUNTE
'.............................................................

    If Len(Dir(pathPDF & MyValue)) > 0 Then
        strAddress = pathPDF & MyValue
        ActiveWorkbook.FollowHyperlink Address:=strAddress
' AGGIUNTA
        MsgBox "File trovato ed aperto", vbInformation
    Else
' MODIFICATA
        MsgBox "La richiesta non può essere soddisfatta perchè il file  '" & MyValue & _
            "'  NON esiste nel percorso  '" & pathPDF & "'", vbInformation
    End If
End Sub



CONSIGLIO: inserisci sempre il controllo sulla correttezza dei nomi delle variabili che si ottiene con l'istruzione
Codice: Seleziona tutto
Option Explicit
che va posizionata in testa al modulo ove hai il codice che esegui
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Apri file PDF se nel percorso indicato è presente.

Postdi zanatta77 » 02/02/14 00:10

Grazie di tutto, comprese le aggiunte molto apprezzate, adesso compie esattamente quello che chiedevo.
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 114
Iscritto il: 01/12/12 16:12

Re: Apri file PDF se nel percorso indicato è presente.

Postdi ricky53 » 02/02/14 01:45

Ciao,
BENE.

Buona continuazione e ... alla prossima.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Apri file PDF se nel percorso indicato è presente.":


Chi c’è in linea

Visitano il forum: alfrimpa e 18 ospiti