Office: ini-File aus Excel mit Excel generieren (Leerstellen entf.)

Hallo Gemeinde,

ich habe eine Excel-Tabelle erstellt, mit der ich für die konfiguration eines Programmes viele verschiedene Optionen in einer relativ großen Tabelle per Dropdown-Liste auswählen kann. Anhand der getroffenen Optionen wird auf einem weiterem Tabellenblatt in verschiedenen Zellen der passende Wert geschrieben, teilweise berechnet, oder auch übernommen. So möchte ich dann, das auf einfache Art und Weise ein, je nach den gewählten Optionen, korrektes ini-File ausgespuckt bekommen.
Als Beispiel:
Wert in der Zelle A10: openFile=
Wert in der Zelle B10: 1
Wert in der Zelle C10: ;
Wert in der Zelle D10: C:/temp

Die Zellen werden also je nach Auswahl der gewählten Option mit den jeweiligen Werten gefüllt.

Nun mein Problem:
Wenn ich nun das Tabellenblatt abspeichern möchte, speichert er mir das leider mit vielen Leerstellen ab. Damit kann aber das Programm, welches das ini-Files benötigt, nichts anfangen. Also wenn ich das Tabellenblatt als txt abspeichere, fügt Excel so viele Leerstellen ein, wie die Zelle breit ist.

Nach obigem Beispiel sieht dann meine Zeile in etwa so aus:
openfile= 1 ; C:/temp

So sollte sie aber aussehen:
openfile=1;C:\temp

Kennt hier jemand eine Möglichkeit hier das Tabellenblatt so aus Excel zu bekommen, dass die vielen Leerstellen weg sind? Ab idealsten wäre natürlich ein direktes Speichern als ini-File (z.B. abc.ini) vielleicht sogar mit einem Klick auf ein Botton.

Hilllfeee Wink

Tom

 

Hi Tom,

eine Möglichkeit wäre mit dem folgenden Code:

Code:

Sub IniErstellen()
    Dim Fso
    Dim fsoDatei
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set fsoDatei = Fso.OpenTextFile("C:\Test\abc.ini", 8, True)
    fsoDatei.Write Range("A10") & Range("B10") & Range("C10") & Range("D10")
    fsoDatei.Close
    Set Fso = Nothing
    Set fsoDatei = Nothing
End Sub

Bis später,
Karin

 

Besten Dank für die Antwort.

Das funktioniert klasse. Wie mache ich das nun wenn ich mehrere Zeilen auf einen Klaps generieren will?


Sub IniErstellen()
Dim Fso
Dim fsoDatei
Set Fso = CreateObject("Scripting.FileSystemObject")
Set fsoDatei = FspenTextFile("C:\Test\abc.ini", 8, True)
fsoDatei.Write Range("A10") & Range("B10") & Range("C10") & Range("D10")
fsoDatei.Close
Set Fso = Nothing
Set fsoDatei = Nothing
End Sub

Hier nun einfach unter der Zeile "fsoDatei.Write Range("A10") & ...." eine weitere Zeile einfügen, z.B. so: fsoDatei.Write Range("B10") & R...
geht leider nicht. Gibt es da eine Möglichkeit?

Würde es gerne so haben, z.B.:
openfile=1;C:\temp
SetConfig=0
Color=255
usw.

Wenn mir dass noch einer erklären kann, dann ist es perfekt!

Danke

 

Hi,

Code:

Sub IniErstellen()
    Dim Fso
    Dim fsoDatei
    Dim loZeile As Long
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set fsoDatei = Fso.OpenTextFile("C:\Test\abc.ini", 8, True)
    For loZeile = 1 To 10 '<== Zeilen anpassen
       fsoDatei.Write Cells(loZeile, 1) & Cells(loZeile, 2) & Cells(loZeile, 3) & Cells(loZeile, 4) & vbCrLf
    Next
    fsoDatei.Close
    Set Fso = Nothing
    Set fsoDatei = Nothing
End Sub

Günstiger ist es, wenn man die Frage gleich von Beginn an komplett stellt.

Bis später,
Karin

 

Ich bedanke mich für Deine Hilfe Karin.

Leid tut es mir, das ich Anfangs nicht die geamte Problemstellung erläutet hatte/ erläutern konnte. ;-)

...auch bis später
LG Wackeldackel

 

Ich habe ein ähnliches Problem: Ich würde gerne jede Zelle der Spalte V (von 2 bis 447) einer Tabelle in einer neuen Datei ausgeben lassen. Dass ich dafür eine Schleife brauche, habe ich verstanden, wie aber der Inhalt der aktuell aufgerufenen Zelle referenziert werden kann, weiß ich nicht. Außerdem müsste in jedem Durchlauf ein neuer Dateiname festgelegt werden (auch aus der Tabelle), damit die vorigen Dateien nicht überschrieben werden.
Kann mir jemand helfen?