Thema Datum  Von Nutzer Rating
Antwort
04.08.2016 22:06:47 Jenny
Solved
04.08.2016 22:33:27 Gast89980
NotSolved
04.08.2016 23:44:37 Jenny
NotSolved
05.08.2016 08:03:24 Gast10413
NotSolved
05.08.2016 08:55:59 Jenny
NotSolved
Blau Daten aus mehreren Dateien importieren
 05.08.2016 09:48:49 Gast18151
Solved
05.08.2016 15:12:10 Jenny
NotSolved

Ansicht des Beitrags:
Von:
Gast18151		 Datum:
05.08.2016 09:48:49		 Views:
733		 Rating:
     
Antwort:
 Nein
Thema:
Daten aus mehreren Dateien importieren

Moin! Der war gut - aber auch unklar gefragt, gebe ich zu. :-) Der Ordnername bringt natürlich nicht viel, brauche den Pfad dazu. Also unten der geänderte Code. Es werden nur noch Werte kopiert. Danach wird die Datei wieder geschlossen und verschoben. Dazu bitte den Pfad2 anpassen. Habe mal den Ordnernamen als Unterordner vom Startpfad interpretiert. Bitte so anpassen, wie der Pfad wirklich heißt. Und ich prüfe nicht, ob der Pfad existiert. Falls de Pfad nicht passt, kommt eine Fehlermeldung. VG

Option Explicit

Sub einlesen()
Dim fso As Object
Dim pfad As String
Dim start As Object
Dim neu As Object
Dim ende As Long
Dim ordner As Object
Dim datei As Object

Set start = ThisWorkbook.Worksheets(2)
Set fso = CreateObject("Scripting.Filesystemobject")

pfad = "C:\Bestellungen\Uebersicht\Kunden"
pfad2 = "C:\Bestellungen\Uebersicht\Kunden\Ausgelesen"
ende = start.Cells(start.Rows.Count, 1).End(xlUp).Row + 1

Set ordner = fso.getfolder(pfad)

For Each datei In ordner.Files
    If Right(datei.Name, 4) = ".xls" Or Right(datei.Name, 5) = ".xlsx" Or Right(datei.Name, 5) = ".xlsm" Then
        Workbooks.Open pfad & "\" & datei.Name
        Set neu = ActiveWorkbook
        neu.Worksheets(1).Rows(3).Copy
        start.Cells(ende, 1).PasteSpecial xlValues
        Application.CutCopyMode = False
        ende = ende + 1
        neu.Close

        fso.MoveFile pfad & "\" & datei.Name, pfad2 & "\" & datei.Name
        
    End If
Next

Set neu = Nothing
Set start = Nothing
Set fso = Nothing
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
04.08.2016 22:06:47 Jenny
Solved
04.08.2016 22:33:27 Gast89980
NotSolved
04.08.2016 23:44:37 Jenny
NotSolved
05.08.2016 08:03:24 Gast10413
NotSolved
05.08.2016 08:55:59 Jenny
NotSolved
Blau Daten aus mehreren Dateien importieren
 05.08.2016 09:48:49 Gast18151
Solved
05.08.2016 15:12:10 Jenny
NotSolved