Gunther Lepski
2014-09-02 13:43:53 UTC
Hallo NG!
Ich kenne mich mit VBA leider nicht aus, denke aber, daß mein Problem mit
einem Script gelöst werden kann. Vielleicht kann mir hier ja jemand helfen.
Folgendes:
Ich lade Aktien- und Fonds-Kurse mit QuoteCompiler, diese werden dann in
eine *.qwb Datei exportiert, welche wiederum von MS Money importiert wird.
Eine *.qwb-Datei ist eine Textdatei mit der Endung qwb und folgendem Aufbau:
Die Kopfzeilen sind aus folgenden Variablen aufgebaut:
<FORMAT>QWB2.0[&BR]
<DATE>[&Date.Year][&Date.Month][&Date.Day][&Time.Hour][&Time.Minute]00[&BR]
Die Zeilen mit den Kursen:
[&CountryCode]:[&WKN]@[&Quote.Int].[&Quote.Frac]@***@0@***@0@***@0@***@0@***@0@[&Currency]@
Bsp.:
-----------------
<FORMAT>QWB2.0
<DATE>20140902031400
DE:***@48.986@***@0@***@0@***@0@***@0@***@0@EUR@
DE:***@57.6@***@0@***@0@***@0@***@0@***@0@EUR@
DE:***@53.31@***@0@***@0@***@0@***@0@***@0@EUR@
---------------
Es können also mehrere Kurse übergeben werden.
Mein Problem ist jedoch, daß eine *.qwb nur Kurse >eines< Datums enthalten
darf.
Ich möchte jedoch auch historische Kurse nach MS Money exportieren.
QuoteCompiler kann diese allerdings nach Excel exportieren.
Das sieht dann so aus:
A B C D E
F G
Kurszeit Kurs Umsatz Open Close Low High
27.06.2013 20:01 48,46 0 48,46 48,46 48,46 48,46
28.06.2013 20:01 48,8 0 48,8 48,8 48,8 48,8
01.07.2013 20:01 48,64 0 48,64 48,64 48,64 48,64
.
.
.
[&CountryCode]:[&WKN] fehlen dabei. Da die aber gebraucht werden, kann
ich sie ja manuell bspw. in Spalte H eintragen, oder als Blatt-Namen.
Nun brauche ich ein Skript, welches durch das Blatt läuft und aus den Daten
in Spalte A und B für jede Zeile eine *.qwb Datei anlegt.
Am besten in einen Ordner mit der WKN als Name und Kursdatum als Dateiname.
Die muß ich dann zwar alle einzeln anklicken, damit sie nach Money
übernommen werden, aber soo oft macht man das ja nicht.
Ich glaube, das benötigte Skript ist einfacher als vieles, was ich hier in
der NG
schon gesehen habe.
Könnte mir jemand sowas schreiben?
Ich kenne mich mit VBA leider nicht aus, denke aber, daß mein Problem mit
einem Script gelöst werden kann. Vielleicht kann mir hier ja jemand helfen.
Folgendes:
Ich lade Aktien- und Fonds-Kurse mit QuoteCompiler, diese werden dann in
eine *.qwb Datei exportiert, welche wiederum von MS Money importiert wird.
Eine *.qwb-Datei ist eine Textdatei mit der Endung qwb und folgendem Aufbau:
Die Kopfzeilen sind aus folgenden Variablen aufgebaut:
<FORMAT>QWB2.0[&BR]
<DATE>[&Date.Year][&Date.Month][&Date.Day][&Time.Hour][&Time.Minute]00[&BR]
Die Zeilen mit den Kursen:
[&CountryCode]:[&WKN]@[&Quote.Int].[&Quote.Frac]@***@0@***@0@***@0@***@0@***@0@[&Currency]@
Bsp.:
-----------------
<FORMAT>QWB2.0
<DATE>20140902031400
DE:***@48.986@***@0@***@0@***@0@***@0@***@0@EUR@
DE:***@57.6@***@0@***@0@***@0@***@0@***@0@EUR@
DE:***@53.31@***@0@***@0@***@0@***@0@***@0@EUR@
---------------
Es können also mehrere Kurse übergeben werden.
Mein Problem ist jedoch, daß eine *.qwb nur Kurse >eines< Datums enthalten
darf.
Ich möchte jedoch auch historische Kurse nach MS Money exportieren.
QuoteCompiler kann diese allerdings nach Excel exportieren.
Das sieht dann so aus:
A B C D E
F G
Kurszeit Kurs Umsatz Open Close Low High
27.06.2013 20:01 48,46 0 48,46 48,46 48,46 48,46
28.06.2013 20:01 48,8 0 48,8 48,8 48,8 48,8
01.07.2013 20:01 48,64 0 48,64 48,64 48,64 48,64
.
.
.
[&CountryCode]:[&WKN] fehlen dabei. Da die aber gebraucht werden, kann
ich sie ja manuell bspw. in Spalte H eintragen, oder als Blatt-Namen.
Nun brauche ich ein Skript, welches durch das Blatt läuft und aus den Daten
in Spalte A und B für jede Zeile eine *.qwb Datei anlegt.
Am besten in einen Ordner mit der WKN als Name und Kursdatum als Dateiname.
Die muß ich dann zwar alle einzeln anklicken, damit sie nach Money
übernommen werden, aber soo oft macht man das ja nicht.
Ich glaube, das benötigte Skript ist einfacher als vieles, was ich hier in
der NG
schon gesehen habe.
Könnte mir jemand sowas schreiben?
--
Grüße von der Donau
Gunther
Grüße von der Donau
Gunther