Benutzung auf eigene Gefahr ! |
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 |
|
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. |