Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CSV-Dateien in 1 EXCEL-Datei überführen

CSV-Dateien in 1 EXCEL-Datei überführen
26.09.2003 13:50:07
thekla
Hallo,
folgende Aufgabenstellung:
n CSV-Dateien sollen in 1 EXCEL-Datei als n Tabellen eingefügt werden.
Üblicherweise wird beim Öffnen 1 CSV-Datei 1 EXCEL-Datei erzeugt.
Gibt es Lösungen?
Evt. mit Hilfe von Makros/VBA.
Vielen Dank.
Gruss Thekla

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

Betreff
Datum
Anwender
Anzeige
AW: CSV-Dateien in 1 EXCEL-Datei überführen
26.09.2003 14:06:16
xXx
Hallo,
das sollte helfen:

Sub csv()
With Application.FileSearch
.LookIn = "c:\test"
.Filename = "*.csv"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i))
Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "CSV_" & i
Workbooks(.FoundFiles(i)).Close savechanges = False
Next i
End If
End With
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen!
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige