Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrere csv Dateien im Ordner öffnen

mehrere csv Dateien im Ordner öffnen
08.10.2019 16:15:00
Patrick
Ich kann eine csv Datei öffnen und die gewünschten Zellen kopieren, dann beginnt die Schlaufe von vorne und bricht beim erneuten öffnen der nächsten csv Datei ab mit der Meldung:
Laufzeitfehler '9':
Index ausserhalb des gültigen Bereichs
ich verstehe den Fehler nicht noch habe ich irgendwo gefunden, wie ich mehrere csv Dateien der Reihe nach öffnen kann.
der Code soweit:
Private Sub Einlesen_Click()
pfad = Application.ActiveWorkbook.Path        'Pfad von aktuellem Excel file speichern -  _
kann nicht angezeigt werden...?
Filename = ThisWorkbook.Name                  '"ECL_Partikelmessung.xlsm"
pfado = pfad & "\"                            'N:\010-DS-CH\225-ECL\20_Docu\01_Cleanroom\ _
10_particle_measurements\ortsaufgeloest\ECL Partikel 191026\
datnam = Dir(pfado & "*.csv")                 'Dateiname wird eingelesen        "ecl01a.csv" _
LeereZeile = Sheets("Historie").Cells(1, 1)   'bei A1 wird die Aktuelle Zeile ausgegeben wo  _
eingetragen werden soll
LeereSpalte = 2                               'Laufvariable um gewünschte Spalte für die  _
Einträge zu finden
MsgBox "Dateiname: " & datnam
'Start der Schleife um die Daten ins Hauptformular einzutragen
Do While datnam  ""
ECLplatz = Sheets("Historie").Cells(3, LeereSpalte) & ".csv" 'PROBLEM ZEILE NACH DEM  _
ERSTEN DURCHLAUF!!!**********************************************************************
Workbooks.Open (pfado & datnam)          'öffnet das csv File
sheetnam = Workbooks(datnam).ActiveSheet.Name
'Im Hauptformular die Stelle Finden, welche mit dem Filename übereinstimmt um dort einzutragen
Do While datnam  ECLplatz
LeereSpalte = LeereSpalte + 4
ECLplatz = Workbooks(Filename).Sheets("Historie").Cells(3, LeereSpalte) & ".csv"
Loop
'Die 4 Zellen (0.3 bis 1um) werden vom csv File ins Hauptformular übertragen
Text = Split(Workbooks(datnam).Sheets(sheetnam).Cells(2, 1), ";")
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte + 3) = Text(1)      _
'0.3um
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte + 2) = Text(2)      _
'0.5um
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte + 1) = Text(3)      _
'0.7um
Workbooks(Filename).Sheets("Historie").Cells(LeereZeile, LeereSpalte) = Text(4)          _
'1.0um
MsgBox "loop ende"
Loop
MsgBox "makro fertig"
Close #1
End Sub

Danke für eure Imputs :)
Patrick

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere csv Dateien im Ordner öffnen
08.10.2019 16:55:13
Regina
Hi,
wenn ich das richtig sehe, musst Du nur erneut Dir aufrufen.
Ersetz mal
MsgBox "loop ende" durch
datnam = Dir
Dir wird in diesem Fall ohne Pfadangabe aufgerufen, startet sonst wieder bei der ersten Datei.
Gruß
Regina
AW: mehrere csv Dateien im Ordner öffnen
08.10.2019 17:14:53
Patrick
Hammer, merci vielmals.
Weisst du zufällig auch wie ich die csv Fenster automatisch schliessen kann? Der öffnet mir jetzt so 60 Fenster und geht dann doch langsam in die Knie.
AW: mehrere csv Dateien im Ordner öffnen
08.10.2019 17:47:34
Regina
... versuch mal
Workbooks(datnam).close vor dem
datnam = Dir
gruß
Regina
AW: mehrere csv Dateien im Ordner öffnen
09.10.2019 07:44:01
Patrick
jetzt läufts, danke
AW: mehrere csv Dateien im Ordner öffnen
08.10.2019 16:58:16
Luschi
Hallo Patrick,
schau Dir doch mal das folgende Video an: https://www.youtube.com/watch?v=hgxmTRglrQA
Das selbe Prinzip kannst Du auf die csv-Dateien anwenden.
Du wirst feststellen, das bei Dir vor Loop ein entscheidender Befehl fehlt: datnam = Dir
Gruß von Luschi
aus klein-Paris
PS: wozu die 2. Do While-Schleife innerhalb der 1. nötig ist, hat sich mir nicht erschlossen.
Anzeige
AW: mehrere csv Dateien im Ordner öffnen
08.10.2019 17:22:52
Patrick
Hallo Luschi,
Danke auch dir für dein Super Beitrag. Mit der zweiten Schleife ordne ich den Inhalt der csv Dateien meiner Liste zu. Da die Abfolge der csv Dateien anders ist als meine Liste muss ich die richtige Stelle finden um dort den Eintrag zu machen.
Ich hätte auch die csv Dateien nach der Abfolge meiner Liste suchen und öffnen können, was jedoch zu Problemen führt, wenn eine Datei mal fehlt.
in diesem Sinne, nochmals Danke
AW: mehrere csv Dateien im Ordner öffnen
08.10.2019 20:53:31
snb
Wir machen das so:
Sub M_snb()
sn=filter(split(createobject("wsript.shell").exec("cmd /c dir ""N:\010-DS-CH\225-ECL\20_Docu\ _
01_Cleanroom\10_particle_measurements\ortsaufgeloest\ECL Partikel 191026\*.csv"" /b/s").stdout.readall,vbCrLf),"/")
with createobject("scripting.filesystemobject")
for j=0 to ubound(sn)
sp=split(.opentextfile(sn(j)).readall,vbCrLf)
'  und noch etwas zum bewerten
next
end with
End Sub

Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige