Microsoft Excel

Herbers Excel/VBA-Archiv

Mehrere *.txt aus excelzeilen erstellen

Betrifft: Mehrere *.txt aus excelzeilen erstellen von: Wolfgang
Geschrieben am: 30.10.2020 17:25:54

Hallo ich möchte per vba mittels Button-Event mehrere Text-Dateien erstellen (wünschenswert wäre variable dateiendung)

in Zelle A1 soll der Dateipfad stehen (soll variabel sein)

Ab Zeile 3 sollen in spalte A die Dateinamen stehen, in Spalte B wäre wünschenswert die Dateiendung (z.B. .txt oder .rtf oder .doc ...)

Die Dateien müssen keinen Inhalt haben, es sollen nur die Dateien mit dem gewünschten Dateinamen in das in Zelle A1 eingegebene Verzeichnis erstellt werden.

Hoffe jemand kann mir einen einfachen VBA code dafür geben.

Gruß

Betrifft: AW: Mehrere *.txt aus excelzeilen erstellen
von: ChrisL
Geschrieben am: 30.10.2020 18:09:16

Hi Wolfgang

Sachen gibt's...

https://www.herber.de/mailing/400_leere_Textdateien_anlegen.htm

mit zwei kleinen Anpassungen:
   For iCounter = 3 To Cells(Rows.Count, 1).End(xlUp).Row
      sFile = Range("A1") & Cells(iCounter, 1) & "." & Cells(iCounter, 2)
cu
Chris

Betrifft: AW: Mehrere *.txt aus excelzeilen erstellen
von: Wolfgang
Geschrieben am: 30.10.2020 19:26:48

Hallo Chris

Danke für die prompte Antwort, funktioniert prima!

Beiträge aus dem Excel-Forum zum Thema "Mehrere *.txt aus excelzeilen erstellen"