Hallo,
ich bin gerade dabei, Wetterdaten per API auszulesen. Beim Anbieter openweathermap.org klappt das schon ganz gut, jedoch in der "free" Version nur für 5 Tage. Jetzt wollte ich yahoo-weather versuchen. Die aus der API resultierende XML wird auch eingelesen, jedoch erfolgt jedesmal eine "Fehler/Statusmeldung", die mich stört. Die eingelesen Daten sind für mich ok, nur die Meldung muß weg.
Die angezeigte Fehlermeldung:
"Einige Daten wurden als Text importiert"
Ich möchte also einfach nur, dass die Fehlermeldung verschwindet, scheint auch mehr nur ein Hinweis zu sein.
Danke
Gruß
ich bin gerade dabei, Wetterdaten per API auszulesen. Beim Anbieter openweathermap.org klappt das schon ganz gut, jedoch in der "free" Version nur für 5 Tage. Jetzt wollte ich yahoo-weather versuchen. Die aus der API resultierende XML wird auch eingelesen, jedoch erfolgt jedesmal eine "Fehler/Statusmeldung", die mich stört. Die eingelesen Daten sind für mich ok, nur die Meldung muß weg.
VB.NET-Quellcode
- Private Sub Image45_Click()
- menuauswahl = "BB": Call Suchen999
- If wert9 = "N" Then
- MsgBox ("Keine Berechtigung vorhanden.")
- Else
- On Error Resume Next
- If ComboBox1.Value = "" Then MsgBox ("Bitte wählen Sie zwingend einen Kunden aus!"): GoTo zuende
- If IsNumeric(Worksheets("kunden1").Range("b" & kundenzeile)) Then MsgBox ("Keine Stadt beim ausgewählten Kunden hinterlegt. Bitte unter Einstellungen ändern!"): logtext = "Keine Stadt hinterlegt": Call loggen: GoTo zuende
- If Worksheets("kunden1").Range("b" & kundenzeile) = "" Then MsgBox ("Keine Stadt beim ausgewählten Kunden hinterlegt. Bitte unter Einstellungen ändern!"): logtext = "Keine Stadt hinterlegt": Call loggen: GoTo zuende
- Image45.Visible = False 'Wetter aus
- Image44.Visible = True 'Wetter an
- wetter99 = 1
- Dim nummer2 As Long
- Worksheets("wetterID").Visible = True
- Worksheets("wetterID").Select
- nummer2 = Worksheets("WetterID").Range("b" & Rows.Count).End(xlUp).Row
- Worksheets("WetterID").Rows("1:" & nummer2).Delete
- Dim stadt As String
- stadt = Worksheets("kunden1").Range("b" & kundenzeile)
- ActiveWorkbook.XmlImport URL:= _
- "https://query.yahooapis.com/v1/public/yql?q=select * from weather.forecast where woeid in (select woeid from geo.places(1) where text%3D%22" & stadt & "%2C de%22) and u %3D %22C%22&format=xml", ImportMap:= _
- Nothing, Overwrite:=True, Destination:=Worksheets("WetterID").Range("$A$1")
- ActiveWorkbook.XmlMaps("query_Zuordnung").Delete 'yahoo
- Worksheets("wetterID").Visible = False
Die angezeigte Fehlermeldung:
"Einige Daten wurden als Text importiert"
Ich möchte also einfach nur, dass die Fehlermeldung verschwindet, scheint auch mehr nur ein Hinweis zu sein.
Danke
Gruß