Gruppe
Extern
Problem
Wie kann ich eine Web-Abfrage starten, ohne vorher eine Abfrage(*.iqy-)Datei anzulegen?
ClassModule: Tabelle1
Private Sub CommandButton1_Click()
Call Aufruf
End Sub
StandardModule: basMain
Sub Aufruf()
Dim tbl As QueryTable
Dim sSearch As String
sSearch = "http://de.finance.yahoo.com/q?s=NSUG.DE&d=t"
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set tbl = ActiveSheet.QueryTables.Add( _
Connection:="URL;" & sSearch, _
Destination:=Range("A1"))
With tbl
.FieldNames = False
.RefreshOnFileOpen = False
.Refresh BackgroundQuery:=False
End With
End Sub