Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
automatischer Datenimport von mehreren Textdateien
zurück: Unicounter Format weiter: Anzeigen der Daten einer vorhandenen Tabelle in einer Abfrag Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
25. Nov 2004, 16:04
Rufname:

automatischer Datenimport von mehreren Textdateien - automatischer Datenimport von mehreren Textdateien

Nach oben
       

Hallo Forum,

ich habe folgendes Problem,
ich möchte den Inhalt mehrerer *.txt Dateien in eine Access Tabelle automatisiert ablaufen lassen

bisher habe ich per Makro eine Verknüpfung zu einer Datei hinbekommen, dann die Import-Abfrage öffnen lassen und anschließend die Verknüpfung löschen lassen ...

nun gut für eine Datei schon ganz nett, aber es sind 93 Dateien ?!

wie kann ich das automatisch für einen Ordner durchlaufen lassen,
habe keine Funktion im Makro gefunden, gibt es da überhaupt eine Möglichkeit, oder muss man das irgendwie mit nem Modul lösen ...

Habe so Grundkentnisse in VBA aber dann hört´s auch schon auf ...

vielen Dank für Eure Hilfe im vorraus...

Martin
MMario
Microsoft Master


Verfasst am:
26. Nov 2004, 02:30
Rufname:
Wohnort: Oberösterreich


AW: automatischer Datenimport von mehreren Textdateien - AW: automatischer Datenimport von mehreren Textdateien

Nach oben
       

Code:
    Dim FName As String, Path As String, I As Long
 
    Path = "C:\Temp\"FName = Dir(Path & "*.txt")
    Do While FName <> "" 
        I = I+1  DoCmd.TransferText acImportDelim, , "MeineTabelle" & I, Path & FName
        FName = Dir()
    Loop
Very Happy
_________________
Word, Excel, Powerpoint, Outlook, Access, VBA, Visual Basic, Frontpage...

und viele andere Programme (RPG, Lotus Notes,...)
Gast



Verfasst am:
29. Nov 2004, 12:46
Rufname:

Danke das hat ja schonmal super geklappt !!! - Danke das hat ja schonmal super geklappt !!!

Nach oben
       

nach ein paar kleinen Änderungen importiert er mir nun schonmal die Textdateien in eine Tabelle ...
Code:
Sub Textimport()
    Dim FName As String, Path As String, I As Long
 
    Path = "E:\FMSProtokolle\"
    FName = Dir(Path & "*.txt")
    Do While FName <> ""
        I = I + 1
        DoCmd.TransferText acImportDelim, , "MeineTabelle", Path & FName
        FName = Dir()
    Loop
End Sub

aber ich kann leider keine Importspezifikation festlegen, wegen den Spalten die er beim Import erstellen soll, oder geht´s doch ???

auf jeden Fall vielen Dank für die Hilfe ...

ciao Martin
MMario
Microsoft Master


Verfasst am:
29. Nov 2004, 13:11
Rufname:
Wohnort: Oberösterreich

Änderungen - Änderungen

Nach oben
       

kannst du mir einen kurzen teil von deinen *.txt

schicken das ich mir das mal aunschauen kann ? Smile

_________________
Word, Excel, Powerpoint, Outlook, Access, VBA, Visual Basic, Frontpage...

und viele andere Programme (RPG, Lotus Notes,...)
Gast



Verfasst am:
29. Nov 2004, 13:37
Rufname:

TXT-Datei Ausschnitt - TXT-Datei Ausschnitt

Nach oben
       

Hier der Ausschnitt

(eine Zeile)
02.06.04 / 08:58:14 1751881 2 1751881 *-9750*R:KTW*Oberhavel*Marwitzer Str. 18*Sta. 7*,

ich habe wie gesagt den Import schon per Makro hinbekommen,
jedoch hat diese Spezifikation leider den unschönen Namen
"04092004 Verknüpfungsspezifikation" bekommen, und ich glaube so kann ich den nicht in das Modul intergrieren ....

Denn ich habe es schon damit versucht:
Code:
Sub Textimport()
    Dim FName As String, Path As String, I As Long
 
    Path = "E:\FMSProtokolle\"
    FName = Dir(Path & "*.txt")
    Do While FName <> ""
        DoCmd.TransferText acImportDelim, "04092004 Verknüpfungsspezifikation", "MeineTabelle", Path & FName
        FName = Dir()
    Loop
End Sub

vielleicht bin ich auch nur nicht auf dem richtigen Weg ???

ciao Martin
MMario
Microsoft Master


Verfasst am:
29. Nov 2004, 14:42
Rufname:
Wohnort: Oberösterreich

