Excel-Datei auslesen und als Textdatei speichern

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Excel-Datei auslesen und als Textdatei speichern

    Guten Tag,
    ich bin auf der Suche nach einer Möglichkeit, um eine bereits vorhandene Excel-Datei (.xlsx) mit VBScript auszulesen und bestimmte Datenbereiche als Textdatei (.txt) zu speichern.
    Bearbeitet werden sollen zwei beliebig große Spalten (A und B). Zwischen den beiden Werten einer Zeile soll ein Gleichheitszeichen (=) eingefügt werden. Die Ausgabe soll in einer Textdatei gespeichert werden.

    Beispielausgabe:
    abc=123
    opq=9556
    xy=test

    Wäre toll, wenn ihr mir einen Lösungsweg aufzeigen könntet.
    Du brauchst keine Arrays.
    Du kannst auf alle Excel-Objekte direkt zugreifen und die Werte unmittelbar in die Textdatei schreiben.
    Nur als Beispiel:

    Visual Basic-Quellcode

    1. For Each Cell in Worksheets("Tabelle1").Range("A:A")
    2. If Not IsEmpty(Cell) Then MsgBox Cell.Value & "=" & Cell.Offset(0,1).Value
    3. Next
    Statt in die Messagebox kannst du natürlich auch in eine Datei schreiben.
    Und den Range solltest du auch noch etwas eingrenzen, sonst läuft deine Loop durch eine Million Zeilen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --