Excel Tabelleninhalt in Dateien umwandeln

Gast #2243800
Lesenswert?

Hallo zusammen
Hat jemand eine Idee wie man aus einer Excel-Tabelle die einzelne 
Zelleninhalte in einem Ordner als Dateien ablegt (erzeugt)?

z.B.:
In der Tabelle steht:
Spalte A, Zeile 1 --> Apfel
Spalte A, Zeile 2 --> Birne
...

In Ordner "Früchte" werden folgende Dateien erstellt:
Apfel.txt
Birne.jpg
...

Danke schon voraus
John
Gast #2243814
Lesenswert?

Genau, irgendwie so:
1
Sub DateienErzeugen()
2
    For i = 1 To 2 Step 1
3
        dateiname = "c:\users\benutzer\desktop\testordner\" & Worksheets(1).Cells(i, 1).Value
4
        
5
        fnum = FreeFile()
6
        
7
        Open dateiname For Output As fnum
8
        Close fnum
9
    Next i
10
End Sub

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren