Re: CSV-Datei per Makro einlesen

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: Klaus Helten (k.helten_at_t-online.de)
Date: 06/21/04 

Date: Mon, 21 Jun 2004 13:36:58 +0200

Hallo Kay,

"Kay Riedmüller" <Spam.Kill@web.de> schrieb im Newsbeitrag
news:uGLGQCxVEHA.3016@tk2msftngp13.phx.gbl...
schrieb:

> Kannst Du bitte nochmal _genau_ erklären, was das Makro zum Schluss
leisten
> soll?
> (Mit Pfadangaben, wenn es immer die selben sind, usw.)

Parallel zu MS Money 99 Ver. 2000, sozusagen als Hosenträger zum Gürtel,
hole ich per Banking Modul der T-Online Software 5.0 die Kontoauszüge von
insgesamt 6 Konten an unterschiedlichen Banken. Die neuen Buchungen kann man
ausschließlich im CSV-Format (Trennzeichen Semikolon) exportieren, pro Konto
eine CSV-Datei, die abgelegt werden im Ordner
C:\Dokumente und
Einstellungen\Klaus\Anwendungsdaten\T-Online\T-Online_Software_5\Banking\Exp
ort

Seit Anfang 2000 führe ich dazu eine Excel-Tabelle mit je einem
Tabellenblatt pro Konto, in die ich diese Buchungen nach Aufrufen durch das
in meinem ersten Beitrag wiedergegebene Makro manuell hineinkopiere (diese
Handarbeit kann bleiben, automatisch wäre natürlich eleganter). Dies
funktionierte mit Excel 2000 problemlos, doch seit Excel 2003 gibt es das
leidige CSV-Problem.

Also nochmals kurz und bündig:
***Öffnen einer 13-spaltigen CSV-Datei mit 1 Zeile Spaltenkopf und
unbekannter Anzahl Buchungszeilen per Excel2003-Makro***
*optional: automatisches Hineinkopieren in das jeweilige Tabellenblatt der
geöffneten Tabelle*

Gruß von der Nordsee
Klaus

PS: Ich habe ja meine BASIC-Erfahrungen erwähnt und mich mal in der VB
Referenz und der VB Dokumentation in der Visual Basic hilfe umgesehen: das
lerne ich nicht mehr!!!
Ich habe mal 2 Ferienwohnungen vermietet und mir ca. 1986 einen
programmierbaren SHARP PC-1360 gekauft. Das Mieter-Abrechnungsprogramm hatte
zuletzt 793 Zeilen mit unzähligen Sprung- und Rücksprungbefehlen.

Auschnitt:
3270 CLS : PRINT "Berechn. der FVA (J/N) ?"
3280 L$= INKEY$ : IF L$< >"J"AND L$< >"N" GOTO 3280
3290 IF L$="N" GOTO 3640
3300 LET N=AZ(JR)-EZ(JR)
3310 IF EZ(JR)<C1 LET N=AZ(JR)-C1
3320 IF C2<AZ(JR) LET N=C2-EZ(JR)
3330 CLS : PRINT "Erwachsene",ER
3340 PRINT "(ab 17. Lebensjahr)": PRINT " (weiter -> SPC )": PRINT " (
neu -> = )"
3350 L$= INKEY$ : IF L$< >" "AND L$< >"=" GOTO 3350
3360 IF L$=" " GOTO 3380
3370 IF L$="=" INPUT "Erwachsene = ? ";ER
3380 CLS : PRINT "Anzahl",AR: PRINT "SB-Ausweise"
3390 PRINT " (weiter -> SPC )": PRINT " ( neu -> = )"
3400 L$= INKEY$ : IF L$< >" "AND L$< >"=" GOTO 3400
3410 IF L$=" " GOTO 3430
3420 INPUT "Anzahl SB-Ausweise = ?";AR
3430 CLS : PRINT "Kinder",KR
3440 PRINT "(6. -16. Lebensjahr)": PRINT " (weiter -> SPC )": PRINT " (
neu -> = )"
3450 L$= INKEY$ : IF L$< >" "AND L$< >"=" GOTO 3450
3460 IF L$=" " GOTO 3480
3470 IF L$="=" INPUT "Kinder = ? ";KR
3480 CLS : PRINT "eine Familie ? (J/N)"
3490 L$= INKEY$ : IF L$< >"J" AND L$< >"N" GOTO 3490
3500 IF L$="N" GOTO 3530
3510 IF ER>4 LET ER=4
3520 IF ER+KR>4 LET KR=4-ER
3530 FV(JR)=(.5*KR+1.5*(ER-.5*AR))*N 3540 CLS : PRINT "Kurkarte-Nr.
";KU$(JR)
3550 PRINT " ( weiter -> SPC )": PRINT " ( neu ->
3560 L$= INKEY$ : IF L$< >" " AN D L$< >GOTO 3560
3570 IF L$=" " GOTO 3640
3580 IF L$="=" INPUT "Kurkarte-Nr.= ? ";KU$(JR)
3590 CLS : PRINT "Meldekarte-Nr. ";KU$(JR)

Relevant Pages