Function WebAufruf(wName$, TB As Worksheet) wName = "http://de.finance.yahoo.com/q?m=F&s=" + WKN + "&d=t" `On Error Resume Next On Error GoTo NOCHMAL NOCHMAL: With ActiveSheet.QueryTables.Add(Connection:="URL;" & wName, 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 End Function Dann mit Suchfunktion weiter ... |
|
aus der Diskussion: | An alle Exel Programmierer |
Autor (Datum des Eintrages): | dontpanic (16.06.01 12:21:50) |
Beitrag: | 2 von 15 (ID:3750291) |
Alle Angaben ohne Gewähr © wallstreetONLINE |