Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel & Acrobat

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 & Acrobat

Postdi Ca.R » 07/09/11 15:28

Salve A TUTTI,

sottopongo questo (spero) semplice problema:
Da un foglio excel è facile inserire un collegamento ipertestuale ed aprire (p.es.) un file .PDF
Poi, come noto, cliccando sul collegamento si apre il file.pdf
Il problema è come chiudere in automatico il file .pdf p.es dopo 5 minuti.
Ovviamente ho provato ad utilizzare il registratore vba di excel, ma (altrettanto ovviamente) essendo un operazione da eseguire "fuori" dall'applicativo excel non ho registrato nulla.

La chiusura del file .PDF mi serve per sostituire il file stesso con uno aggiornato (con lo stesso nome file e percorso)
Grazie, saluti
Ca.R (GO)
Ca.R
Utente Junior
 
Post: 45
Iscritto il: 16/02/11 23:22

Sponsor
 

Re: Excel & Acrobat

Postdi PcBase » 07/09/11 22:06

Ciao

Provo ad inserire un esempio di codice per chiudere un file Pdf
Ovviamente dovrai sostituire i nomi dei file e i relativi percorsi per renderlo operativo.

segue codice da inserire in un Modulo:

Codice: Seleziona tutto
Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

'-------------------------------------------------------------------------------------------------
Public Function CloseApplication(ByVal sAppCaption As String) As Boolean
Dim lHwnd As Long
Dim lRetVal As Long
lHwnd = FindWindow(vbNullString, sAppCaption)
If lHwnd <> 0 Then
lRetVal = PostMessage(lHwnd, WM_CLOSE, 0&, 0&)
End If
End Function

Sub Apri_File()
'Specificare tutto il percorso di trova l'eseguibile di acrobat:
'nel mio caso...
'"C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.exe"
'Mentre...
'"C:\Novità\test Ishihara.pdf" è la posizione del pdf da visualizzare

    Dim Esegui
    Esegui = Shell("C:\Programmi\Adobe\Reader 9.0\Reader\AcroRd32.exe" & " " & "C:\Novità\test Ishihara.pdf")
End Sub

Sub Chiudi_Pdf()
    'Qui si assegna all'argomento sAppCaption il nome presente nella label
    sAppCaption = "test Ishihara.pdf - Adobe Reader"
    Run CloseApplication(sAppCaption)
End Sub
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: Excel & Acrobat

Postdi Ca.R » 08/09/11 12:07

Ok ci provo
grazie molte per il prezioso, puntuale e radipo suporto.
Saluti
CaR
Ca.R
Utente Junior
 
Post: 45
Iscritto il: 16/02/11 23:22


Torna a Applicazioni Office Windows


Topic correlati a "Excel & Acrobat":


Chi c’è in linea

Visitano il forum: Nessuno e 17 ospiti