Istruzione Task.Exists per excel ??

[wallysimpsons]

Ciao a tutti.

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 ?

[Anthony47]

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