Print side | Luk vindue

Åben iexplore - vent - Luk Iexplore

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3384
Udskrevet den: 23.Nov.2024 kl. 16:05


Emne: Åben iexplore - vent - Luk Iexplore
Besked fra: ThomasC
Emne: Åben iexplore - vent - Luk Iexplore
Posteringsdato: 26.Feb.2018 kl. 15:00
Hej derude.

Måske der en der kan hjælpe mig, har fået læst mig frem til koden under,
men kan simpelthen ikke få den til at lukke / terminate iexplore efter tiden er gået.
efterfulgt af en ventetid så en lukning / terminate af excel.
Tiden er sat til 10 sekunder, men dette bliver ændret senere.
Håber der en der kan hjælpe mig.

// Thomas

Sub openbrowser()
Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://www.google.com"
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop

ie.Visible = True
Application.Wait Now + TimeSerial(0, 0, 10)

End Sub


Svar:
Besked fra: Kurt Kubik
Posteringsdato: 26.Feb.2018 kl. 21:54
Prøv med:

ie.Quit


-------------

Hej fra Lars (Kurt Kubik)

Besked fra: ThomasC
Posteringsdato: 28.Feb.2018 kl. 12:51
Det syntes jeg at jeg har prøvet, og har jeg explore åben som vindue, så lykkes det også.
 
Men den åbner et separat program hjemmesiden den åbner og det vil sige at den derfor melder en fejl.
Har den desværre ikke på mig her fejlen, men kigger lige næste gang.

Besked fra: Kurt Kubik
Posteringsdato: 28.Feb.2018 kl. 13:14
Hvis du anvender denne, så burde det virke - gør hos mig i alle fald:

Sub openbrowser()
Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.navigate " http://www.google.com" rel="nofollow - http://www.google.com"
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop

ie.Visible = True
Application.Wait Now + TimeSerial(0, 0, 10)
ie.quit

End Sub


-------------

Hej fra Lars (Kurt Kubik)

Besked fra: ThomasC
Posteringsdato: 05.Mar.2018 kl. 11:43
Hej igen.
 
Problemet er lidt at den åbner et form for program igennem siden den læser.
Derved ved den ikke at iexplorer er åben (tror jeg) og kommer derfor med følgende fejl.
Run-time error -2147417848 (80010108)
Automation error
The object invoked has disconnected from its clients.


Print side | Luk vindue