Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1180to1184
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

Alle csv Dateien aus Ordner importieren

Alle csv Dateien aus Ordner importieren
Daniel
Hallo,
ich würde gerne aus einem bestimmten Ordner
1. alle vorhandenen *.csv files importieren und im aktuellen sheet zeilenweise auflisten (jede csv datei enthält auch nur eine Zeile)
2. nach erfolreichem import die entsprechenden csv dateien löschen
Kann mir jemand zeigen, wie das geht?
Daniel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Alle csv Dateien aus Ordner importieren
25.10.2010 10:52:11
Rudi
Hallo,
Sub tt()
Dim strFile As String
Dim strDaten, arrTmp
Const cstrFolder As String = "c:\Test\"  'anpassen
Application.ScreenUpdating = False
strFile = Dir(cstrFolder & "*.csv")
Do While strFile  ""
Open cstrFolder & strFile For Input As #1
strDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
arrTmp = Split(strDaten(0), ";")
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(arrTmp) + 1) = _
WorksheetFunction.Transpose(WorksheetFunction.Transpose(arrTmp))
'Kill cstrFolder & strFile 'Datei löschen
strFile = Dir
Loop
End Sub

Gruß
Rudi
Anzeige
AW: Alle csv Dateien aus Ordner importieren
25.10.2010 11:35:25
Daniel
Danke!

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige