Wie importiere ich mehrere CSV Dateien ohne ihre erste Zeile auf einen Schlag untereinander in ein Excelsheet (Makro)?

Moin ihr Lieben. Ich habe folgendes Problem. Ich brauche genau eine Funktion die Excel schon hat.. aber etwas geändert. Undzwar gibt es ja die Möglichkeit unter Datei -> Externe Daten importieren -> Aus Text, CSV Dateien sehr gut zu importieren. Dort kann man angeben ab welcher Zeile der CSV Datei erst importiert werden soll, weil z.B. in der ersten Zeile nur Überschriften stehen. Mein Problem ist das dies immer nur mit einer zur Zeit geht. Kennt jemand ein Makro mit welchem dies geht bloß eben mit mehreren? Das man sagt: die ersten 3 Zeilen immer ignorieren und alles andere ab A1 oder so untereinadner einfügen?

Wäre eine super Hilfe!!!

Answer 1

[Ghanasoccer]

Option Explicit

'Quelle: http://www.office-loesung.de/ftopic416826_0_0_asc.php 
'bitte noch anpassen! Besonders die 3 Löschzeilen




Sub x()


   Dim fd As FileDialog


   Dim strFolder As String


   Dim strName As String





   Set fd = Application.FileDialog(msoFileDialogFolderPicker)


   If fd.Show <> -1 Then Exit Sub





   strFolder = fd.SelectedItems(1) & "\"


   strName = Dir(strFolder & "*.csv")


   While Len(strName) > 0


      Workbooks.OpenText Filename:=strFolder & strName, Local:=True


      Rows(1).Delete


      ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)


      ActiveWorkbook.Close False


      strName = Dir


   Wend


End Sub 

Comments

[AtrelonLP]

DANKE DANKE DANKE!!!! Muss das nur noch etwas anpassen aber es macht was es soll!!!! *___* Nach 4 Tagen eine Lösung danke!!