Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.08.2016 22:06:47 |
Jenny |
|
|
Daten aus mehreren Dateien importieren |
04.08.2016 22:33:27 |
Gast89980 |
|
|
|
04.08.2016 23:44:37 |
Jenny |
|
|
|
05.08.2016 08:03:24 |
Gast10413 |
|
|
|
05.08.2016 08:55:59 |
Jenny |
|
|
|
05.08.2016 09:48:49 |
Gast18151 |
|
|
|
05.08.2016 15:12:10 |
Jenny |
|
|
Von:
Gast89980 |
Datum:
04.08.2016 22:33:27 |
Views:
785 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Daten aus mehreren Dateien importieren |
04.08.2016 22:33:27 |
Gast89980 |
|
|
|
04.08.2016 23:44:37 |
Jenny |
|
|
|
05.08.2016 08:03:24 |
Gast10413 |
|
|
|
05.08.2016 08:55:59 |
Jenny |
|
|
|
05.08.2016 09:48:49 |
Gast18151 |
|
|
|
05.08.2016 15:12:10 |
Jenny |
|
|