Exportieren
31.12.2003 19:37:03
Garry
ich möchte gerne aus einer Ecxel datei die Daten in ein mein.txt
Exportieren. Habe dies auch mit einem Macro aus einem anderem Forum hinbekommen. Ich hätte aber gerne das ganze nicht in einer Reihe sonder untereinander.
Jetzt kommt es so als mein.txt
A1;A2;A3;A4;
B1;B2;B3;B4; usw
ich hätte gerne das ganze so
A1
A2
A3
A4
B1
B2
B3
B4
usw.
wenn dies möglich wäre.
das wo ich schon habe Sieht so aus
Sub ascii_datei_exportieren()
Dim lngZeile As Long
Dim lngZcnt As Long
Dim intSpalte As Integer
Dim intScnt As Integer
Dim strText As String
Dim strSep As String
Dim sFile As String
Dim strName As String
lngZcnt = Sheets("TB1").Range("A300").End(xlUp).Row 'Zeilenanzahl >Tabellenname anpassen
intScnt = 7 'Spaltenanzahl
strSep = ";" 'Trennzeichen = ;
strName = "Neuetest" 'Name der Textdatei
Close #1
'Name und Speicherort festlegen
sFile = "C:\" & strName & Format(Date, "ddmmyy") & ".txt" 'Pfad anpassen
'Öffnen der strTextdatei
Open sFile For Output As 1
'Schleife fürlngZeilen
For lngZeile = 2 To lngZcnt 'ab Zeile 2
strText = ""
'Schleife für intSpalten
For intSpalte = 1 To intScnt
strText = strText & CVar(Cells(lngZeile, intSpalte))
If intSpalte < intScnt Then strText = strText & strSep
Next
If lngZeile = lngZcnt Then Print #1, strText; Else Print #1, strText
Next
'Schließen der Textdatei
Close #1
End Sub
kann dies vielleicht jemand abändern das es als txt-datei so
exportiert wird wie ich es gerne hätte
Guten rutsch in´s neue Jahr