Thema Datum  Von Nutzer Rating
Antwort
10.02.2017 10:33:39 KittyKat
NotSolved
10.02.2017 15:39:48 gast
NotSolved
Rot Wie importiere ich mehrere CSV Dateien ohne ihre erste Zeile auf einen Schlag untereinande
 13.02.2017 10:21:29 KittyKat
NotSolved
13.02.2017 11:02:31 gast
NotSolved
14.02.2017 14:43:00 SJ
NotSolved
14.02.2017 15:04:16 SJ
*****
Solved
15.02.2017 08:55:29 KittyKat
NotSolved
16.02.2017 09:43:36 Gast87331
NotSolved
16.02.2017 09:51:01 SJ
NotSolved

Ansicht des Beitrags:
Von:
KittyKat		 Datum:
13.02.2017 10:21:29		 Views:
675		 Rating:
     
Antwort:
  Ja
Thema:
Wie importiere ich mehrere CSV Dateien ohne ihre erste Zeile auf einen Schlag untereinande

Bis jetzt so .. da fehlt noch das Löschen der ersten Zeile und wie kann ich angeben in welches Sheet das kopiert werden soll?

Option Explicit


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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.02.2017 10:33:39 KittyKat
NotSolved
10.02.2017 15:39:48 gast
NotSolved
Rot Wie importiere ich mehrere CSV Dateien ohne ihre erste Zeile auf einen Schlag untereinande
 13.02.2017 10:21:29 KittyKat
NotSolved
13.02.2017 11:02:31 gast
NotSolved
14.02.2017 14:43:00 SJ
NotSolved
14.02.2017 15:04:16 SJ
*****
Solved
15.02.2017 08:55:29 KittyKat
NotSolved
16.02.2017 09:43:36 Gast87331
NotSolved
16.02.2017 09:51:01 SJ
NotSolved