Export Daten einzelner Zellen in ein TXT File

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub XLS2TXT() Dim iRow As Long, Zell As Long On Error GoTo ERRORHANDLER iRow = 1 Zell = Range("Ax1").Column Close Open Range("Dx1").Value For Output As #1 Do While Cells(iRow, Zell).Value "" Print #1, Cells(iRow, Zell).Value & Cells(iRow, Zell + 1).Value & Cells(iRow, Zell + 2). _ Value iRow = iRow + 1 Loop Close MsgBox "Die Dateien wurden angelegt!" Exit Sub ERRORHANDLER: MsgBox "Die Dateien konnten nicht angelegt werden!" End Sub

Sub txt_erst() Dim sFile As String Dim ff As Byte Dim s ff = FreeFile With ActiveSheet sFile = Cells(1, 6) 'vollständiger Dateiname in Zelle F1 zBsp. d:\test.txt Open sFile For Output As ff For s = 2 To 4 'Schleife durchläuft dei spalten B bis D Print #1, Cells(1, s) Next s Close #ff End With End Sub

Sub InTextDatei() Dim sFile As String Dim intRow As Integer Dim strText As String Dim s Dim z z = 1 Close sFile = Cells(1, 6) 'vollständiger Dateiname in Zelle F1 zBsp. d:\test.txt Open sFile For Input As #1 Open "d:\Test2.txt" For Output As #2 Do Until EOF(1) Line Input #1, strText If z > 3 Then Print #2, strText Else If z = 1 Then For s = 2 To 4 'Schleife durchläuft dei spalten B bis D Print #2, Cells(1, s) Next s End If End If z = z + 1 Loop Close Kill sFile Name "d:\Test2.txt" As sFile End Sub

Funktioniert schon nicht schlecht so, die ersten 4 Zeilen werden nach unten geschoben (könnten aber auch gelöscht werden) und die neuen eingefügt, das passt schon aber.......
alles was nach der 4. Zeile kommt wird gelöscht sollte aber erhalten bleiben ähnlich einem Schiebe Register es sollen eigentlich immer nur die Zeile 1-4 im Txt File überschrieben werden mit den neuen Werten ab Zeile 5 muß das TXT File erhalten bleiben (evtl. erst temp einlesen die ersten 4 Zeilen ersetzen und dann wieder ausgeben)
und einen 2. Punkt hätte ich noch das ganze funktioniert gut in der 1. Zeile kann man es aber so gestallten das man die Zeile markiert und er dann die werte aus dieser Zeile verwendet, also erst die Zeile markiert und dann das Makro ausführt ..... bin leider noch zu unerfahren um dies zu lösen gerade was der Im und Export in TXT Files angeht.......finde es ja schon genial was ihr hier zaubert.....
lG Bernd

Sub InTextDatei() On Error Resume Next Dim sFile As String Dim intRow As Integer Dim strText As String Dim s Dim z Dim a a = Selection.Row If Cells(a, 6) "" Then z = 1 Close sFile = Cells(a, 6) 'vollständiger Dateiname in Zelle F1 zBsp. d:\test.txt Open sFile For Input As #1 Open "d:\Test2.txt" For Output As #2 Do Until EOF(1) Line Input #1, strText If z > 4 Then Print #2, strText Else If z = 1 Then For s = 2 To 5 'Schleife durchläuft dei spalten B bis D Print #2, Cells(a, s) Next s End If End If z = z + 1 Loop Close Kill sFile Name "d:\Test2.txt" As sFile Else Exit Sub End If End Sub

Beliebteste Forumthreads (12 Monate)

Export Daten einzelner Zellen in ein TXT File

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread