hallo, gestern ab 22:00 uhr hat yahoo seine kursseiten umgestellt. bisher konnte ich über eien vba code in excel die kurse für mein depot abfragen - seit der umstellung ist das nicht mehr möglich - weiß jemand von euch wie man diesem code entsprechend anpassen muß ? danke für eure hilfe!!!! hier der code: Sub Abruf() Dim zeile As Integer Dim wks As Worksheet Dim var As Variant Dim sWkn As String, sQuery As String zeile = 2 sWkn = "1" Do Until sWkn = "" Worksheets("Daten").Select sWkn = Cells(zeile, 1).Value If sWkn = "" Then Exit Do End If Application.ScreenUpdating = False Set wks = ActiveSheet sQuery = "http://de.finance.yahoo.com/q?m=*&s=" & sWkn & "&d=v1" Worksheets.Add after:=Worksheets(Worksheets.Count) With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & sQuery, _ Destination:=Range("A1")) .Refresh BackgroundQuery:=False End With var = Application.Match(sWkn & "*", Columns(1), 0) wks.Cells(zeile, 2).Value = Cells(var, 2).Value wks.Cells(zeile, 3).Value = Cells(var, 1).Value wks.Cells(zeile, 3).Value = Cells(var, 3).Value wks.Cells(zeile, 4).Value = Cells(var, 5).Value wks.Cells(zeile, 5).Value = Cells(var, 6).Value wks.Cells(zeile, 6).Value = Cells(var, 7).Value wks.Cells(zeile, 7).Value = Cells(var, 8).Value wks.Cells(zeile, 8).Value = Now Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Worksheets("Daten").Select Range("A1").Select Columns("A:I").AutoFit Application.ScreenUpdating = True zeile = zeile + 1 Loop End Sub |
|
aus der Diskussion: | Hilfe für Excel Kursabfrage bei Yahoo - Codeanpassung |
Autor (Datum des Eintrages): | lekcin (15.01.05 11:53:22) |
Beitrag: | 1 von 2 (ID:15534171) |
Alle Angaben ohne Gewähr © wallstreetONLINE |