Fenster schließen  |  Fenster drucken

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