Teneriffa Süd Abflug
Mehrere CSV Dateien schnell zusammenführen Du hast ein x-faches an CSV Dateien in deinem Ordner und möchtest daraus eine einzige Datei machen. Hier in ein paar Schritten äls PC Tipp wie das geht: 1) Alle CSV Dateien im Ordner anwählen (CTRL-A). 2) F2 drücken und ganzer Dateiname bei der angezeigten Datei löschen. 3) Enter drücken, die Dateien werden nun alle unbennent, beginnend mit (1) bis (x) 4) Nun die Eingabeaufforderung öffnen, indem in der Windowssuche "cmd" eingegeben wird. 5) Zum Pfad des Ordners navigieren mit cd: Bsp. mit der Eingabe des Pfades "cd C:\user\desktop\CSV-Dateien" 6) Bestätige die Eingabe mit Enter. 7) Schreibe nun "copy (1)(2)(3) ". 8) Führe diesen Befehl mit Enter aus. => Simsalabim: im Ordner ist die neue, zusammengefasste CSV Datei «», welche alle Daten der beinhaltet. Für Schreibfaule gibt es hier ein Beispiel mit 109 Dateien. Ergänzen oder löschen was zuviel respektive zuwenig ist und in das Eingabefenster kopieren. copy (1)(2)(3)(4)(5)(6)(7)(8)(9)(10)(11)(12)(13)(14)(15)(16)(17)(18)(19)(20)(21)(22)(23)(24)(25)(26)(27)(28)(29)(30)(31)(32)(33)(34)(35)(36)(37)(38)(39)(40)(41)(42)(43)(44)(45)(46)(47)(48)(49)(50)(51)(52)(53)(54)(55)(56)(57)(58)(59)(60)(61)(62)(63)(64)(65)(66)(67)(68)(69)(70)(71)(72)(73)(74)(75)(76)(77)(78)(79)(80)(81)(82)(83)(84)(85)(86)(87)(88)(89)(90)(91)(92)(93)(94)(95)(96)(97)(98)(99)(100)(101)(102)(103)(104)(105)(106)(107)(108)(109) v
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...... 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.
End Sub _________________ eine Weisheit aus der "Funkerei", die ich auch immer anwenden sollte ( frommer Wunsch):"erst denken, dann drcken, dann sprechen! " Verfasst am: 05. Jul 2013, 11:32 Rufname: Danke fr die schnelle Antwort. Leider kommt ne Fehlermeldung.... Fehler beim Kompilieren: Falsche Anzahl an Argumenten oder ungltige Zuweisung zu einer Eigenschaft. Sub Datenbertragung() ist gelb markiert Sorry komme grad mal mit den Excel-Basics klar..... Das mit dem Konsolidieren geht doch nur mit Zellwerten.... Hab da nirgends ne Funktion gefunden bei der man Dateien konsolidieren kann. Verfasst am: 05. Jul 2013, 12:51 Rufname: in der 5. letzten Zeile (1, Cells(1, )(xlToLeft) + 1, 1)(UBound(ar, 1)) = ar den roten Eintrag entfernen Verfasst am: 05. Jul 2013, 14:06 Rufname: Jetzt tut sich was aber es hat immer noch einen Bug! Fehlermeldung: Laufzeitfehler '9': Index aussehalb des gltigen Bereichs Es wird ein neues File erstellt (die Bezeichnung ist 100) aber das sieht nicht so aus wie es sollte.
ub test2() Datei = Dir$(Pfad & "*") While Len(Datei) Datei = Dir$ Wend Verfasst am: 11. Jul 2013, 11:34 Rufname: @ eierlein Irgendwie funktionieren beide Makros nicht @ Case Konntest du schon was ausprobieren? Verfasst am: 11. Jul 2013, 12:42 Rufname: Case dazu brauche ich noch ein paar Beispieldateien? Verfasst am: 11. Jul 2013, 12:50 Rufname: Die hab ich dir vor 3 Tagen geschickt;) Aber dann mach ich es nochmal. Verfasst am: 11. Jul 2013, 12:57 Rufname: Case Uuuupppsss.. habe keine bekommen - nichtmal im SPAM-Ordner. So sind angekommen und mit folgendem angepassten Code von Grli habe ich alle problemlos einlesen knnen: Code: Option Explicit Sub DatenUebertragung() Dim strPfad As String reenUpdating = False strPfad = "C:\Temp\Messdaten-CSV" ' Pfad zu den csv Dateien anpassen Text, Local:=True ar = heets(1) _ ("H2:H" & Cells(, 8)(xlUp)) '**** Tabellennamen anpassen (2, Cells(2, )(xlToLeft) + 1)(UBound(ar, 1)) = ar Next f1 reenUpdating = True Verfasst am: 11. Jul 2013, 13:19 Rufname: Hey Case DU BIST SUPER!!!