Danke, Jörg, für die Antwort.
Jörg Schmidt wrote:
Ich würde ganz einfach die Existenz der Datei prüfen oder geht das nicht
wenn die im Netz ist
if FileExists (sURL) then
Open sURL For Input As FileNo
else
msgbox "Datei nicht vorhanden", 48, "Problem"
end if
Das habe ich jetzt mal so probiert, leider braucht auch FileExists eine
ganze Weile bis es aufgibt.
Sub testverbindung
Dim FileNo As Integer
Dim File As String
Dim sUrl As String
FileNo = Freefile
sURL="http://de.finance.yahoo.com/d/quotes.csv?s=^GDAXI+620140.F&f=sl1t1c1ghpv&e=.csv";
if FileExists (sURL) then
Open sURL For Input As FileNo
else
msgbox "Datei nicht vorhanden", 48, "Problem"
end if
End Sub
Mit Bordmittel habe ich keine Ahnung. Wenn ich das Betriebssystem wüßte
würde ich darauf eine Lösung bauen.
Bei Windows genügte zum Beispiel ein einfaches Ping, also Batch mitttels
Makro erstellen, mit Inhalt ala:
Mein Betriebssystem ist SuSE 10.0.
Ping www.abc.de >c:\tmp.txt
Diese Batch per Makro aufrufen und anschließend per makro den Inhalt von
tmp.txt einlesen und schauen ob dort steht 'Unbekannter Host
www.abc.de.', dann ist die Adresse nicht erreichbar.
O.K. ein Umweg aber müsste wohl gehen, wenn ich mich recht entsinne mit
shell().
Nun die Batchdatei und tmp.txt wieder löschen.
Warum löst Du das Ganze überhaupt auf diese Art und Weise über eine
csv-Datei? Der Zugriff auf die Daten der csv ist doch direkt möglich
ohne zeilenweise lesen zu müssen, alles fertig ausgearbeitet in der
OOo-Bibliothek Depot. Ein VerwendungsBeispiel findest Du in der
Tabellendokumentvorlage "Aktienverwaltung" in StarOffice.
Ich mache das auf diese Art, weil ich schon seit Jahren mir Kurslisten
(quotes.scv) von Yahoo hole, speichere und dann per Makro in
Depot-Tabellen in Calc einlese. Nun würde ich's gerne direkt aud dem
Internet holen, ohne die lästigen Zwischenschritte. Ich bin halt auch
ein Gewohnheitstier. Gerne würde ich dann auch noch die Kurse dann immer
in eine DB packen, damit ich auch frühere Zustände oder Kursverläufe
nachvollziehen kann. Aber vielleicht hast du recht, mal anzugucken, wie
andere Makros das machen.
Viele Grüße
Wolfgang
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
