Office: (Office 365) Ini-Dateien per VBA erzeugen

Liebe Community,
ich suche nach einer Lösung für folgende Fragestellung: Ich möchte aus einer Liste für jede Zelle einer Spalte eine neue ini-Datei erzeugen, in die der Inhalt der jeweiligen Zelle geschrieben wird. Dafür habe ich an anderer Stelle bereits ein Stück Code gefunden, mit dem ich eine Datei für eine Zelle erzeugen kann:

Code:

Sub IniErstellen()

    Dim Fso
    Dim fsoDatei
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set fsoDatei = Fso.OpenTextFile("C:\Users\GFE\Downloads\Test\adjusttime.ini", 8, True)
    fsoDatei.Write Range("V2")
    fsoDatei.Close
    Set Fso = Nothing
    Set fsoDatei = Nothing

End Sub

Allerdings brauche ich jetzt sowas wie eine Schleife, die die komplette Spalte (bis V447) durchläuft und für jede Zelle eine neue Datei erstellt. Dabei muss logischerweise der Inhalt der aktuellen Zelle verwendet werden, aber auch der Dateiname muss variabel sein, damit die jeweilige Datei im nächsten Durchlauf nicht überschrieben wird.
Ich hoffe, mir kann jemand weiterhelfen. Vielen Dank vorab!

 

Hallo f,

die einzelnen Zellen bekommst Du so eingelesen:

Code:

Sub IniErstellen()

    Dim Fso
    Dim fsoDatei
    Dim intZeile As Integer
    
    Set Fso = CreateObject("Scripting.FileSystemObject")
    For intZeile = 2 To 447
        Set fsoDatei = Fso.OpenTextFile("C:\Users\GFE\Downloads\Test\adjusttime.ini", 8, True)
        fsoDatei.Write Cells(intZeile, 22)
        fsoDatei.Close
    Next intZeile
    Set Fso = Nothing
    Set fsoDatei = Nothing

End Sub

Bleibt die Frage, wie Du die einzelnen Dateien benennen willst, damit sie sicher nicht überschrieben werden und auch zielsicher weidergefunden werden können.

Gruß,
Lutz

 

Lieber Lutz,
vielen Dank für die sehr schnelle und freundliche Antwort. Das Skript funktioniert soweit. Scheinbar werden die Dateien auch nicht überschrieben, sondern alle Zellen werden untereinander in eine Datei geschrieben. Das ist aber auch nicht Sinn der Sache.
Für die Namen der Dateien würde ich einen anderen Parameter nehmen, der in Spalte F steht. Ich habe daher folgendes versucht:

Code:

Sub IniErstellen()

    Dim Fso
    Dim fsoDatei
    Dim intZeile As Integer
    
    Set Fso = CreateObject("Scripting.FileSystemObject")
    For intZeile = 2 To 447
        Set fsoDatei = Fso.OpenTextFile("C:\Users\GFE\Downloads\Test\adjusttime-" & Cells(intZeile, 6) & ".ini", 8, True)
        fsoDatei.Write Cells(intZeile, 22)
        fsoDatei.Close
    Next intZeile
    Set Fso = Nothing
    Set fsoDatei = Nothing

End Sub

Seltsamerweise werden 113 Dateien korrekt erzeugt und dann kommt es zum Laufzeitfehler 76. Weißt du, woran das liegen könnte?
Vielen Dank!

 

Hallo f,

ich kenne Deine Daten nicht, daher weiß ich auch nicht, was der Fehler sein könnte. Auch deine beiden Screenshots geben nicht viel her.
Was steht denn in den ersten 113 Zeilen und was in der 114.?

Gruß,
Lutz

 

Lieber Lutz,
ich habe das Problem gefunden. In Zeile 114 hat der Dateiname ein "/" enthalten, daher kam der Fehler.
Jetzt funktioniert soweit alles, wie es soll. Vielen Dank!