nachdem ich letzte Woche keine befriedigende Antwort auf meine Frage bekommen habe versuche ich es heute noch einmal.
Ich beziehe über eine Query-Abfrage (Daten>Externe Daten>Web-Abfrage) Daten aus dem Internet.
Die entsprechende Seite ändert sich aber jeden Tag (ein Teil des Namens entspricht dem jeweiligen Datum).
Gibt es eine Möglichkeit, dass ich über das Makro die Query-Informationen direkt mitgebe und dann entsprechend mit z.B. heute()-1 arbeite (ich muss immer den letzten Tag abfragen!)?
Der entscheidende Teil des Makros sieht so aus (alle anderen Komponenten kopieren nur, etc.):
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;LUA Tageswerte heute.iqy", Destination:= _
Range("A1"))
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
Die Stelle "FINDER;LUA Tageswerte heute.iqy" gibt also die Adresse der Query Datei an, in der die Informationen für die Abfrage stehen.
Die Eintäge in dieser Datei lauten:
WEB
1
http://www.lua.nrw.de/luft/temes/0622/DUBR.htm
Der Abschnitt /0622/ ist derjenige, der sich dynamisch verhält (immer die letzten 365 Tage).
Diese drei Zeilen würde ich gerne direkt in meinem Makro ansprechen, damit ich hier die Abfrage dynamisch gestallten kann. Hierdurch soll erreicht werden, dass man immer einen bestimmten Tag abrufen kann ohne jedesmal direkt auf die Seite zu gehen (Optimal wäre hier eine Eingabe des Tages über eine Abfragebox).
Ich habe im Moment keine Ahnung, ob das was ich plane überhaupt geht. Ich wäre sehr dankbar, wenn Ihr mir sagen könntet, ob es eine Möglichkeit gibt.
Wenn dann noch jemand einen explizieten Vorschlag hätte wäre mein Tag gerettet.
Vielen Dank im Vorraus
Gruß
Jens