Hallo,
ich möchte ein kleines Programm mit VB schreiben, mit dem man sämtliche CSV-Dateien aus einem Verzeichnis in ein Excel-Dokument umwandelt.
Kann mir da jemand weiterhelfen?
Christian
Hi,
anbei mein Text vom 18.05.2005 zu einem Beitrag hier.
Am besten mal nach CSV suchen, um den Beitrag zu finden.
Wie man die Dateien öffnet bzw. die Daten in Excel einliest kann ich dir auf die schnelle nicht sagen, das Fragment unten ist für Access.
Müsste aber in Excel ähnlich laufen.
Damit kannst du schon mal die Texte selektieren und einlesen in getrennte Zellen.
Musst es nur noch etwas deinen Bedürfnissen anpassen.
Mfg Werner
CSV Heisst für mich, es besteht aus Zeilen, deren Werte durch ein Komma getrennt sind.
Ich habe ein Fragment, womit ich die Zeilen durchlaufe und exakt 5 Kommas finde:
Pos = 1
Länge = Len(Zeile)
For I = 1 To 5
Pos = InStr(Pos + 1, Zeile, „,“, 1)
If I = 1 Then PN = LTrim$(RTrim$(Mid$(Zeile, 1, Pos - 1)))
If PN = „“ Then PN = „0“
If I = 2 Then RW = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Pos - PosE - 1)))
If RW = „“ Then RW = „0.0000“
If I = 3 Then hw = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Pos - PosE - 1)))
If hw = „“ Then hw = „0.0000“
If I = 4 Then HO = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Pos - PosE - 1)))
If HO = „“ Then HO = „0.0000“
If I = 5 Then CO = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Länge - PosE)))
If CO = „“ Then CO = „0“
PosE = Pos
Next I
Danach befinden sich meine Werte PN, RW, HW, HO, CO.
Die Variablen musst du noch als String dimensionieren.
Damit solltest du das Format schon mal reinkriegen.
Wie eine Datenbank geöffnet wird, habe ich schon heute bei lila geschrieben.
Hoffe es hilft dir.
Mfg Werner