Fenster schließen  |  Fenster drucken

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