Datensätze von Excel nach Textdatei
26.06.2013 10:56:15
Excel
Ich habe mehrere Datensätze, welche ich gerne aus Excel 2010 in eine Textdatei schreiben möchte.
Im Excel gibt es die Spalten A, B und C, wobei jeweils eine Zeile einen Datensatz darstellt. Nun würde ich gerne Zeile für Zeile in ein Textfile schreiben, wobei die Daten der einzelnen Spalten jeweils durch Komma getrennt sein sollen und am Ende jeder Zeile ein Strichpunkt kommen sollte. Also in etwa:
ES 001, 500, 3; ES 002, 200, 10; usw.
Kann mir irgendjemand einen Tipp geben, wie ich so etwas anstellen kann?
Mit folgenden Code kann ich zumindest einmal mehrere Werte einer Spalte rausschreiben, viel weiter komme ich aber nicht.
'-----------------------------------------
Sub ZeileninTXTschreiben()
Dim intFF As Integer
Dim iZeile As Integer
Dim strDatei As String
Dim strTemp As String
strDatei = "F:\Test.txt"
intFF = FreeFile
iZeile = 17
Open strDatei For Output As #intFF
Do Until Cells(iZeile, 1).Value = ""
strTemp = Cells(iZeile, 1)
Print #intFF, strTemp
iZeile = iZeile + 1
Loop
Close #intFF
End Sub
Vielen Dank!
Jürgen