Herbers Excel-Forum - das Archiv

Umwandeln xls in txt

Bild

Betrifft: Umwandeln xls in txt
von: baronf

Geschrieben am: 20.12.2006 09:18:15
Guten Morgen,
ich habe folgendes Problem - eine Exceldatei besteht aus drei Spalten - diese Einträge sollen als in eine Text-datei - die Datensätze durch ein Semikolon getrennt werden! Die Textdatei soll als Datenimport genutzt werden.
Wie kann ich eine TXT-Datei schaffen - nur üner ein Makro??
Danke Frederike
Bild

Betrifft: AW: Umwandeln xls in txt
von: haw
Geschrieben am: 20.12.2006 09:26:56
Hallo Frederike,
am einfachsten mit Speichern Unter, Dateityp:csv (Trennzeichen getrennt)
Damit wird aber die gesamte Tabelle, inkl. eventueller Überschriften usw. als Text gespeichert
Gruß Heinz
Bild

Betrifft: AW: Umwandeln xls in txt
von: Rudi Maintaire

Geschrieben am: 20.12.2006 09:29:56
Hallo,
Public
Sub prcCreateTXT()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Const strPre As String = ";"
Reset
intFileNumber = FreeFile
With ThisWorkbook
.Save
Open .Path & "\" & Left$(.Name, Len(.Name) - 4) & _
".txt" For Output As #intFileNumber
End With
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose( _
WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Bild

Betrifft: AW: Umwandeln xls in txt
von: Oberschlumpf

Geschrieben am: 20.12.2006 09:31:27
Moin Frederike
Oder du möchtest eine VBA-Lösung, dann so:
Um welche Spalten handelt es sich denn?
In welcher Spalte sind die meisten Einträge? (Wenn in jeder Zelle der 3 Spalten etwas steht, kannst du Frage 2 vernachlässigen)
In welcher Zeile geht es los?
Ich gehe jetzt mal von Spalte A, B und C aus
Vermute, in Spalte A sind die meisten Einträge.
Und es geht in Zeile 1 los.
Sub XLinTXT()
Dim liZeile As Integer
Open ThisWorkbook.Path & "\XLinTXT.txt" For Output As #1
'wenn nicht Start = Zeile 1, dann anpassen
'wenn nicht die meisten Einträge in Spalte A, dann anpassen - und zwar
'                  Cells(Rows.Count, ???).End(xlUp).Row
For liZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Print #1, Range("A" & liZeile).Value & ";"; Range("B" & liZeile).Value & ";" & Range("C" & liZeile).Value
Next
Close
End Sub

Konnte ich helfen?
Ciao
Thorsten
Konnte ich helfen?
Ciao
Thorsten
Bild

Betrifft: AW: Umwandeln xls in txt
von: Ludicla

Geschrieben am: 20.12.2006 10:06:30
Hey Frederike
verkette einfach die drei Spalten mit einem Semikolon dazwischen, kopiere dann die
Werte und formatier sie als Text und speichere die Datei als txt Datei weg dann
sollte der Datenimport laufen.
Muster:
https://www.herber.de/bbs/user/39127.xls
 Bild
Excel-Beispiele zum Thema "Umwandeln xls in txt"
Abkürzungen umwandeln URLs eines ausgewählten Bereiches in HyperLinks umwandeln
Textstring in berechenbare Formel umwandeln Als Text vorhandene Werte in Zahlen umwandeln
Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln
5-Längen-Zeichenfolgen in Zeit mit Format mss,00 umwandeln Zeichenfolgen über Doppelklick in externen Bezug umwandeln.
Alle "u" bis zum aktuellen Datum in "U" umwandeln Strings, die wie Zahlen aussehen, in Zahlen umwandeln