Hallo,
ich möchte eine Excel Datei in eine Text Datei (*.txt) konvertieren.
Ich habe zwei Spalten. Diese sollen in der Text Datei lediglich durch Strichpunkt getrennt werden. Die Zeile 2 soll dann im Text File direkt neben Zeile 1 stehen. Zusätzlich soll das Komma der Zahlen durch einen Punkt ersetzt werden.
Also z.B.
Excel
A B
1 Bau 12,97
2 Holz 33,75
txt
Bau;12.97;Holz;33.75;
Wie macht man so etwas?
Mit Makros? Leider bin ich im Programmieren von Makros nicht fit.
Danke!
Hallo,
wenn du das nur einmal machen möchtest, würde ich das einfach in Word kopieren. Dort in der Werte Spalte dann , durch . ersetzen.
Anschließend Tabelle in Text umwandeln und Absatzendemarke (^p) mit ; ersetzen
Grüße
Michael
Danke!
Aber bei 5000 Zeilen könnte das länger dauern. Zumal möchte ich das bei mehr Dateien machen.
Danke!
Aber bei 5000 Zeilen könnte das länger dauern.
Du kennst schon die Schaltfläche ERSETZEN? Da geht das in einem Rutsch, na ja ein paar Sekunden kanns dauern. Sind also wirklich nur insgesamt 5 Arbeitsschritte, wenn man das Speichern als txt mitzählt…
Zumal möchte ich das bei mehr Dateien machen.
1 mal bei 3 Dateien, oder täglich bei 20 Dateien? Im 2. Fall wäre eine andere Lösung sicher erstrebenswert.
Gruß Jack
Hallo,
folgendes Makro tut das gewünschte (im VBA-Editor in ein Modul einfügen):
Sub tester()
Dim z As Integer
Dim l As Integer
Dim datei As Variant
With ActiveSheet
l = .Cells(.Rows.Count, 1).End(xlUp).Row
datei = Application.GetSaveAsFilename(filefilter:="Textdateien (\*.txt),\*.txt")
If datei = False Then Exit Sub
If Dir(datei) "" Then
If MsgBox("Datei existiert bereits, Überschreiben?", vbYesNo) = vbNo Then Exit Sub
End If
Open datei For Output As 1
For z = 1 To l
Print #1, .Range("A" & z).Value & ";" & \_
Replace(.Range("B" & z).Value, ",", ".", , , vbTextCompare) & ";";
Next z
Close #1
End With
End Sub
Viele Grüße, tester