Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Web-Abfrage ohne *.iqy-Datei

Gruppe

Internet

Problem

Wie kann ich eine Web-Abfrage starten, ohne vorher eine Abfrage(*.iqy-)Datei anzulegen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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