Office: (Office 2003) aktuelle Kurse aus Internet abfragen

Aycaramba · 27. Januar 2016

Ja leider... Also er markiert den Text: objXML As New MSXML2.DOMDocument
Aber hat den gelben Pfeil dann auf: Public Function Tageskurs@(ByVal Waehrungskuerzel$)

marlongnauck · 27. Januar 2016

Und was sagt die Meldung? Typ unbekannt?

darf nicht mehr kommen wenn der Verweis auf die MSXML drin ist

Aycaramba · 27. Januar 2016

Fehler beim kompilieren: Benutzerdefinierter Typ nicht definiert.

echt seltsam *frown.gif*

marlongnauck · 27. Januar 2016

Und der Verweis ist noch drin? Ansonsten gute alte Schule... starte mal Access neu *biggrin.gif*

Aber wenn der Verweis nicht da ist dann geht es nicht.

Du kannst auch im Objektkatalog gucken ob die Klasse MSXML2 da ist...

Aycaramba · 27. Januar 2016

Juhu! Problem per ausprobieren gelöst. Habe zusätzlich noch den Verweis: microsoft xml 3.0 aktiviert und siehe da, es läuft!

Danke für die Hilfe!!

marlongnauck · 27. Januar 2016

dann kenne ich auch die Ursache... vor knapp einem Jahr hat M$ das DOMDocument in xml6 abgeschafft

wenn man die Deklaration ergänzt auf MSXML2.DOMDocument60 dann geht es ohne xml3

War schon zu lange her... als wir es in allen Programmteil nachgebaut haben :O

marlongnauck · 27. Januar 2016

Ich habe mal den Code an die aktuellen Gegebenheiten bei MSXML6 angepasst.

ACHTUNG der Code läuft damit auch nur noch mit MSXML6, das ist aber seit Win 7 standardweise installiert

Code:

'---------------------------------------------------------------------------------------
' Procedure : Tageskurs
' DateTime : 08.03.2008 21:34
' Author : Marlon Gnauck www.Stollen24.com
'---------------------------------------------------------------------------------------
'
' !!! Benötigt Verweis auf MS XML6
' Search results - Microsoft Download Center
'
' Diese Funktion gibt den Wechselkurs zwischen Euro und diversen anderen Währungen aus.
' Die Währungskurse sind Durchschnittswerte verschiedener Zentralbanken innerhalb und
' außerhalb der EU. Die Aktualisierung erfolgt Wochentags 14:30 Uhr (MEZ/CET).
'
' 1 Euro = Tageskurs("USD") US$
'
' Tageskurs("US") = 0 '0 = Währung nicht vorhanden!
'
'z.Z. Mögliche Währungskürzel
'USD US dollar
'JPY Japanese yen
'BGN Bulgarian lev
'CZK Czech koruna
'DKK Danish krone
'EEK Estonian kroon
'GBP Pound sterling
'HUF Hungarian forint
'LTL Lithuanian litas
'LVL Latvian lats
'PLN Polish zloty
'RON New Romanian leu
'SEK Swedish krona
'SKK Slovak koruna
'CHF Swiss franc
'ISK Icelandic krona
'NOK Norwegian krone
'HRK Croatian kuna
'RUB Russian rouble
'TRY New Turkish lira
'AUD Australian dollar
'BRL Brasilian real
'CAD Canadian dollar
'CNY Chinese yuan renminbi
'HKD Hong Kong dollar
'IDR Indonesian rupiah
'KRW South Korean won
'MXN Mexican peso
'MYR Malaysian ringgit
'NZD New Zealand dollar
'PHP Philippine peso
'SGD Singapore dollar
'THB Thai baht
'ZAR South African rand
'---------------------------------------------------------------------------------------

Public Function Tageskurs(Waehrungskuerzel As String) As Double
Dim objXML As New MSXML2.DOMDocument60
Dim xmlNode As IXMLDOMNode
Dim URL As String

URL = "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml"

objXML.async = False 'Erst weiterarbeiten wenn das XML-Dokument komplett gelesen wurde
objXML.load URL 'Kurse einlesen

If objXML.parseError.ErrorCode 0 Then
Select Case objXML.parseError.ErrorCode
Case -2146697211:
MsgBox "Die Wechselkursdatei ist zur Zeit nicht Verfügbar!", vbInformation + vbOKOnly
Case Else
MsgBox "Fehler beim Verarbeiten der Wechselkursdatei!" & vbCrLf & vbCrLf & "ErrorCode: " & objXML.parseError.ErrorCode & " / " & objXML.parseError.Reason, vbCritical + vbOKOnly
End Select
Exit Function
End If

Set xmlNode = objXML.SelectSingleNode("*/*/*/*[@currency='" & Waehrungskuerzel & "']/@rate")

If Not (xmlNode Is Nothing) Then
'Tageskurs nur ausgeben wenn Währung vorhanden
Tageskurs = Val(xmlNode.Text)
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aycaramba · 27. Januar 2016

Ahh super klappt nun auch bei mir mit msxml 6 *Smilie

Office: (Office 2003) aktuelle Kurse aus Internet abfragen

aktuelle Kurse aus Internet abfragen

aktuelle Kurse aus Internet abfragen

aktuelle Kurse aus Internet abfragen

aktuelle Kurse aus Internet abfragen

aktuelle Kurse aus Internet abfragen - Similar Threads - aktuelle Kurse Internet

Aktuelles Datum und Uhrzeit in Formular

Ein Tabellenblatt, dass in mehrfach verwendet wird aktuell halten

aktuelles Alter aus Geburtsdatum auslesen und runde Geburtstage markieren

Nur aktuelles Jahr in Abfrage auslesen

Aktuelles Datum und aktuelle Uhrzeit (System) einfügen wenn Änderungen in einer Zelle stattfinden

Bedingte Formatierung aktuelles Jahr Zelle Färben

Alle Spalten rechts von der aktuellen Zelle addieren