Thema Datum  Von Nutzer Rating
Antwort
04.08.2016 22:06:47 Jenny
Solved
Blau Daten aus mehreren Dateien importieren
 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
05.08.2016 09:48:49 Gast18151
Solved
05.08.2016 15:12:10 Jenny
NotSolved

Ansicht des Beitrags:
Von:
Gast89980		 Datum:
04.08.2016 22:33:27		 Views:
735		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus mehreren Dateien importieren

Hallo Jenny!

Wenn dein Pfad stimmt, sollte es so gehen. Dabei werden alle Dateien die xls, xlsx oder xlsm (je nach deiner Office Versin ggf. anpassen) sind geöffnet und die 3 Zeile übertragen. Den Code aus deriner Datei Bestellungen starten. Bei jedem Aufruf werden alle Dateien die passen ausgelesen. Der Code merkt sich aber nicht, welche Dateien das waren. Als bei einem neuen Start, nimmt er auch wieder alle vorhandenen. Du musst also dafür sorgen, das vor dem Start nur "neue" Dateien vorhanden sind - wobei man nach dem Auslesen auch die Datei auch gleich verschieben könnte. Ansonsten könnten die Daten doppelt erscheinen.

VG

 

 

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"

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)
        ende = ende + 1
        neu.Close
    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
Blau Daten aus mehreren Dateien importieren
 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
05.08.2016 09:48:49 Gast18151
Solved
05.08.2016 15:12:10 Jenny
NotSolved