Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile in neue Textdatei

Betrifft: Zeile in neue Textdatei von: Alexander H.
Geschrieben am: 06.09.2004 14:21:09

Hallo! Ich habe folgendes dringendes Problem:
Ich habe eine Excel-Tabelle mit 7.000 Artikeln bekommen. In der ersten Spalte steht die Artikelnummer und in der zweiten Spalte ein Text. Gibt es eine Möglichkeit oder ein Programm mit dem ich jeweils pro Zeile eine neue Textdatei erstellen lassen kann, wobei diese jeweils den Namen aus der ersten Spalte (Artikelnummer) bekommen soll? Habe schon das ganze Internet durchsucht. Normale Konvertierung der ganzen Datei hilft mir nicht weiter und per Hand sitzte ich nächstes Jahr immer noch dabei. Vielleicht kann mir ja jemand von euch helfen!? Sage schon einmal Danke im Vorraus! Euer Alex

  


Betrifft: AW: Zeile in neue Textdatei von: Detlew
Geschrieben am: 06.09.2004 14:40:55

Du willst also dann 7000 Textdateien haben? (Artikelnummer.txt)?


  


Betrifft: AW: Zeile in neue Textdatei von: Alexander
Geschrieben am: 07.09.2004 09:37:49

Ja, ich will nicht nur, ich muss diese einzelnen Textdatein haben, da sie in dieser Form dann wieder in ein System einzeln eingelesen werden müssen. Klingt kompliziert, ist aber von sehr großem Nutzen. Danke an alle, die auf diese Frage geantwortet haben!


  


Betrifft: AW: Zeile in neue Textdatei von: ypsilon
Geschrieben am: 06.09.2004 14:41:52

hi Alex,

Sub dateien_exportieren()
Dim sFile As String
Dim ff As Byte
ff = FreeFile
With ActiveSheet
For i = 1 To .Range("A65536").End(xlUp).Row
sFile = "C:\Temp\" & .Cells(i, 1) & ".txt"  'Pfad anpassen
Open sFile For Output As ff
Print #1, Cells(i, 2).Value
Close #ff
Next
End With
End Sub


cu Micha


 

Beiträge aus den Excel-Beispielen zum Thema "Zeile in neue Textdatei"