Re: Alle txt-Dateien auf Verzeichnis in Access importieren

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

Hallo Markus

"Markus _ Klein" <markusklein@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im
Newsbeitrag news:eIvR4EmVFHA.2692@xxxxxxxxxxxxxxxxxxxxxxx
> Hallo zusammen,
> es handelt sich um Daten in Form einer Datenbank in Form
>
> Artikelnr Menge Kundennummer Datum
>
> Ach ja, jede Tabelle umfaßt rund 2500.000 Zeilen pro Datei
>
>
> Gruß Markus

Du kannst dafür folgende 2 Funktionen verwenden:

Public Function einlesen()
Dim fs, f, f1, fc
Const Pfad = "C:\Import\"
Const Tabname = "tblImport" 'Evtl ändern
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Pfad)
Set fc = f.Files
For Each f1 In fc
If LCase$(Right$(f1.Name, 4)) = ".txt" Then
txtImport Pfad & f1.Name, Tabname
End If
Next
MsgBox "Datenimport beendet."
End Function

Diese Funktion liest alle Dateien aus dem Verzeichnis C:\Import ein.
Anschließend wird bei jeder Datei geprüft, ob sie mit .txt endet.
Trifft das zu wird die 2. Funktion mit den erforderlichen Parametern
aufgerufen. Hier ist zu beachten das noch 2 weitere Argumente angegeben
werden können.
Dies wären neben den angegebenen Argumenten Dateiname und Tabellenname noch
Zeile1Feldname. Hier mußt du True angeben, wenn die Textdateien in der
ersdten Zeile Feldnamen enthalten, ansonsten False (wird auch als Standard
genommen. Als weiteres Argument kannst du angeben, ob die Datenfelder durch
ein Trennzeichen getrennt sind, oder eine feste Breite haben (Standard ist
Trennzeichen).
Du kannst aber auch die letzten beiden Argumente weglassen, wenn bei beiden
Standard verwendet werden soll. Wenn du allerdings das 4. angeben willst,
mußt du auch das 3. angeben.

Aufgerufen wird dann diese Funktion:

Private Function txtImport(txtPfadUndDateiname As String, _
txtTabellenname As String, Optional Zeile1Feldnamen As _
Boolean = False, Optional Methode As Integer = acImportDelim)
DoCmd.TransferText Methode, , txtTabellenname, _
txtPfadUndDateiname, Zeile1Feldnamen
End Function

Diese Funktion importiert dann die angegebene Textdatei und fügt die Daten
an die angegebene Tabelle an, bzw erstellt die Tabelle, fasls sie nicht
existiert.

Hoffe das hilft dir weiter
Gruß
Uli


.

Relevant Pages

  • Re: Hochwasser SituationsBericht
    ... die Archivdaten der anderen Tabelle zu "Rate" ziehen und dort die ... Function SucheZeile ... "Anfangscode" gepostet der aktuelle Wert der Spalten A:C ... In der Spalte D soll dann Datum und Uhrzeit des zur Abfrage ...
    (microsoft.public.de.excel)
  • Re: Seltsames Verhalten eines Scriptes in verschiedenen Browsern
    ... Tabelle, Darin enthalten ist ein Eingabefeld, welches beim Absenden ... Soweit OK (abgesehen von den fe lenden Feature-Tests). ... DeleteLink.onclick = function() ...
    (de.comp.lang.javascript)
  • Re: Name einer Tabelle ermitteln
    ... > - Kann ich ermitteln, auf welcher Tabelle das ausgewählte Element steh? ... Public Function MaxSheetName ... In einer Zelle verwende nun folgende Formel: ...
    (microsoft.public.de.excel)
  • Re: Record Tracking
    ... > Das Sicherste wär's. ... > Du kannst aber auch die Funktionen direkt in der Tabelle aufrufen. ... Unknown function 'CurrentUser' in validation expression or default value on ...
    (microsoft.public.de.access)
  • Re: Problem mit Parametern
    ... Parameter bzw. Argumente uebergeben, unabhaengig davon, wieviele formale Parameter die Funktion hat. ... function f ... aufrufst, dann hat arg1 waehrend der Ausfuehrung von f den Wert undefined. ...
    (de.comp.lang.javascript)