programma werkt ineens niet meer?

Status
Niet open voor verdere reacties.
B

bontekite

Gebruiker
Lid geworden
19 dec 2009
Berichten
80
Hallo,

Ik heb een programmatje waar mee ik de wisselkoers ophaal voor verdere bewerking.
Dit heeft gewerkt van 2013 tot vorige week .
toen kreeg ik de foutmelding "Fout 91 tijdens Objectvariabele of blokvariabele With is niet ingesteld".


Bekijk bijlage import $6.xlsm


Ik heb van alles geprobeerd maar ik kom er niet uit.

Waaraan kan dit liggen ? en hoe los ik het op ?
 
De macro doet het bij mij prima. Kijk eens op welke regel je de foutmelding krijgt.

Mogelijk iets met het ophalen van de gegevens.
 
Ik heb dat probleem ook gehad met mijn programma. (Heeft snb gemaakt)
Ik heb van HTTP toen HTTPS gemaakt en het werkte weer.
 
Bij deze regel gaat hij in de fout.

Cells(2, 1).Value = .SelectSingleNode("//Cube[@time]").getAttribute("time")
 
Het is vreemd dat het wel werkt bij SjonR

Kan dit te maken hebben met systeem update.
ik werk met windows 7 en Excel 2010
 
als het altijd gewerkt heeft en je hebt niets aan de macro veranderd, dan moet je het elders zoeken. Is er iets gewijzigd in bijvoorbeeld een firewall ofzo?
 
Dat is mogelijk alleen hier heb ik geen beheer over dus kan ik ook weinig mee.

Heeft misschien iemand een ander soort programma waarmee ik koers van de dollar kan opvragen.
 
Bijgaand bestand ververst bij openen.
Verder geen VBA vereist.
 

Bijlagen

  • __eurokoers snb 001.xlsb
    17,6 KB · Weergaven: 41
ik heb het __eurokoers snb 001 getest .

Het lijkt erop dat deze zich niet ververst, want datum is 14-9-2018 en het is vandaag de 17-9-2018
hoe maak je de link en welke side haal je de info?
 
De code werkt ook nog steeds bij mij, windows7en/excel2007nl
Maar je kan een wachtlusje inbouwen zodat de xml zeker geladen wordt

Plaats na
Code: 
.Load "http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml" 'am_2013
Deze code
Code: 
Application.Wait DateAdd("s", 1, Now)
De code wacht dan 1 seconde (zou meer dan lang genoeg moeten zijn voor een klein beetje xml)

p.s. de code van snb uit bericht#10 heeft dezelfde bron/url als de huidige code.
 
Zijn het niet de koersen op het einde van de dag? dus wachten tot 4 of 6 uur??
 
Je kan
Code: 
http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml
ook in je browser bekijken, daarmee kan je het zelf controleren.
 
Op de ECB site kun je zien dat koersen om 16.00 uur worden geactualiseerd.
Volgens mij is het nog niet zo laat.
Daarom krijg je de koers van vrijdag te zien.
 
Verander
Code: 
CreateObject("MSXML2.DOMDOCUMENT")
Eens in
Code: 
CreateObject("MSXML2.DOMDOCUMENT.3.0")
Of
Code: 
CreateObject("MSXML2.DOMDOCUMENT.6.0")

Het lijkt erop dat de combinatie van oude bibliotheken en nieuwe software niet zo goed verloopt.
Terwijl het heel netjes zou zijn als alle software backwards compatible is.
 
De DOMDOCUMENT aangepast

Bij 3.0 zelfde foutmelding
Bij 6.0 fout 2147024891 (800700005) tijdens uitvoering Toegang geweigerd.

Dus werkt niet .

ik zal het andere document eens uitproberen na 16.00 uur ok
 
snb zei:
Heb je al kontakt gehad met Willie Poorten ?
Klik om te vergroten...
Bill Gates? nee dat is het mij niet waard.
Ik schrijf oude code "DOMDOCUMENT" in plaats van "DOMDOCUMENT.3.0" of "DOMDOCUMENT.6.0".
Op een oud systeem excel2007nl en windows7en.
Ik ga er vanuit dat het dan op nieuwere systemen dan ook loopt vanwege het streven naar backwards compatibility.
Gezien de reacties werkt de code overal, behalve bij de belangrijkste, de vragensteller niet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan