Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Import von Textdateien in Access - Wie kann der Dateiname mit importiert werden

Frage Microsoft Microsoft Office

Mitglied: MonacoTJ

MonacoTJ (Level 1) - Jetzt verbinden

29.03.2011 um 09:41 Uhr, 7779 Aufrufe, 2 Kommentare

Hallo,
ich importiere über TransferText mehrere Textdateien aus Unterverzeichnissen. Das klappt auch.
Jetzt möchte ich den Dateinamen mitimportieren.

mit folgendem VBA-Script funktioniert der Import der verschiedenen Textdateien.

Sub ImportBBLogs()

Const SuchVerzeichnis = "C:\Verzeichnis"
Const InUnterverzeichnissen = True
Const DatTyp = "*.txt"

Dim i As Long

With Application.FileSearch
.LookIn = SuchVerzeichnis
.NewSearch
.SearchSubFolders = InUnterverzeichnissen
.FileName = DatTyp
.Execute
For i = 1 To .FoundFiles.Count
'Debug.Print .FoundFiles(i)
MsgBox .FoundFiles(i)
DoCmd.TransferText acImportFixed, "myspec", "Tabelle", .FoundFiles(i)
Next i
End With

End Sub

Zusätzlich möchte ich gerne den Dateinamen beim Import mit in die Tabelle schreiben. Dafür gibt es eine eigene Spalte in der Tabelle.
Wie kann ich das bewerkstelligen?

Ich würde auch gerne in eine zustäzliche Tabelle wegschreiben wollen, wann der Import gelaufen ist. Wie wär das möglich?

Danke schonmal für die Hilfe.
Mitglied: 83928
29.03.2011 um 11:27 Uhr
Hi,

wenn Du diese Zeile in Deine Schleife einbaust, wird Dateiname und Datum in eine Tabelle namens "tblLog" (mit den Feldern Dateiname und Datum) geschrieben.

01.
CurrentDb.Execute "INSERTinto tblLog ([Dateiname],[Datum]) VALUES ('" & .FoundFiles(i) & "'," & Str(CDbl(Now)) & ")"
Bitte warten ..
Mitglied: MonacoTJ
29.03.2011 um 13:14 Uhr
Hi,

danke, des hat schonmal super geklappt und hat mir auch schon geholfen.
Jetzt würd ich nur noch gern zusätzlich den Dateinamen mit in der Tabelle haben, in der die Inhalte aus der Textdatei stehen.

Bsp:
Feld1 Feld2 Feld3 Dateiname
du er sie es.txt
dein sein ihr mein.txt

Habs mal so getestet, aber der Debugger meldet, das der Dateiname "|" zulang ist
DoCmd.TransferText acImportFixed, "myspec", "Tabelle", .FoundFiles(i) & "INSERT INTO Tabelle ([Dateiname]) VALUES ('" & .FoundFiles(i) & ")"
Bitte warten ..
Ähnliche Inhalte
Datenbanken
Automatisierter täglicher Import einer Access Datenbank in SQL (5)

Frage von RichterS zum Thema Datenbanken ...

VB for Applications
Import Textdatei von Dateiname aus Zelle (2)

Frage von grasihuepfer zum Thema VB for Applications ...

Datenbanken
MS Access: Mehrere Zeilen in einer Zelle zusammenfassen (2)

Frage von User1000 zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (21)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (20)

Frage von oel-auge zum Thema Router & Routing ...

Windows Userverwaltung
Windows Freigabe: Zugriff auf alle Ordner trotz Sicherheitseinstellungen (18)

Frage von Pandreas zum Thema Windows Userverwaltung ...

Exchange Server
gelöst MS Exchange 2016 - Basicconfig Fragen (16)

Frage von maddig zum Thema Exchange Server ...