Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei Kopieren wenn der Name in einer Liste Steht

Datei Kopieren wenn der Name in einer Liste Steht
02.03.2017 07:45:18
A.Kappler
Hallo Zusammen,
Ich habe in einem Ordner (C:\Vteile) ca. 10.000 PDF-Dateien.
Nun bekomme ich eine Liste mit ca. 300 Einträgen ( Nummern die den ersten 8 Zahlen der Dateinamen entsprechen z.B. 40402289) Nun möchte ich die Liste per Makro durchgehen und wenn die Nummer aus der Liste den ersten 8 Zahlen des Dateinamens entspricht soll diese Kopiert werden.
bisher habe ich das wie folgt:
(braucht extrem lange.

Option Explicit
Sub copy()
Dim fs As Object
Dim fVerz As Object
Dim fso As Object
Dim Datei As Object
Dim Dateien As Object
Dim strPfad1 As String, strPfad2 As String
Dim lngRow As Long
Dim DNM As String
Dim DNMCHK As String
Dim Weiterbed As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.Getfolder(Range("F4").Text)
Set Dateien = fVerz.Files
strPfad1 = Range("F4").Text
strPfad2 = Range("F9").Text
For Each Datei In Dateien
For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(lngRow, 1).Activate
Weiterbed = Left(Cells(lngRow, 1).Text, 2)
If Not Weiterbed = "30" Then
DNM = Left(Datei.Name, 8)
DNMCHK = Cells(lngRow, 1).Text
If DNMCHK = DNM Then
fso.CopyFile strPfad1 & Datei.Name, strPfad2, True
Exit For
End If
Next
End If
Next
End Sub
Hat mir einer einen Vorschlag wie das Schneller Geht?
P.S.
Entschuldigt die Chaotische Struktur.......

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei Kopieren wenn der Name in einer Liste Steht
02.03.2017 08:29:56
harry
Hallo,
vielleicht ist es schneller erstmal eine Excelliste mit den Dateinamen zu erstellen
z.B. so:
Dim strVerzeichnis As String
Dim i As Integer
Dim Dateiname As String
strVerzeichnis = "C:\Vteile\"
Dateiname = Dir(strVerzeichnis)
i = 1
Do While Dateiname  ""
Worksheets("tabelle2").Range("a" & i).Value = Dateiname
Dateiname = Dir
i = i + 1
Loop
und dann diese auf Deine Bedingungen zu prüfen
Grüße
harry
AW: Datei Kopieren wenn der Name in einer Liste Steht
02.03.2017 10:46:46
A.Kappler
HAllo,
Danke für die antwort.
Habe eine Lösung
AW: Datei Kopieren wenn der Name in einer Liste Steht
02.03.2017 10:59:47
harry
Hallo,
und wie hast Du's gemacht?
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige