Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1540to1544
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
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.txt-Dateien aus Namensliste in Ordner ablegen

.txt-Dateien aus Namensliste in Ordner ablegen
15.02.2017 13:28:31
Basti
Hallo Forum,
ich habe eine Excel-Liste (>100 Zeilen) mit Dateinamen.
Jetzt hätte ich gerne, dass jede Zeile als eigenständige Text-Datei, ohne Inhalt, in einem Ordner auf dem Laufwerk abgelegt wird.
Bsp: NameZeile1.txt; NameZeile2.txt NameZeile3.txt; NameZeile(n).txt
Diesen Code habe ich im Netz gefunden. Er stellt jeweils einen Ordner. Leider finde ich keine Lösung, die eine Txt-Datei oder sonstige erstellen kann. 
Sub OrdnerAnlegen()
Dim lngI As Long
' Ordner Ablage muss vorhanden sein !!!
For lngI = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MkDir "C:\Dokumente\" & ActiveSheet.Cells(lngI, 5).Text
Next lngI
End Sub

Danke für Eure Hilfe
Gruß
Basti

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
txt-Dateien aus Namensliste in Ordner ablegen
15.02.2017 13:44:39
Michael
Hi Basti,
am einfachsten ist es, Du erzeugst eine Textdatei händisch, z.B. Muster.txt
Die kopierst Du dann einfach in einer Schleife mit filecopy, siehe z.B. hier: https://www.herber.de/mailing/vb/html/vastmfilecopy.htm 
const Pfad1Datei1 = "MeinPfad\Muster.txt"
const Pfad2 = "Wohin\auch\immer\"
For lngI = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
filecopy Pfad1Datei1, Pfad2 & ActiveSheet.Cells(lngI, 5).Text
Next lngI
Schöne Grüße,
Michael
AW: txt-Dateien aus Namensliste in Ordner ablegen
15.02.2017 14:11:00
Basti
Servus Michael,
Danke für deine schnelle Hilfe.
Deine Code funktioniert, kopiert aber nicht den Dateityp (.txt, docx, xlsx etc.) sondern erstellt den Typ: .file. Den kann man zwar ändern jedoch wäre es besser, wenn das Makro den Dateityp gleich übernimmt.
Hast Du da eine Idee?
Gruß
Basti
Anzeige
AW: txt-Dateien aus Namensliste in Ordner ablegen
15.02.2017 14:18:27
Michael
Hi,
was heißt den Dateityp? Es ging doch um (leere) TEXT-Dateien: als eigenständige Text-Datei, ohne Inhalt
Ach so, evtl. mußt Du noch ein ".txt" anhängen:
filecopy Pfad1Datei1, Pfad2 & ActiveSheet.Cells(lngI, 5).Text & ".txt"
Gruß,
M.
AW: txt-Dateien aus Namensliste in Ordner ablegen
17.02.2017 09:44:37
Basti
Servus Michael,
bin schon fast am verzweifeln. Seit Gestern erhalte ich jetzt immer Bad file name or number (Error 52). Habe per Windowshilfe alle Sonderzeichen aus dem Dateinamen verbannt und auch die 255 Zeichen eingehalten. Sogar auf dem Desktop kommt der Fehler.
Wenn ich den Code Debugge, dann wird die Zeile, die die Dateibennung vornimmt markiert.
Sub DateiAnlegen()
Dim lngI As Long
Const Pfad1Datei1 = "C:\Users\Name\Desktop\New Text Document.txt\"
Const Pfad2 = "C:\Users\Name\Desktop\"
For lngI = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
FileCopy Pfad1Datei1, Pfad2 & ActiveSheet.Cells(lngI, 5).Text & ".txt"
Next lngI
End Sub
Gruß
Sebastian
Anzeige
txt-Dateien aus Namensliste in Ordner ablegen
17.02.2017 11:37:53
Michael
Hi Sebastian,
das wundert mich nicht: der \ am Ende von Pfad1Datei1 muß weg! Es handelt sich schließlich um eine Datei.
Gruß,
M.
AW: txt-Dateien aus Namensliste in Ordner ablegen
17.02.2017 12:53:21
Basti
Ich sag jetzt mal lieber nichts ;-) Außer natürlich ein sehr herzliches Dankeschön !
Gruß
Basti
hit shappens oder so - Gruß owT
17.02.2017 14:45:24
Michael

307 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 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
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17