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