Umwandeln xls in txt

Forumthread: Umwandeln xls in txt

20.12.2006 09:18:15

baronf

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umwandeln xls in txt

20.12.2006 09:26:56

haw
AW: Umwandeln xls in txt

20.12.2006 09:29:56

Rudi
AW: Umwandeln xls in txt

20.12.2006 09:31:27

Oberschlumpf
AW: Umwandeln xls in txt

20.12.2006 10:06:30

Ludicla

AW: Umwandeln xls in txt

20.12.2006 09:26:56

haw

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

AW: Umwandeln xls in txt

20.12.2006 09:29:56

Rudi

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

AW: Umwandeln xls in txt

20.12.2006 09:31:27

Oberschlumpf

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

AW: Umwandeln xls in txt

20.12.2006 10:06:30

Ludicla

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Umwandeln xls in txt

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread