Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel-Dokument als txt-Datei speichern

Excel-Dokument als txt-Datei speichern
01.11.2003 11:47:31
Sonja
Hallo,
ich möchte alle Excel-Dokumente eines Verzeichnisses als txt-Dateien in ein anderes Verzeichnis speichern. Dabei soll als Trennzeichen verwendet werden. Ich habe dafür auch schon ein Makro, allerdings tritt dabei folgendes Problem auf: Alle Zellen, in denen ein Komma-Wert steht (z.B. 11,5) wird in der txt-Datei nicht korrekt ausgegeben. Der Wert wird in Hochkommas eingepackt (z.B. "11,5").
Hat jemand eine Idee, wie ich das Problem lösen kann?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Welches Trennzeichen denn? o.w.T.
03.11.2003 01:08:45
Reinhard
.
AW: Excel-Dokument als txt-Datei speichern
03.11.2003 10:17:58
sonja
sorry, das Trennzeichen soll sein
Beschreib mal bitte das Trennzeichen :-) o.w.T.
03.11.2003 11:18:09
Reinhard
.
AW: Beschreib mal bitte das Trennzeichen :-) o.w.T.
03.11.2003 13:43:38
Sonja
auf ein drittes,...Tabulator, ;-)muß wohl doch noch was üben
AW: Excel-Dokument als txt-Datei speichern
03.11.2003 12:06:47
Reinhard
Hi Sonja,
meine Glaskugel sagt mir du wolltest Tab als Trennzeichen, dann probier das folgende
Makro.
Gruß
Reinhard


Sub Makro3()
Workbooks.Add
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "b"
Range("C1").Select
ActiveCell.FormulaR1C1 = "c"
Range("D1").Select
ActiveCell.FormulaR1C1 = "d"
Range("A2").Select
ActiveCell.FormulaR1C1 = "e"
Range("B2").Select
ActiveCell.FormulaR1C1 = "11,5"
Range("C2").Select
ActiveCell.FormulaR1C1 = "11.5"
Range("D2").Select
ActiveCell.FormulaR1C1 = "f"
Range("A3").Select
ActiveCell.FormulaR1C1 = "0,2"
Range("B3").Select
ActiveCell.FormulaR1C1 = "dde"
Range("C3").Select
ActiveCell.FormulaR1C1 = "ijfi"
Range("D3").Select
ActiveCell.FormulaR1C1 = "oio"
Range("A3").Select
MsgBox "Tabelle ist erzeugt"
Close
Open "c:\temp\tabtestung.txt" For Output As #1
For n = 1 To Cells(1, 1).End(xlDown).Row
Zeile = Cells(n, 1)
For m = 2 To Cells(n, 1).End(xlToRight).Column
Zeile = Zeile & vbTab & Cells(n, m)
Next m
Print #1, Zeile
Next n
Close #1
End Sub

Anzeige
AW: Excel-Dokument als txt-Datei speichern
03.11.2003 16:31:05
Sonja
mit "Print" hatte ich das nicht ausprobiert, die Idee ist gut!
Allerdings funktioniert Dein Makro nur solange, wie keine leeren Zellen vorkommen. Hast Du vielleicht eine Idee, wie ich dieses Problem lösen kann?
AW: Excel-Dokument als txt-Datei speichern
03.11.2003 19:08:53
Reinhard
Hallo Sonja,
das liegt an dem "End", es stoppt wenn danach ne leere Zelle kommt.
Aber man kann das umgehen in dem man andersrum sucht.
Anstatt
For n = 1 To Cells(1, 1).End(xlDown).Row
einsetzen:
For n = 1 To Cells(65536, 1).End(xlup).Row
und für:
For m = 2 To Cells(n, 1).End(xlToRight).Column
For m = 2 To Cells(n, 256).End(xlToleft).Column
einsetzen.
Gruß
Reinhard
ps: ungetestet, müßte aber klappen
Anzeige
AW: Excel-Dokument als txt-Datei speichern
04.11.2003 08:59:01
sonja
es klappt, super, danke!
Danke dir für die Rückmeldung
05.11.2003 21:07:58
Reinhard
.

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige