Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Istruzione Task.Exists per excel ??

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

Istruzione Task.Exists per excel ??

Postdi wallysimpsons » 25/11/09 19:29

Ciao a tutti. :roll:

Ripropongo un quesito al quale non sono riuscito a dare una risposta, sperando che su questo forum qualcuno ha avuto esperienza in merito.

Tramite un collegamento ipertestuale apro una pagina web, ad esempio ANSA.it

L'apertura della pagina è demandata ad un pulsate all'interno di una form

Ho però un problema.

Ogni volta che premo il pulsante viene aperta una nuova pagina web anche se è già aperta.

Pensavo allora di sfruttare il task panel ma VBA excel non ha un'istruzione Tasks.Exits

Pensavo allora di sfruttare la libreria di word ma l'istruzione funziona solo se word è aperto.
Inoltre se chiudo e riapro word la funzione non va più.

Sapete se esiste un modo per ovviare al problema ?
Wally (Excel 2007)
Avatar utente
wallysimpsons
Utente Junior
 
Post: 11
Iscritto il: 25/11/09 14:09

Sponsor
 

Re: Istruzione Task.Exists per excel ??

Postdi Anthony47 » 26/11/09 02:06

Non so che come operi oggi, e le mie modeste conoscenze sistemistiche non mi consentono di intercettare una sessione eventualmente gia' aperta, ma con questo codice (e le sue variazioni) apro una sessione di IE e poi la uso per tutte le esigenze nel mio programma:
Codice: Seleziona tutto
Public objIE As Object
Sub Naviga(DestUrl)

'Dim DestUrl As String  'per macro "stand alone"
On Error GoTo OpenIE
    If objIE.Visible = False Then objIE.Visible = True
    objIE.Navigate DestUrl
    Do While objIE.busy: DoEvents: Loop 'opzionale, loop se non completato
Exit Sub

OpenIE: 'crealo se manca
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.Navigate DestUrl
    Do While objIE.busy: DoEvents: Loop    'opzionale, loop se non completato
End Sub

Cosi' scritta va richiamata da altra macro, ad esempio una cosa cosi':
Codice: Seleziona tutto
Sub esempio()
    Call Naviga("http://www.pc-facile.com/forum/")
    Call Naviga("http://www.pc-facile.com/forum/viewforum.php?f=26")
    Call Naviga("http://www.pc-facile.com/forum/viewtopic.php?f=26&t=83485")
End Sub


Alla chiusura del file excel dovrai chiudere l' applicazione, con
Codice: Seleziona tutto
Sub closeIE()
    On Error Resume Next
    objIE.Quit
    Set objIE = Nothing
End Sub

Spero che trovi lo spunto....

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Istruzione Task.Exists per excel ??":


Chi c’è in linea

Visitano il forum: enrico43, raimea e 8 ospiti