Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Anzeige
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
Anzeige
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
Anzeige
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige