Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: MonacoTJ

MonacoTJ (Level 1) - Jetzt verbinden

29.03.2011 um 09:41 Uhr, 8380 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
VB for Applications
Import Textdatei von Dateiname aus Zelle
Frage von grasihuepferVB for Applications2 Kommentare

Hi Leute, Ich möchte eine Textdatei importieren. Und zwar soll der Pfad des Datei Ortes in einer bestimmten Zelle ...

Batch & Shell
Dateiname in Textdatei via Batch
gelöst Frage von plutowitschBatch & Shell4 Kommentare

Hallihallo, mein Problem ist wahrscheinlich für den Ein oder Anderen recht trivial, für mich als Anfänger jedoch schwieriger als ...

Microsoft Office

Importierte Excel-Tabelle nach dem Import automatisch anpassen

Frage von RedBullBF2Microsoft Office1 Kommentar

Hallo zusammen, ich habe hier eine Excel-Tabelle in der in einer Spalte 1 das Datumsformat wie folgt angezeigt wird: ...

Datenbanken

Access Import funktioniert nicht mehr

Frage von FISI-Neuling92Datenbanken2 Kommentare

Hallo, seit gestern funktioniert bei uns der Import bei Access nicht mehr (der Export funktioniert). Hier mal ein Bildchen ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 1 TagWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 1 TagSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 2 TagenDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 2 TagenSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
DSL, VDSL
Mindestgeschwindigkeiten DSL Telekom
Frage von justlukasDSL, VDSL13 Kommentare

Hallo zusammen, Seit diesem Jahr habe ich Verständnisprobleme mit dem Verhalten der Telekom. Wir haben seit einem Jahr VDSL ...

Switche und Hubs
LANCOM-Switch: Probleme (no link) mit SFP-Modulen?
Frage von THETOBSwitche und Hubs10 Kommentare

Hi zusammen, ich habe folgendes Problem: Und zwar habe ich an einem Standort drei Switche verbaut - LANCOM GS-2326P+, ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall10 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)8 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...