Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere Textfiles aus Tabelle generieren



Thema: mehrere Textfiles aus Tabelle generieren

Betrifft: mehrere Textfiles aus Tabelle generieren
von: Andreas
Geschrieben am: 29.09.2002 - 17:09:26

Hallo zusammen,

ich muss viele einzeilige Textfiles mit Inhalt erstellen, die in einer Tabelle nach folgendem Schema sortiert sind (sein können):
SpalteA___________SpalteB
Inhalt File1_________Name(Pfad) File1
Inhalt File2_________Name(Pfad) File2 usw.

nachdem ich zu meinem Problem hier mal rumgesucht habe wurde ich nur hier http://www.herber.de/forum/archiv/156to160/t158791.htm fündig. Das hilft mir aber nicht so richtig weiter.
Hätte dazu jemand vielleicht einen Lösungsvorschlag?

Besten Dank im Voraus
Gruss Andreas



  

Re: mehrere Textfiles aus Tabelle generieren
von: Heinz A. Wankmüller
Geschrieben am: 29.09.2002 - 18:27:33

Hallo Andreas,

folgender Code, wenn immer nur der Inhalt einer Zelle aus der Spalte A in eine Datei, deren Pfad in der Spalte B daneben steht, gspeichert werden soll:


Sub textSpeichern()
    Dim Dateinummer, TB As Worksheet, i%, exportfile$
    Set TB = ThisWorkbook.Worksheets("Tabelle1")
    For i = 1 To TB.Cells(Rows.Count, 1).End(xlUp).Row
        Dateinummer = FreeFile
        exportfile = TB.Cells(i, 2).Value
        Open exportfile For Output As #Dateinummer
        Print #Dateinummer, TB.Cells(i, 1).Value
        Close #Dateinummer
    Next
End Sub

Gruss
Heinz

  

Re: mehrere Textfiles aus Tabelle generieren
von: Andreas
Geschrieben am: 29.09.2002 - 19:00:55

Hallo Heinz,

vielen Dank für Deine superschnelle Hilfe, es funktioniert einwandfrei.

Nochmals Danke
Gruss
Andreas