Exceldaten in Ascii.txt speichern

Forumthread: Exceldaten in Ascii.txt speichern
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Exceldaten in Ascii.txt speichern

25.12.2004 19:34:11

Lokutus

Hallo,
ich möchte aus Excel heraus eine Ascii Datei (mit festgelegtem Format)erzeugen, welche ich in ein anderes Programm importieren kann. Die Ascii Datei soll wie folgt aussehen:
"
VERSION;1;2
KURSE
wkn1;09.07.99;101;100000;102,02;106,03;100,04;105,05
wkn2;09.07.99;201;200000;202,02;206,03;200,04;205,05
wkn3;09.07.99;301;300000;302,02;306,03;300,04;305,05
wkn4;09.07.99;401;400000;402,02;406,03;400,04;405,05;1000;2000
wkn5;01.07.99;501;500000
wkn5;02.07.99;502;500000
wkn5;04.07.99;503;500000
wkn5;05.07.99;504;500000
wkn5;06.07.99;505;500000
wkn5;07.07.99;506;500000
wkn5;08.07.99;507;500000
wkn5;09.07.99;508;500000
ENDE
"
Die Excel Datei enthält die die Daten in einzelnen Zellen. Beispiel A1=wkn1,A2=09.07.99 usw.
Der Ascii Kopf: VERSION;1;2
KURSE
und die Fusszeile ENDE ist immer gleich.
Wie bekomme ich das möglichst komfortabel in Excel zu stande bzw. ein möglicher Lösungsansatz würde mir auch schon helfen?
Danke und Gruss
Lokutus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Exceldaten in Ascii.txt speichern

25.12.2004 20:05:02

NE
AW: Exceldaten in Ascii.txt speichern

25.12.2004 21:06:38

Lokutus
AW: Exceldaten in Ascii.txt speichern

25.12.2004 21:23:20

NE
AW: Exceldaten in Ascii.txt speichern

25.12.2004 21:44:51

Lokutus

AW: Exceldaten in Ascii.txt speichern

25.12.2004 20:05:02

Hi,
probiers mal so:
lg Nancy
--


Sub asdf()
Dim r&, c%, s$
Open "d:\myfile.txt" For Output As #1
Print #1, "VERSION 1.2"
Print #1, "Kurse:"
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
s = ""
For c = 1 To Cells(r, Columns.Count).End(xlToLeft).Column
s = s & Cells(r, c).Value & ";"
Next
Print #1, s
Next
Print #1, "ENDE"
Close #1
End 

Sub

AW: Exceldaten in Ascii.txt speichern

25.12.2004 21:06:38

Lokutus

Hi,
danke für die schnelle Antwort. Leider kenne ich mich nicht so gut aus. Wo genau muss ich den Quellcode einfügen das ich es testen kann.
Gruss Lokutus

AW: Exceldaten in Ascii.txt speichern

25.12.2004 21:23:20

oki, noch fix;-)
in excel / Alt + F11, es öffnet sich der VBEditor
Dort unter Menue Einfügen / Modul, in das Fenster kopierste den Code
Dann noch in der zeile: open "d:\myfile.txt" for output as #1
ggf den Pfad anpassen, also irgendsowas:
open "c:\temp\myfile.txt" for output as #1
VBE schliesen und unter xl Alt+F8 bzw Extras / Makros / asdf ausführen
cu Nancy

AW: Exceldaten in Ascii.txt speichern

25.12.2004 21:44:51

Lokutus

aha danke habs hinbekommen.
vielen dank
gruss Lokutus