txt Datei mit Excel Daten erzeugen

Forumthread: txt Datei mit Excel Daten erzeugen

10.06.2005 11:40:04

Daniel

Guten Tag Allerseits!
Ich habe in einer Excel- Datei Daten stehen, die ich in eine txt-Datei umwandeln möchte.
Da ich diesen Vorgang öfters machen muss, möchte ich den Vorgang gerne automatisieren.
Es sollen in der Datei die Zellen von C5-G5, und das bis zu den letzten gefüllten Zellen der Spalten C-G in die txt-Datei kopiert werden.
Dabei soll das Datumsformat, das in Spalte C ist, als m/d/yyyy dargestellt werden.
Als Trennzeichen soll Tab sein, und die Zahlen in D-G sollen keine Tausendertrennzeichen haben und die Dezimale sollen Punkt sein.
Die Datei soll den Namen des Wertes in Zelle B5 haben + .txt.
Zu guter letzt, soll nach der letzten zeile in der neuen txt Datei ein Zeilenumbruch sein.
Ich hoffe ich habe alles verständlich dargestellt.
Beste Grüße und vielen Dank für Hilfe,
Daniel

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: txt Datei mit Excel Daten erzeugen

10.06.2005 12:30:27

Uduuh
AW: txt Datei mit Excel Daten erzeugen

10.06.2005 13:01:57

Daniel
Noch offen.........o.T.

10.06.2005 14:34:11

Daniel
AW: txt Datei mit Excel Daten erzeugen

10.06.2005 12:41:08

Dani
Kurzer Hinweis

10.06.2005 13:01:38

Harald
AW: Kurzer Hinweis

10.06.2005 13:06:58

Daniel
Ups....

10.06.2005 13:31:49

Daniel
AW: Kurzer Hinweis

13.06.2005 09:50:15

Dani

AW: txt Datei mit Excel Daten erzeugen

10.06.2005 12:30:27

Uduuh

Hallo,
in ein Modul:


Sub TextExport()
Dim i As Long, tmp As String
Open Range("B5") & ".txt" For Output As #1
For i = 5 To Range("G65536").End(xlUp).Row
tmp = ""
tmp = tmp & WorksheetFunction.Text(Cells(i, 3), "D/M/YYYY") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 4), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 5), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 6), ",", ".") & Chr(9)
tmp = tmp & WorksheetFunction.Substitute(Cells(i, 7), ",", ".")
Print #1, tmp
Next i
Print #1, Chr(13)
Close 1
End Sub

Gruß ausm Pott
Udo

AW: txt Datei mit Excel Daten erzeugen

10.06.2005 13:01:57

Daniel

Hallo Udo,
recht herzlichen Dank. Das klappt schonmal gut.
Kannst Du mir bitte noch folgendes einfügen:
Die Zahlen sollen IMMER 5 Stellen haben.
Danke udn Grüße aus Hamburg,
Daniel

Noch offen.........o.T.

10.06.2005 14:34:11

Daniel

....

AW: txt Datei mit Excel Daten erzeugen

10.06.2005 12:41:08

Dani

Hallo Daniel,
ich hab dir mal einen Ansatz gebastelt. Bin mir aber nicht sicher ob du dir das so vorstellst auch um die Formatierung habe ich mich noch nicht gekümmert. Schaus mal an ich lasse die Frage offen:


Sub TabelletoText()
Dim Speicherbereich As Range
Dim Zelle As Object
Dim MaxList, Listenlänge, i As Long
For i = 3 To 7
Listenlänge = Worksheets("Tabelle1").Cells(Rows.Count, i).End(xlUp).Row
If MaxList < Listenlänge Then MaxList = Listenlänge
Next
Set Speicherbereich = Range("C5:G" & MaxList) 'Hier wird der Speicherbereich festgelegt
Open "C:\Temp\Text.txt" For Output As #1 'Datei öffnen
For Each Zelle In Speicherbereich   'Alle Zellen abgrasen
Print #1, Zelle.Value & vbTab;   'Werte speichern
If Zelle.Column = 7 Then Print #1, ""
Next
Print #1, ""
Close #1
End Sub

Gruss
Dani

Kurzer Hinweis

10.06.2005 13:01:38

Harald

Hi Dani,
mit der Zeile
Dim MaxList, Listenlänge, i As Long
deklarierst Du nur i as long, alle anderen als Variant
Dim MaxList as Long, Listenlänge as Long, i As Long
Wie gesagt. Nur als kurzer Hinweis gedacht ;-))
Harald

AW: Kurzer Hinweis

10.06.2005 13:06:58

Daniel

Sorry, da verstehe ich nur Bahnhof. Habe keine Ahnung von VBA.
Grüße,
Daniel

Ups....

10.06.2005 13:31:49

Daniel

...der Hinweis war ja gar nicht für mich.
Da kann man schonmal durcheinander kommen wenn man nur Dan... liest ;-)
Die Lösung von Udo ist sehr gut, von daher nehme ich diese.
Grüße
Daniel

AW: Kurzer Hinweis

13.06.2005 09:50:15

Dani

Hallo Harald,
das habe ich wirklich nicht gewusst. Vielen Dank für den Hinweis!!
Gruss
Dani

Beliebteste Forumthreads (12 Monate)

txt Datei mit Excel Daten erzeugen

Forumthread: txt Datei mit Excel Daten erzeugen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread