Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:00:48
Datum als Datum sehen
18.04.2024 14:36:42
Texte Zählen bzw. Anzahl zusammenzählen
18.04.2024 14:27:59
Datum wenn Betrag bei jährl. wechselnder Reduzierung 0 wird
18.04.2024 14:14:51
Summewenn letzter Eintrag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname von .txt Dateien in Datei schreiben

Dateiname von .txt Dateien in Datei schreiben
03.02.2017 22:50:42
.txt
Guten Abend zusammen.
Ich habe in einem Ordner sehr viele .txt Datein. Ich möchte nun mit vba in jede dieser .txt Datei dessen Dateiname (oder Änderungsdatum der Datei) vor jede Zeile der jeweiligen Textdatei schreiben.
Bsp.
Datei1.txt
Datei2.txt
Datei3.txt
...
Der Inhalt der dateien soll nach der Bearbeitung folgendermaßen aussehen:
Datei1:
Datei1 [Inhalt der Zeile 1 der Datei 1]
Datei1 [Inhalt der Zeile 2 der Datei 1]
Datei1 [Inhalt der Zeile 3 der Datei 1]
Datei1 [Inhalt der Zeile 4 der Datei 1]
....
Datei 2:
Datei2 [Inhalt der Zeile 1 der Datei 2]
Datei2 [Inhalt der Zeile 2 der Datei 2]
Datei2 [Inhalt der Zeile 3 der Datei 2]
Datei2 [Inhalt der Zeile 4 der Datei 2]
....
usw usw.
Die Dateinamen sind allerdings nicht durchnummeriert, sondern können ganz unterschiedlich sein.
Lässt sich sowas mit vba machen?
Danke für Hilfe!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname von .txt Dateien in Datei schreiben
04.02.2017 01:26:29
.txt
Hallo Michael,
probiers mal damit: 
Sub DateiDatumJedeZeile()
Dim fso As Object
Dim oFolder As Object
Dim oFile As Object
Dim strPath As String
Dim arr() As String
Dim i As Long
Dim z As Long
Set fso = CreateObject("scripting.filesystemobject")
strPath = "C:\" 'Ordner anpassen
Set oFolder = fso.getfolder(strPath)
For Each oFile In oFolder.Files
dateLM = oFile.DateLastModified
Set f = fso.OpenTextFile(oFile, ForReading)
Do Until f.AtEndOfStream
ReDim Preserve arr(i)
arr(i) = dateLM & " " & f.ReadLine
i = i + 1
Loop
f.Close
Set f = fso.OpenTextFile(oFile, ForWriting)
For z = LBound(arr) To UBound(arr)
f.WriteLine arr(z)
Next z
f.Close
Next oFile
End Sub
VG Anton
Anzeige

301 Forumthreads zu ähnlichen Themen

Menü in Excel von VB6.0 aus erzeugen??
VB6.0

Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
In der dll steht in einer Klasse:
Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
07.08.2008 20:23:28
Thread-ID: 1000091
13 Beiträge
Anzeige
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Indexierung von Steuerelementen in VBA
Steuerelementen

Hallo,
aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
Ein simples Beispiel zum verdeutlichen:
For i=1 to 10
label(i).text=i
next i
Die zehn Labels haben nun eine Besc...
01.09.2008 11:30:41
Thread-ID: 1006376
3 Beiträge
Anzeige
Formateierung von Textboxen in einer Userform
Textboxen

Hallo, nochmal 'ne warscheinlich blöde Frage:
Wie man Schriftart, Farbe etc. für Textboxen einstellt, bekomme ich hin. Aber
wie lege ich fest, dass es sich um das Format "Zahl" mit x Kommastellen oder
ähnliches handeln soll? - Hintergrund:
Auf einer Userform muß der Benutzer in...
16.09.2008 16:24:26
Thread-ID: 1010158
2 Beiträge
Index von Optionsbuttons
Optionsbuttons

Hallo.
Ich habe in einem TB über die Symbolleiste Formulare gaaanz viele Optionbuttons erzeugt.
Diese liefern bei Zellposition A1 eine fortlaufende Zahl.
Die Zahl verwende ich über einen Sverweis für eine Art "Menüsteuerung".
Nun möchte ich etwas zwischen 15 und 16 einfügen, u...
26.09.2008 11:56:05
Thread-ID: 1012571
2 Beiträge
Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Datumsübernahme von Exel in Serienbrief Word
Exel

Hallo Ihr Spezialisten,
ich habe ein kleines Problem mit der Übertragung von zwei Spalten, die Datumsangaben enthalten. Diese werden in einen Word Serienbrief übertragen und werfen dann leider nur noch 5-stellige Zahlen aus.
Wo ist das Problem? Wir haben die Formatierungen alle abgesche...
17.10.2008 12:37:30
Thread-ID: 1017121
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
3
3
2
1
1
1
4
4
2
7
6
3
3
6
1
15
8
2
3
2
4
7
8
6