Hallo liebes Forum,
letztes Mal wurde mir super geholfen und nun habe ich wieder etwas, wobei ich nicht weiterkomme.
Die Aufgabe ist, ein Excel-Sheet, das Namen (auch doppelt vorkommende) mit Kontobewegungen (die sind alle verschieden) beinhaltet,
mit VB abzufragen und jeden Namen (also Kunden) mit Kontobewegung in einer einzelnen .txt-Datei separat abzuspeichern.
Ich bin nun soweit gekommen, dass mein Code alle Zeilen abgrast und jede Zeile in eine .txt speichert.
Spoiler anzeigen
Leider bin ich nicht in der Lage herauszufinden, wie man das Excel-Sheet auf doppelte Namen überprüft und eben dann nicht jede Zeile einzeln speichert, sondern dann auch mal überspringt.
Ebenso verhält es sich mit dem Verarbeiten der Buchungen. Ich weiß nicht, wie ich die so rausziehen kann, dass die zu den einzelnen Personen gehörigen Buchungen in die zur Person gehörige .txt reingeschrieben werden.
Das Excel-Blatt sieht so aus:
Spoiler anzeigen
Datum Nachname Vorname Buchung
02.02.2010 Simpson Homer 5,50
02.02.2010 Simpson Homer -10,00
20.02.2010 Burns Montgomery 50000000,00
.
.
.
Vielen Dank schonmal für Eure Hilfe
letztes Mal wurde mir super geholfen und nun habe ich wieder etwas, wobei ich nicht weiterkomme.
Die Aufgabe ist, ein Excel-Sheet, das Namen (auch doppelt vorkommende) mit Kontobewegungen (die sind alle verschieden) beinhaltet,
mit VB abzufragen und jeden Namen (also Kunden) mit Kontobewegung in einer einzelnen .txt-Datei separat abzuspeichern.
Ich bin nun soweit gekommen, dass mein Code alle Zeilen abgrast und jede Zeile in eine .txt speichert.
VB.NET-Quellcode
- Imports System.IO
- Imports excel = Microsoft.Office.Interop.Excel
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim app As excel.Application = New excel.Application
- Dim fileReader As StreamReader = New StreamReader("bankkunden.xlsx")
- Dim output As String
- app.Workbooks.Open(CurDir() & "\bankkunden.xlsx")
- For i = 2 To 54
- 'output = datum & kontoveränderung & kontostand
- output = app.Range("A" & i).Value & " / " & app.Range("D" & i).Value
- Dim fileWriter As StreamWriter = New StreamWriter(i & ".txt", False)
- fileWriter.WriteLine(CStr(output))
- fileWriter.Close()
- Next
- End Sub
- End Class
Leider bin ich nicht in der Lage herauszufinden, wie man das Excel-Sheet auf doppelte Namen überprüft und eben dann nicht jede Zeile einzeln speichert, sondern dann auch mal überspringt.
Ebenso verhält es sich mit dem Verarbeiten der Buchungen. Ich weiß nicht, wie ich die so rausziehen kann, dass die zu den einzelnen Personen gehörigen Buchungen in die zur Person gehörige .txt reingeschrieben werden.
Das Excel-Blatt sieht so aus:
Datum Nachname Vorname Buchung
02.02.2010 Simpson Homer 5,50
02.02.2010 Simpson Homer -10,00
20.02.2010 Burns Montgomery 50000000,00
.
.
.
Vielen Dank schonmal für Eure Hilfe