Webabfrage über EXCEL-Tabelle (Aktienkursabfrage)

[Marcus]

Hallo !

Hat jemand von Euch schon einmal probiert, über die Webabfrage Daten aus dem
Internet zu importieren?

Ich kann mittlerweile Daten importieren, möchte allerdings die Parameter aus
einer Liste auslesen lassen.

Wenn jemand damit Erfahrungen hat, wäre ich für eine Info dankbar !

Marcus

[Michael Hirth]

Hallo Marcus !
Bei www.herber.de gibt es schon ein komplettes Shareware-Tool für ein
Aktiendepot mit Web-Abfrage.
Ist allerdings geschützt ==> mann kann den Quellcode nicht einsehen.

Michael

Marcus schrieb:

[Robert Feldmann]

Marcus schrieb:
>
> Hallo !

>
> Ich kann mittlerweile Daten importieren, möchte allerdings die Parameter aus
> einer Liste auslesen lassen.

Hierzu hat HWH mal folgendes in die NG gestellt.

***********************************************************************************
* Hans W. Herber * Microsoft Excel
MVP *
* Im Schönblick 5 * D-53567
Asbach *
* Tel.: +49 2683 949047 * Fax: +49 2683
949049 *
* URL: http://www.herber.de * EMail:
her...@herber.de *
***********************************************************************************

Mailing-Index: 413/98
Betrifft: Web-Abfrage ohne *.iqy-Datei
Datum Frage: 26.11.98
Datum Antwort: 26.11.98
Version: XL8

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

Antwort: Nachfolgendes Makro in ein allgemeines Modul einfügen
und starten.

************************** Web-Abfrage ohne *.iqy-Datei
**************************

Sub Aufruf()
WebAufruf
("http://www.bank24.de/cgi-bin/cgichart?type=2&search=846900")
End Sub

Function WebAufruf(wName$)
Dim TB As Worksheet
Set TB = ThisWorkbook.Worksheets(1)
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

'**********************************************************************************

--
bis dann,
Robert

Nicht was Du sagst ist entscheidend,
sondern was verstanden wird.

[Roland Aleksa]

Marcus <m...@sector27.de> schrieb in im Newsbeitrag:
eMXQTdT9#GA.197@cppssbbsa03...

> Hallo !
> Ich kann mittlerweile Daten importieren, möchte allerdings die Parameter
aus
> einer Liste auslesen lassen.

Das gleiche Problem beschäftigt mich auch schon eine Weile, leider weiß ich
immer noch nicht wie ich die Zellinhalte an eine bestimmte Stelle kopieren
kann (wenn´s geht - wie üblich- ohne VBA).

Ciao,
Roland