Array in txt.Datei schreiben
Maxer
ich brauch mal wieder eure Hilfe.
ich habe eine Exceltabelle die über ein Makro automatisch mit Zahlen befüllt wird.
Die Anzahl der Zeilen und Spalten ist immer unterschiedlich.
Nun möchte ich diese Daten in eine Textdatei schreiben. Wie kann sich das machen?
Ich kenne nur diesen Weg (verkürzt) der aber nicht dynamisch ist (brauch ich aber wg. der unterschriedlichen Spalten und Zeilen)!
Set ts = FSO.CreateTextFile(pfad_db)
AnzSätze = ActiveSheet.UsedRange.Rows.Count
AnzSpalten = ActiveSheet.UsedRange.Columns.Count
ReDim P_Array(1 To AnzSätze, 1 To AnzSpalten)
For i = 1 To AnzSätze
P_Array(i, 1) = Cells(e, 1).Value
P_Array(i, 2) = Cells(e, 2).Value
P_Array(i, 3) = Cells(e, 3).Value
ts.WriteLine P_Array(i, 1) & ";" & P_Array(i, 2) & ";" & P_Array(i, 3)
e = e + 1
Next i
ts.Close
Kann mir da jemand helfen?
Gruß Ron