Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketÅben iexplore - vent - Luk Iexplore

 Besvar Besvar
Forfatter
ThomasC Se dropdown
Forum Begynder
Forum Begynder


Medlem: 26.Feb.2018
Status: Offline
Point: 3
Direkte link til dette indlæg Emne: Åben iexplore - vent - Luk Iexplore
    Sendt: 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



Til top



Til top
Kurt Kubik Se dropdown
Sølv bruger
Sølv bruger


Medlem: 18.Feb.2012
Status: Offline
Point: 209
Direkte link til dette indlæg Sendt: 26.Feb.2018 kl. 21:54
Prøv med:

ie.Quit

Hej fra Lars (Kurt Kubik)
Til top
ThomasC Se dropdown
Forum Begynder
Forum Begynder


Medlem: 26.Feb.2018
Status: Offline
Point: 3
Direkte link til dette indlæg Sendt: 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.
Til top
Kurt Kubik Se dropdown
Sølv bruger
Sølv bruger


Medlem: 18.Feb.2012
Status: Offline
Point: 209
Direkte link til dette indlæg Sendt: 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"
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)
Til top
ThomasC Se dropdown
Forum Begynder
Forum Begynder


Medlem: 26.Feb.2018
Status: Offline
Point: 3
Direkte link til dette indlæg Sendt: 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.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk