Importieren von Tabellen in fremden Formaten

Sprache / Programm: Access ab Version 97

Beschreibung

Diese Funktion hilft beim Massen-Import von vielen kleinen Tabellen in in ACCESS. Dabei dürfen die Tabellen ein beliebiges, von Access unterstütztes Format haben.

VBA-Quelltext

Public Function ImportierenVonTabellen(QuellPfad As String, QuellFormat As String)
Dim Datei As String
ImportierenVonTabellen = 0 ' Zähler zurücksetzen
On Error Resume Next
Datei = Dir(QuellPfad)
While Datei <> ""
DoCmd.TransferDatabase acImport, QuellFormat, Pfad(QuellPfad), _
acTable, Datei, DateiName(Datei, True), False
Datei = Dir()
ImportierenVonTabellen = ImportierenVonTabellen + 1
Wend
End Function

Argumente der Funktion/Prozedur

QuellPfad: Verzeichnis, in welchem sich die fremden Tabellen befinden. Es werden grundsätzlich alle Dateien importiert, daher sollte man entweder den Inhalt des QuellPfades vorher bereinigen oder den Pfad mit einem Platzhalter angeben, z.B. C:\Temp\*.xls um nur Tabellen eines bestimmten Typs zu importieren.
Quellformat: Format, in welchem die Tabellen vorliegen als String. Die zulässigen Datenbankformate werden im Makrofenster in der Liste des Aktionsarguments 'Datenbankformat' der Aktion 'TransferDatenbank' angezeigt. Einige Argumente sind "dBase III", "dBase IV", "dBase 5.0", "FoxPro 2.0", "FoxPro 2.5", "Paradox 3.X", "Jet 2.x", "ODBC"

Rückgabewert

Es wird die Anzahl der importierten Tabellen zurückgegebenen (es kann sein, daß nicht alle Tabellen importiert werden können).

Hinweis

Diese Funktion benötigt zwei weitere Funktionen: 'Pfad' und 'Dateiname'.

Anwendungsgebiete, Fehler und Warnungen

Das Programm bricht nicht ab, falls eine Tabelle nicht importiert werden konnte. Gründe für Importversagen können an der Tabelle liegen ('Nicht erkennbares Datenbankformat') oder am falsch spezifizierten Typ. Probeweise für eine einzelne Tabelle ein Importmakro mit der Makrofunktion Transfer-Datenbank erstellen und mit 'Speichern unter / Exportieren' als VBA-Makro exportieren.