Ich suche einen kostenlosen xls2txt Konverter, der im batch-Betrieb arbeitet und ca 150 xls-Dateien in txt-Dateien umwandeln kann.
Die Excel-Dateien wurden mit Excel 97 erstellt.
Gruß
MK
Hallo Martin,
als Konverter kann man EXCEL selber benutzen. Folgendes Makro führt eine entsprechende Konversion aus.
Sub xlstotxt()
' Konvertiert EXCEL-Dateien ins Windows-TXT-Format
Dim wb As Workbook
Pfad = InputBox("Vezeichnis der EXCEL-Dateien:", "XLS to TXT", "C:\Test")
Dateisuche = InputBox("Dateisuch-String:", "XLS to TXT", "\*.XLS")
PfadText = InputBox("Verzeichnis der Text-Dateien:", "XLS to TXT", "C:\Test")
'Dateien im Verzeichnis suchen
datei = Dir(Pfad & "\" & Dateisuche)
Do Until datei = ""
Workbooks.Open FileName:=Pfad & "\" & datei
Set wb = ActiveWorkbook
'Speichern der Blätter in der Arbeitsmappe als Textdatei
'Da immer nur das aktive Blatt als Textdatei gespeichert wird, wird für
'jedes Blatt eine separate Textdatei angelegt.
For I = 1 To wb.Sheets.Count
wb.Sheets(I).Activate
DateiText = PfadText & "\" & Left(datei, Len(datei) - 4) & Format(I, "00") & ".txt"
wb.SaveAs DateiText, xlTextWindows
Next
' Aktive Datei schließen, ohne zu speichern
wb.Close (False)
' Nächste Datei aufrufen
datei = Dir
Loop
End Sub
Diese Makro in einer EXCEL-Datei speichern, dabei darf die Datei nicht im gleichen Verzeichnis wie die ca. 150 XLS-Dateien gespeichert werden.
Für jedes Blatt innerhalb der EXCEL-Dateien wird eine eigene Text-Datei angelegt. Als Dateiname wird der ursprüngliche Dateiname vewendet, ergänzt um eine Zählnummer. Die Synax für das generieren des Dateinamens der Textdateien kann man natürlich noch anpassen.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo,
als Konverter kann man EXCEL selber benutzen.
Und was macht man, wenn man 150 Excel-Dateien, aber kein Excel hat?
Fragt sich
Fritze
Hallo Franz,
Diese Makro in einer EXCEL-Datei speichern, dabei darf die
Datei nicht im gleichen Verzeichnis wie die ca. 150
XLS-Dateien gespeichert werden.
Es funktioniert, du hast mir ziemlich viel Arbeit erspart. Vielleicht sollte ich mich doch mal in VBA einarbeiten.
Gruß