Text import - Text import

Nach oben
       

Confused

Irgend wie versteh ich dich nicht

Razz

Schickst ma auf meine EMail: MM_Super@gmx.net

1.) 4- 10 zeilen von deiner *.txt komplett in voller Länge
2.) Wohin du diese Daten hin willst (Spezifikation)
3.) evtl. eine Kopie deiner *.mdb(Makro)

falls du sonst noch wünsche hast einfach kurz zusammenschreiben u. mitschicken Razz

_________________
Word, Excel, Powerpoint, Outlook, Access, VBA, Visual Basic, Frontpage...

und viele andere Programme (RPG, Lotus Notes,...)
Gast



Verfasst am:
01. Dez 2004, 14:44
Rufname:

und hier nun das Ergebnis: - und hier nun das Ergebnis:

Nach oben
       

Gast am 29. Nov 2004 um 14:29 hat folgendes geschrieben:
habe Dir die Dateien zugesandt ...

danke und ciao Martin

Dank der wirklich SUPER-Hilfe von 'MMario' gab´s folgende Lösung, die ich dem Forum nicht enthalten möchte, soll es Anderen auch eine Hilfe sein ... :
Code:
Sub Textimport()
    DoCmd.SetWarnings False
    Dim FName As String, Path As String, I As Long
 
    Path = "C:\Temp\"
    FName = Dir(Path & "*.txt")
    adress = Path & FName
    Do While FName <> ""
        DoCmd.TransferText 1, "Verknüpfungsspezifikation", "Tabelle", adress, False, ""
        FName = Dir()
        adress = Path & FName
    Loop
End Sub

an dieser Stelle nochmal besten Dank für die schnelle Hilfe !!!

ciao Martin
lothi
c#, .Net


Verfasst am:
02. Dez 2004, 13:24
Rufname:
Wohnort: Birgisch


AW: automatischer Datenimport von mehreren Textdateien - AW: automatischer Datenimport von mehreren Textdateien

Nach oben
       

Hallo Martin

Vielen Dank das du hier ein Feedback gegeben hast.
Razz
Nur so können andere (auch ich) von diesem Forum provitieren. Wink

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Summieren von Datensätzen aus mehreren Tabellen 1 ripper_2001 789 13. Sep 2006, 11:23
rita2008 Summieren von Datensätzen aus mehreren Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage Min Wert aus mehreren Datenfeldern 1 altissa 792 22. Aug 2006, 13:36
Gast Abfrage Min Wert aus mehreren Datenfeldern
Keine neuen Beiträge Access Tabellen & Abfragen: Datenimport aus alten Datenbestand 1 robertk 724 04. Jul 2006, 16:42
stpimi Datenimport aus alten Datenbestand
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage aus mehreren Feldern 1 plapylus 810 25. Apr 2006, 19:56
jens05 Parameterabfrage aus mehreren Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Datenimport aus Access 3 bluestar 696 13. März 2006, 15:06
rita2008 Datenimport aus Access
Keine neuen Beiträge Access Tabellen & Abfragen: Formulargesteuerte Abfrage mit mehreren Textfeldern 3 Gast 1321 11. Jan 2006, 20:37
jens05 Formulargesteuerte Abfrage mit mehreren Textfeldern
Keine neuen Beiträge Access Tabellen & Abfragen: Schreibschutz bei mehreren 1:n verknüpfungen 2 matze0815 811 23. Okt 2005, 21:25
matze0815 Schreibschutz bei mehreren 1:n verknüpfungen
Keine neuen Beiträge Access Tabellen & Abfragen: Problem bei Abfrage mit mehreren Filter-Kriterien 11 Mr.Wilson 694 17. Aug 2005, 12:31
Mr.Wilson Problem bei Abfrage mit mehreren Filter-Kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Formular zu mehreren Tabellen gleichzeitig 5 Friedel 1238 22. Mai 2005, 11:06
jens05 Abfrage von Formular zu mehreren Tabellen gleichzeitig
Keine neuen Beiträge Access Tabellen & Abfragen: Excel Datenimport 3 mino 985 23. März 2005, 20:34
chris87 Excel Datenimport
Keine neuen Beiträge Access Tabellen & Abfragen: SQL-Abfrage mit Kriterien aus mehreren Feldern einer Spalte! 6 Casius 1652 31. Jan 2005, 00:47
Casius SQL-Abfrage mit Kriterien aus mehreren Feldern einer Spalte!
Keine neuen Beiträge Access Tabellen & Abfragen: Datenimport aus Excel 2 Ulmi 682 19. Jan 2005, 16:41
Ulmi Datenimport aus Excel
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA