Kleine Sektflaschen Hochzeit
Mehrere CSV-Dateien zusammenfhren Autor Nachricht Ki2k Im Profil kannst Du frei den Rang ndern Verfasst am: 05. Jul 2013, 07:52 Rufname: Version: Office 2007 Hallo zusammen Ich habe schon einen halben Tag mit Googel und diesem Forum verbracht. Leider ohne Erfolg Ich habe folgendes Problem: Ich habe diverse CSV-Dateien in einem definierten Ordner von einer Messmaschine. Von diesen CSV-Dateien mchte ich jeweils die "Spalte H" in eine einzelne * Datei speichern. Also: - Spalte H von Datei = Spalte A von Datei - Spalte H von Datei = Spalte B von Datei - Spalte H von Datei = Spalte C von Datei und so weiter...... Mehrere csv dateien zusammenfügen pdf. Dies sollte unabhngig vom Name der CSV-Datei sein. Also wenn die Datei einmal heisst und das nchste mal Und die Lnge der Spalte H sollte auch unbegrenzt sein, wenn ich einmal eine Andere Tabelle mit mehr Messwerten zusammenfhren mchte. Ich wre sehr froh, wenn mir jemand helfen knnte, da ich mit Copy/Paste Ewigkeiten habe (100te von CSV-Dateien) Grli joo mei, 's langt Verfasst am: 05.
15. 07. 2015, 13:51 # 1 Michael_F VBA - Zusammenfügen mehrerer csv. -Dateien zu einer Gesamtliste Hallo zusammen, ich habe in einem Ordner mehrere csv-Dateien. Die einzelnen Dateien werden von einem Messgerät generiert. Die csv-Dateien haben immer den Dateinamen des aktuellen Datums, also z. B. In der Tabelle in der Datei ist immer die Spalte A-O teilweise gefüllt. Die weiteren Spalten sind leer. Je Messung wird eine Zeile in der Tabelle durch das Messgerät angelegt, das heißt die Anzahl an Zeilen ist je Datei unterschiedlich. In der Zeile 1 stehen die Spaltentitel. Ab Zeile 2 beginnen die Inhalte. Mehrere csv dateien zusammenfügen von. Ich würde nun gerne diese einzelnen Tabellen zu eine großen Tabelle im selben Ordner zusammenfügen. Der Dateiname soll sich dann aus dem ältesten und aktuellsten Datum der Dateien im Ordner zusammensetzen (z. ). Hierfür soll von der ersten Datei die gesamte Tabelle inklusive Zeile 1 kopiert werden und von allen anderen Tabellen die gefüllten Zeilen ab Zeile 2. Die Auflistung der vorhandenen Tabellen in der neuen Datei soll chronologisch vom ältesten Datum beginnend bis zum jüngsten sein (Es ist nicht von jedem Tag eine Messdatei in dem Ordner).
Teilweise passiert es aber auch, dass es nicht ' ' ist, sondern vielleicht ' ' oder ' '. Wiekann man damit umgehen? Hier hilft dir ein weiteres Python BuiltIn: lower() Mit lower() wird der ganze String einfach kleingeschrieben. Schon spielt die Groß-/Kleinschreibung keine Rolle mehr und du kannst den Vergleich weiterhin genauso einfach durchführen. import os if (). writerows(daten) Hier mal ein Beispiel: Dein Dateiname ist '' datei = '' Wenn du () aufrufst, sieht es so aus: () = '' Und nach dem () kommt das. endswith(). endswith() prüft, ob das Ende eines Textes mit dem übergebenen Textstück übereinstimmt. datei. endswith('') wäre also False, weil '' nicht mit '' endet, sondern eben mit ''. Durch das () ist der Vergleich allerdings mit '' – also kleingeschrieben. Und somit True, also erfolgreich. Mehrere CSV Dateien schnell zusammenführen. Jetzt spielt es keine Rolle mehr wie viele Dateien du am Ende in dem Verzeichnis hast und ob vielleicht noch ein paar andere Dateitypen mit untergeschmuggelt sind. Du filterst einfach das raus, was du brauchst, führst es zusammen und schon kannst du wieder was mit deinen Daten anfangen!
0 Objektlibrary] ' (Sollte Sie diese nicht so einfach finden, einfach eine Userform einfügen und dann wieder entfernen) Private Sub ZwischenablageSchreiben( ByVal strText As String) Dim objDataObject As DataObject Set objDataObject = New DataObject tText strText objDataObject. PutInClipboard Set objDataObject = Nothing Code eingefügt mit dem MOF Code Converter 16. 2015, 13:08 # 3 Hallo xlph, vielen Dank für das Makro. Leider funktioniert es bei mir nicht. Ich habe es in ein Modul im VBA-Editor der Excel-Datei kopiert und den Pfad für meinen Ordner angepasst. Zudem habe ich mal eine UserForm eingefügt und wieder gelöscht. Mehrere CSV Dateien zusammenfügen nicht hintereinander sondern parallel - Administrator.de. Leider passiert gar nichts wenn ich das Makro laufen lasse. In der Zeile Do Until strDateiname = vbNullString sind beide Werte von Beginn an leer und daher geht das Makro gar nicht in die Schleife. Im nächsten Block: "If ialngDatum > 0 Then" ist ialngDatum = 0. Resultat ist, dass ans Ende des Makros gesprungen wird. Wahrscheinlich habe ich hier einen Fehler gemacht. Bin allerdings überhaupt nicht fit im Umgang mit Makros.