Erzeugte Textdatei ansprechen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub imaSchnittstelle() 'letzte befüllte Zeile des Tabellenblattes wird ermittelt lz = Sheets("KFL_allePrgr_23032017").Cells(Rows.Count, "A").End(xlUp).Row 'In diesem Verzeichnis werden die Textdateien gespeichert --> kann verändert werden Pfad = "C:\Users\Desktop\Textdateien für IMA Schnittstelle\" For i = 8 To 15 x = Cells(i, 1) 'Öffnet bei jedem Schleifendurchlauf eine neue Textdatei Open Pfad & x & ".txt" For Output As #1 'Diese Spalten werden in die Textdatei reingeschrieben --> kann verändert werden Print #1, Cells(i, 1) & " ;" & "0000;" Print #1, "0010" & " ;" & Cells(i, 10) & " ;" & _ Cells(i, 10) & _ " ;" & Cells(i, 18) & ";" & _ Cells(i, 17) & ";" & Cells(i, 5) & ";" & Cells(i, 9) & ";" & Cells(i, 16) & ";" & Cells(i, 11) & _ _ " ;" & Cells(i, 20) & ";" & Cells(i, 21) 'Schließt und speichert die geöffnete Datei Close #1 'Springt in die nächste Zeile, sofern die Bedinung noch erfüllt ist Next i 'Wenn die untere Zeile gleich ist, dann: If ActiveCell = ActiveCell.Offset(1) Then m = ActiveCell.Offset(1) Open Pfad For Append As #1 Print #1, m Close #1 End If 'Benachrichtigung, dass Textdateien gespeichert wurden MsgBox " Die Textdateien wurden im Verzeichnis: C:\Users\Desktop\Textdateien für IMA _ Schnittstelle gespeichert" End Sub


Sub imaSchnittstelle()
'letzte befüllte Zeile des Tabellenblattes wird ermittelt
lz = Sheets("KFL_allePrgr_23032017").Cells(Rows.Count, "A").End(xlUp).Row
'In diesem Verzeichnis werden die Textdateien gespeichert --> kann verändert werden
Pfad = "C:\Users\Desktop\Textdateien für IMA Schnittstelle\"
For i = 8 To 15
x = Cells(i, 1)
'Öffnet bei jedem Schleifendurchlauf eine neue Textdatei
Open Pfad & x & ".txt" For Output As #1
'Diese Spalten werden in die Textdatei reingeschrieben --> kann verändert werden
Print #1, Cells(i, 1) & "                                        ;" & "0000;"
Print #1, "0010" & "                              ;" & Cells(i, 10) & "                ;" &  _
Cells(i, 10) & _
"                ;" & Cells(i, 18) & ";" & _
Cells(i, 17) & ";" & Cells(i, 5) & ";" & Cells(i, 9) & ";" & Cells(i, 16) & ";" & Cells(i, 11) & _
_
"                      ;" & Cells(i, 20) & ";" & Cells(i, 21)
'Schließt und speichert die geöffnete Datei
Close #1
'Springt in die nächste Zeile, sofern die Bedinung noch erfüllt ist
Next i
'Wenn die untere Zeile gleich ist, dann:
If ActiveCell = ActiveCell.Offset(1) Then
m = ActiveCell.Offset(1)
Open Pfad For Append As #1
Print #1, m
Close #1
End If
'Benachrichtigung, dass Textdateien gespeichert wurden
MsgBox " Die Textdateien wurden im Verzeichnis: C:\Users\Desktop\Textdateien für IMA  _
Schnittstelle gespeichert"
End Sub

So sieht mein Code momentan aus, aber wie gesagt tut er nicht das was er eigentlich soll :/

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread