Zur Weiterverarbeitung Ihrer EXCEL-Ergebnisse in anderen Anwendungen ist es oft erforderlich, die in den Zellen stehenden Werte zu exportieren. In diesem Beispielmakro wird der Inhalt des Tabellenblattes "Tabelle1" in eine txt-Datei kopiert:
Sub werte_zu_txt()
Dim C As Range
Open "c:werte.txt" For Output As #1
For Each C In Sheets("Tabelle1").UsedRange.Cells
Print #1, C.Value
Next
Close #1
End Sub
Wenn die Datei werte.txt nicht existiert, wird sie neu angelegt.