Re: Arbeitsblatt in Textdatei mit Trennzeichen
17.10.2002 14:12:59
Erik
Hier eine Sub, sie ist auf sieben Zeilen gemacht und nimmt den Namen des aktiven Workbook und schreibt es nach C:\temp
Sub Textexport()
'Export Textdatei
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim DName As String
Dim exVerz As String
Dim Name As String exVerz = "c:\temp\"
DName = ActiveWorkbook.Name
Name = Left(DName, Len(DName) - 4)
Path = exVerz
On Error GoTo Beenden
Open Path & Name & ".txt" For Output As #1 'in path und name steht Dateiname
zeile = 1
While Trim(Cells(zeile, 1)) <> ""
'Schleife über alle Tabellenzeilen
a = Cells(zeile, 1)
b = Cells(zeile, 2)
c = Cells(zeile, 3)
d = Cells(zeile, 4)
e = Cells(zeile, 5)
f = Cells(zeile, 6)
g = Cells(zeile, 7)
Print #1, a & ";" & b & ";" & c & ";" & d & ";" & e & ";" & f & ";" & g & ";" & (Chr(13) + Chr(10)); ' Ausgabe in Textdatei
zeile = zeile + 1
Wend
'Print #1, "EOF" 'irgend ein sinnvoles Dateiendezeichen
Close
'ActiveWorkbook.Close SaveChanges:=False '' schließt die mappe
MsgBox ("Datei wurde erfolgreich exportiert")
Beenden:
End Sub