<\/p>\n
Autor: Manfred Hoffbauer, Düsseldorf<\/p>\n
<\/b><\/p>\n
Die routinemäßigen Bankgeschäfte bequem und preiswert von zu Hause aus zu führen, erfreut sich immer größerer Beliebtheit. Kein Wunder also, dass praktisch jedes nennenswerte Bankunternehmen seinen Kunden einen zuverlässigen Online-Zugang für das Homebanking zur Verfügung stellt. Ein weit verbreitetes und sehr leistungsfähiges Programm für das Homebanking ist Quicken. Mit ihm ist auch der unbedarfte Anwender in der Lage, seine Bankgeschäfte per PC zu führen. Quicken, das sich seit einiger Zeit in den Händen der Haufe-Tochter Lexware befindet, hat allerdings für Access-Anwender eine entscheidende Schwachstelle: Es bietet keine Schnittstelle zu Access.<\/b><\/p>\n
Abhilfe schafft das in diesem Beitrag beschriebene Tool. Wenn Sie über dieses VBA-Programm verfügen, benötigen Sie zum Import Ihrer Quicken-Daten in Access nur noch zwei Schritte:<\/p>\n
Der folgende Beitrag beschreibt die Schritte, die Sie mit Quicken ausführen müssen, ebenso wie die Funktionsweise des Access-Programms.<\/p>\n
Quicken verwendet zum Datenaustausch das so genannte Quicken Interchange Format (kurz: QIF). Es handelt sich hierbei um ein nicht standardisiertes Datenformat, das Sie sich zwar mit einem Texteditor ansehen, aber in kaum ein anderes Programm importieren können. Um Daten mit Quicken zu exportieren, gehen Sie wie folgt vor:<\/p>\n
![](\"..\/fileadmin\/_temp_\/2000_01\/aiu_4\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Exportoptionen von Quicken<\/span><\/b><\/p>\n Die Abbildungen in diesem Beitrag wurden mit Quicken 6 angefertigt. Einige Details in den Abbildungen können von anderen Programmversionen abweichen. <\/p>\n Das Programm Quicken exportiert die Daten des ausgewählten Kontos und der angekreuzten Referenzdateien in eine Textdatei mit der Erweiterung QIF. Es handelt sich um eine Textdatei, die Sie auch mit dem Windows-Editor öffnen können.<\/p>\n <\/b><\/p>\n Bild 2: QIF-Datei im Windows-Editor<\/span><\/b><\/p>\n Access verfügt leider über keinen Importfilter für QIF-Dateien. Aufgrund des ungewöhnlichen Formats der QIF-Dateien eignet sich auch kein anderer Importfilter. Deshalb wird ein VBA-Programm für den Import benötigt. Die erste Aufgabe für das Programm besteht darin, die Textdatei in eine Access-Tabelle einzulesen. Dies erfolgt bei Access üblicherweise durch das öffnen der Textdatei per Open-Anweisung:<\/p>\n Diese Anweisung öffnet die Textdatei zum binären Lesen. Dazu folgender Hintergrund: Wenn Sie eine QIF-Datei mit Open…For Input öffnen, können Sie die Datei nur per Input-Anweisung zeilenweise lesen. Diese Anweisung liest eine Textzeile bis zum Auftreten eines Absatzendezeichens, wozu leider auch das Komma zählt. Beim zeilenweisen Lesen mit Input liest Access die Zeile T-63,36 in zwei Zeilen ein. Die erste Zeile besteht aus T-63 und die zweite aus 36.<\/p>\n Da Access keine Optionen anbietet, um die Interpretationsschwierigkeiten beim Lesen von QIF-Dateien zu umgehen, ist das binäre öffnen der Textdatei und die Programmierung einer eigenen Routine zum Einlesen einer Zeile erforderlich:<\/p>\n Quellcode 1<\/b><\/p>\n Das Lesen aus der mit Open … Binary geöffneten Textdatei erfolgt über die Get-Anweisung. Diese liest in Abhängigkeit vom Datentyp der angegebenen Variablen eines oder mehrere Zeichen. Mit der Definition der Variablen Zeichen als Zeichenkette mit der festen Länge 1 (Dim Zeichen As String * 1) ist die Anzahl der eingelesenen Zeichen auf 1 fixiert.<\/p>\n Das zeichenweise Lesen erfolgt in einer kopfgesteuerten Schleife, die erst beim Auftreten des Dateiendes oder eines so genannten Line-Feed-Zeichens beendet wird. Die mit Quicken generierten Textdateien orientieren sich zumindest in dieser Beziehung an einem Standard. Jede Zeile endet mit einem unsichtbaren Carriage-Return- und einem Line-Feed-Zeichen. Das Carriage-Return-Zeichen hat den ASCII-Code 13 und das Line-Feed-Zeichen den ASCII-Code 10. Beide zusammen werden von Quicken, dem Windows-Editor und praktisch jedem anderen Programm als Absatzende interpretiert.<\/p>\n Im Rumpf der While-Schleife befindet sich lediglich eine If-Abfrage, mit der das Carriage-Return-Zeichen überlesen wird. Alle anderen Zeichen werden dem Rückgabewert der Funktion, also der gelesenen Zeile, hinzugefügt. Falls gerade die gleiche Zeile wie in obigem Beispiel verarbeitet wird, gibt der Funktionsaufruf ZeileLesen die Zeichenfolge T-63,36 als Funktionswert zurück. Das Komma wird nun als Dezimal- und nicht mehr als Feldtrennzeichen behandelt.<\/p>\n Für die Durchführung des Importvorgangs muss der Anwender eine Möglichkeit haben, das Laufwerk, den Pfad und den Dateinamen der QIF-Datei einzugeben. In der Beispieldatenbank erfolgt die Eingabe über das Formular frmStart (siehe Bild 3). Es enthält das Kombinationsfeld txtDateiname, in das der Dateiname eingegeben oder aus einer Liste übernommen werden kann.<\/p>\n <\/b><\/p>\n Bild 3: Eingabe von Laufwerk, Pfad und Dateiname der Importdatei<\/span><\/b><\/p>\n Das Formular ist bewusst ziemlich einfach gehalten. Um beispielsweise die Vorschlagsliste für QIF-Dateien zu ändern, müssen Sie in die Entwurfsansicht des Formulars wechseln. öffnen Sie das Eigenschaftenfenster des Steuerelements txtDateiname, und ergänzen Sie weitere Pfade in der Eigenschaft Datensatzherkunft.<\/p>\n Die Schaltfläche Schließen des Formulars wurde mit dem Befehlsschaltflächen-Assistent von Access erstellt. Bei einem Klick auf die Schaltfläche Starte Import wird folgende Anweisung ausgeführt:<\/p>\n <\/p>\n Diese Anweisung ruft die Prozedur QuickenImportieren des Moduls modQuicken aus der Beispieldatenbank auf. Durch die Angabe des Parameters Me!txtDateiname wird der Prozedur der Inhalt des Feldes txtDateiname übergeben. Damit kann zu Beginn der Prozedur überprüft werden, ob die eingegebene Datei überhaupt existiert. Falls nicht, macht eine entsprechende Meldung darauf aufmerksam. Wenn die Textdatei gefunden wird, startet die Prozedur als erstes die Prozedur QIFLesen, welche die QIF-Datei in eine Access-Tabelle einliest.<\/p>\n Quellcode 2<\/b><\/p>\n Die Prozedur QIFLesen enthält in der Zeichenkettenvariablen sDateiname den vollständigen Pfad und den Dateinamen der QIF-Datei. Das zentrale Element der Prozedur ist eine Schleife, die die Textdatei zeilenweise liest, die Daten verarbeitet und das Ergebnis in der Tabelle tblDaten speichert.<\/p>\n Innerhalb der Schleife wird das Format der QIF-Datei genau analysiert. Die erste If-Anweisung prüft, ob die gelesene Zeile mit einem Ausrufungszeichen beginnt. Der Text !Type:Class startet in der QIF-Datei beispielsweise den Beginn eines Abschnitts mit einer Auflistung aller Klassen. Die Liste stimmt mit der Ansicht überein, die Sie in Quicken mit dem Befehl Listen ( Klassen öffnen können. Folgende Tabelle (Tab. 1) enthält eine übersicht der Abschnittsmarkierungen in der QIF-Datei.<\/p>\n Text<\/b><\/p>\n<\/td>\n Abschnitt<\/b><\/p>\n<\/td>\n<\/tr>\n !Type:Class<\/p>\n<\/td>\n Beginn einer Klassenliste.<\/p>\n<\/td>\n<\/tr>\n !Type:Cat<\/p>\n<\/td>\n Beginn einer Kategorienliste.<\/p>\n<\/td>\n<\/tr>\n !Option:AutoSwitch<\/p>\n<\/td>\n Kann ignoriert werden.<\/p>\n<\/td>\n<\/tr>\n !Account<\/p>\n<\/td>\n Beginn einer Kontenliste.<\/p>\n<\/td>\n<\/tr>\n !Clear:AutoSwitch <\/p>\n<\/td>\n Kann ignoriert werden.<\/p>\n<\/td>\n<\/tr>\n !Type:Bank<\/p>\n<\/td>\n Beginn eines Abschnitts mit Kontenbuchungen.<\/p>\n<\/td>\n<\/tr>\n !Type:Memorized<\/p>\n<\/td>\n Beginn eines Abschnitts mit gemerkten Buchungen.<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Abschnittsmarkierungen<\/b><\/p>\n Die in diesem Kapitel besprochene Struktur von QIF-Dateien berücksichtigt nur einfache Buchungen auf Bankkonten. Die Besonderheiten von Splittbuchungen, MwSt-, Wertpapier- und anderen Konten werden hier nicht berücksichtigt. Falls Sie die Daten dieser Konten in Access importieren wollen, empfehlen wir Ihnen die Anpassung des beschriebenen Programms. <\/p>\n Jeder Abschnitt einer QIF-Datei ist durch eine individuelle Zusammensetzung von Feldern gekennzeichnet. Das erste Zeichen einer Zeile enthält jeweils den Feldnamen. Alle weiteren Zeichen bilden den Feldwert. So speichert beispielsweise die Zeile<\/p>\n den Wert Mustermann im Feld N (wie Name). Ein Datensatz einer QIF-Datei setzt sich aus mehreren aufeinander folgenden Zeilen zusammen. Das ^-Zeichen markiert dabei das Ende des Datensatzes. Ein Datensatz aus der Klassenliste hat folgendes Aussehen:<\/p>\n Es folgen zwei Beispiele für Datensätze aus der Kategorienliste:<\/p>\n Der erste Datensatz besteht aus vier, der zweite nur aus zwei Feldern. Dieses Beispiel zeigt die eigentliche Schwierigkeit beim Import von QIF-Dateien: Zu Beginn des Imports ist weder bekannt, welche Abschnitte die Importdatei enthält noch welche Felder pro Abschnitt benötigt werden.<\/p>\n Eines steht aber in jedem Fall fest: Die Zusammensetzung der Felder variiert pro Abschnitt. Aus diesem Grund ist es in jedem Fall sinnvoll, für jeden Abschnitt eine eigene Tabelle anzulegen.<\/p>\n Die folgende If-Abfrage prüft daher zunächst, ob ein neuer Abschnitt beginnt. Wenn dies zutrifft, dann wird eine neue Tabelle angelegt. Der Name der Tabelle setzt sich aus dem Text tbl und dem Namen des Abschnitts zusammen.<\/p>\n Quellcode 3<\/b><\/p>\n Der Else-Zweig der If-Abfrage prüft, ob die gelesenen Zeichen das Datensatzende markieren oder ob es sich um ein gelesenes Datenfeld handelt. Falls das ^-Zeichen das Datensatzende markiert, wird lediglich der Wert der Variablen lSatznummer erhöht. Der um Eins erhöhte Wert wird dann mit der nächsten Datenzeile gespeichert.<\/p>\n Falls es sich um eine Datenzeile handelt, fügt das Programm einen Datensatz an die Tabelle tblDaten an. Neben der aktuellen Satznummer werden der aktuelle Tabellenname, der Feldname und der Feldwert gespeichert.<\/p>\n Quellcode 4<\/b><\/p>\n Auf diese Weise wird pro Datenzeile ein Datensatz an die Tabelle tblDaten angefügt. Anders als die QIF-Datei enthält diese Tabelle jedoch nicht nur den Feldnamen und den Feldwert, sondern pro Zeile auch den Tabellennamen und einen Zähler für die Datensatznummer. Es folgt die Struktur der Tabelle (Tab. 2):<\/p>\n Feldname<\/b><\/p>\n<\/td>\n Datentyp<\/b><\/p>\n<\/td>\n Bedeutung<\/b><\/p>\n<\/td>\n<\/tr>\n Tabellenname<\/p>\n<\/td>\n Text<\/p>\n<\/td>\n Speichert den aktuellen Tabellennamen.<\/p>\n<\/td>\n<\/tr>\n Feldname<\/p>\n<\/td>\n Text<\/p>\n<\/td>\n Speichert den aktuellen Feldnamen.<\/p>\n<\/td>\n<\/tr>\n Feldwert<\/p>\n<\/td>\n Text<\/p>\n<\/td>\n Speichert den aktuellen Feldwert als Text.<\/p>\n<\/td>\n<\/tr>\n Satznummer<\/p>\n<\/td>\n Zahl<\/p>\n<\/td>\n Zähler, der pro Datensatz um eins erhöht wird.<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Struktur<\/b><\/p>\n Wenn alle Datensätze aus der QIF-Datei an die Tabelle tblDaten angefügt wurden, enthält diese eine vollständige Liste aller Feldwerte. Jeder Feldwert ist dabei durch den Feldnamen, den Tabellennamen und eine Satznummer gekennzeichnet (siehe Bild 4).<\/p>\n <\/b><\/p>\n Bild 4: Importierte Daten in der Tabelle tblDaten<\/span><\/b><\/p>\n Die Tabelle tblDaten ist die ideale Voraussetzung für die Anlage der Tabellen, die zur Aufnahme der Quicken-Daten benötigt werden. Die folgende Gruppierungsabfrage reicht aus, um eine Aufstellung sämtlicher Tabellennamen und Felder zu ermitteln:<\/p>\n Die Prozedur TabellenAnlagen liest die Datensätze aus der Gruppierungsabfrage in zwei verschachtelten Schleifen. Die äußere Schleife (Do While Not rTabellen.EOF) ermittelt einen Gruppenwechsel im Feld Tabellenname. Sobald ein neuer Tabellenname gelesen wird, werden folgende Schritte veranlasst:<\/p>\n <\/b><\/p>\n Bild 5: Gruppierung der Daten aus der Tabelle tblDaten<\/span><\/b><\/p>\n Die Prozedur legt alle Felder als Textfelder mit den üblichen Standardeigenschaften an. Die einzige Ausnahme ist die Eigenschaft Leere Zeichenfolge, welcher Access den Standardwert Nein zuweist. Da sämtliche Felder aber auch leere Werte zulassen müssen, wird die Eigenschaft mit der folgenden Anweisung auf Ja eingestellt.<\/p>\n Nachdem alle Felder hinzugefügt wurden, speichert die folgende Anweisung den Tabellenentwurf:<\/p>\n Mit dem Ende der Prozedur TabellenAnlegen enthält die Datenbank die benötigten Tabellen mit allen aus der QIF-Datei gelesenen Feldern.<\/p>\n Daten in die generierten Tabellen schreiben<\/b><\/p>\n Den Abschluss des Importprozesses bildet die Prozedur InTabellenSchreiben. Sie liest die Daten aus der Tabelle tblDaten und schreibt sie in die generierten Tabellen. So werden beispielsweise die Kategorien in die Tabelle tblCat und die Buchungen in die Tabelle tblBank geschrieben.<\/p>\n Die Prozedur InTabellenSchreiben besteht im Kern aus drei verschachtelten Schleifen, die über die Tabelle tblDaten gesteuert werden. Beim öffnen des Recordsets ist die Angabe der Sortierreihenfolge ORDER BY tblDaten.Tabellenname, tblDaten.Satznummer, tblDaten.Feldname, tblDaten.Feldwert zwingend erforderlich. Nur so kann der Gruppenwechsel über die Felder Tabellenname und Satznummer einwandfrei funktionieren. Bei jedem Wechsel des Tabellennamens öffnet die Prozedur zunächst das Recordset rZieltabelle mit dem Namen der aktuellen Tabelle (also z. B. tblCat oder tblBank).<\/p>\n Solange der Tabellenname nicht gespeichert wird, können die gelesenen Daten dann an das aktuelle Recordset angefügt werden. Hier ist jedoch zu berücksichtigen, dass die gelesene Tabelle tblDaten einzelne Feldwerte enthält, die zunächst noch zu Datensätzen zusammengefasst werden müssen. Dies erfolgt über die innere Schleife Do While sSatznummer = rDaten!Satznummer.<\/p>\n Vor Beginn der inneren Schleife wird zunächst mit rZieltabelle.AddNew ein neuer Datensatz angelegt. Innerhalb der Schleife erhält ein Feld der Zieltabelle einen Wert pro Datensatz aus tblDaten. Nach dem Ende der Schleife wird der neu angelegte Datensatz dann mit rZieltabelle.Update geschrieben.<\/p>\n<\/p>\n Am Ende des gesamten Prozesses enthält die aktuelle Datenbank mehrere Tabellen mit sämtlichen aus der QIF-Datei gelesenen Daten.<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/2000_01\/aiu_4\/pic002.png\")
<\/p>\nOpen \"c:\\Quicken\\SSK.TXT\" For Binary As #1<\/pre>\n
![](\"..\/fileadmin\/_temp_\/2000_01\/aiu_4\/pic003.png\")
<\/p>\nQuickenImportieren (Me!txtDateiname)<\/pre>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n NMustermann<\/pre>\n
NMustermann\r\n^<\/pre>\n
NAbsetzung\r\nDAbsetzung für Abnutzung\r\nT\r\nE\r\n^\r\nNBar-Ausgaben\r\nE\r\n^<\/pre>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n ![](\"..\/fileadmin\/_temp_\/2000_01\/aiu_4\/pic004.png\")
<\/p>\nSELECT tblDaten.Tabellenname, tblDaten.Feldname FROM tblDaten GROUP BY tblDaten.Tabellenname, tblDaten.Feldname;<\/pre>\n
![](\"..\/fileadmin\/_temp_\/2000_01\/aiu_4\/pic005.png\")
<\/p>\nSub TabellenAnlegen()\r\n Dim rTabellen As Recordset\r\n Dim tdfNew As TableDef\r\n Set rTabellen = CurrentDb.OpenRecordset(\"SELECT tblDaten.Tabellenname, _\r\n tblDaten.Feldname \" & \"FROM tblDaten \" & _\r\n \"GROUP BY tblDaten.Tabellenname, tblDaten.Feldname;\")\r\n rTabellen.MoveFirst\r\n Dim sTabellenname As String\r\n Do While Not rTabellen.EOF\r\n sTabellenname = rTabellen!Tabellenname\r\n If TabelleVorhanden(sTabellenname) Then\r\n CurrentDb.TableDefs.Delete sTabellenname\r\n End If\r\n Set tdfNew = CurrentDb.CreateTableDef(sTabellenname)\r\n Do While sTabellenname = rTabellen!Tabellenname\r\n '' Neues Datenfeld hinzufügen\r\n tdfNew.Fields.Append tdfNew.CreateField(rTabellen!Feldname, dbText)\r\n '' Eingabe leerer Zeichenfolgen erlauben\r\n tdfNew.Fields(rTabellen!Feldname).AllowZeroLength = True\r\n rTabellen.MoveNext\r\n If rTabellen.EOF Then\r\n Exit Do\r\n End If\r\n Loop\r\n CurrentDb.TableDefs.Append tdfNew\r\n Set tdfNew = Nothing\r\n Loop\r\n rTabellen.Close\r\n CurrentDb.TableDefs.Refresh\r\nEnd Sub<\/pre>\n
tdfNew.Fields(rTabellen!Feldname)._\r\nAllowZeroLength = True<\/pre>\n
CurrentDb.TableDefs.Append tdfNew<\/pre>\n
Sub InTabellenSchreiben()\r\n Dim rDaten As Recordset\r\n Dim rZieltabelle As Recordset\r\n Dim sSatznummer As String\r\n '' Daten in der richtigen Sortierreihenfolge öffnen\r\n Set rDaten = CurrentDb.OpenRecordset(\"SELECT _ tblDaten.Tabellenname, tblDaten.Satznummer, _ tblDaten.Feldname, tblDaten.Feldwert \" & \"FROM tblDaten \" _ & \"ORDER BY tblDaten.Tabellenname, tblDaten.Satznummer, _ tblDaten.Feldname, tblDaten.Feldwert;\")\r\n rDaten.MoveFirst\r\n Dim sTabellenname As String\r\n Do While Not rDaten.EOF\r\n sTabellenname = rDaten!Tabellenname\r\n '' Solange die Tabelle nicht wechselt\r\n Set rZieltabelle = CurrentDb.OpenRecordset(sTabellenname)\r\n '' Die Felder einer Satznummer verarbeiten\r\n Do While sTabellenname = rDaten!Tabellenname\r\n sSatznummer = rDaten!Satznummer\r\n rZieltabelle.AddNew\r\n Do While sSatznummer = rDaten!Satznummer\r\n rZieltabelle(rDaten!Feldname).Value = _Nz(rDaten!Feldwert)\r\n rDaten.MoveNext\r\n If rDaten.EOF Then\r\n Exit Do\r\n End If\r\n Loop\r\n rZieltabelle.Update\r\n If rDaten.EOF Then\r\n Exit Do\r\n End If\r\n Loop\r\n rZieltabelle.Close\r\n Set rZieltabelle = Nothing\r\n Loop\r\n rDaten.Close\r\n Set rDaten = Nothing\r\nEnd Sub\r\n<\/pre>\n