Ich möchte in einem Ordner nach bestimmten Dateinamen suchen (es handelt sich um Bilder)
Wenn diese Bilder in dem Ordner vorhanden sind, so sollen sie in einem anderen Ordner nochmals gespeichert werden.
Ziel ist also eine Selection bestimmter Bilder aus einer Vielzahl.
Mein VBA-Code findet soweit auch alle Bildernamen - nur kann ich diese Bilder leider nicht woanders abspeichern.
Dazu einmal mein Code
arrSN = Range(Cells(2, 2), Cells(Rows.Count, 1).End(xlUp))
arrSNlength = UBound(arrSN()) + 1
arrImages = Range(Cells(2, 40), Cells((arrSNlength * 3), 39))
Set WBZ = ActiveWorkbook
Set WBZ1 = WBZ.Worksheets("images")
iSN = 1
iImages = 1
ChDrive ThisWorkbook.Path & "\images"
ChDir ThisWorkbook.Path & "\images\"
Do While iSN < arrSNlength
Name = arrSN(iSN, 2)
Importdatei(0) = Name & ".jpg"
Importdatei(1) = Name & "1*.jpg"
Importdatei(2) = Name & "2*.jpg"
ChDrive ThisWorkbook.Path & "\images"
ChDir ThisWorkbook.Path & "\images\"
Worksheets("images").Range(Worksheets("images").Cells(iImages + 1, 1), Worksheets("images").Cells(iImages + 1, 1)) = Importdatei
For liSchleife = 0 To 2
ImportdateiDir = Importdatei
ImportdateiDir = Dir(ImportdateiDir(liSchleife))
Select Case ImportdateiDir
Case ""
Name2 = Importdatei
Worksheets("images").Range(Worksheets("images").Cells(iImages + 1, 2), Worksheets("images").Cells(iImages + 1, 2)) = Name2
Worksheets("images").Range(Worksheets("images").Cells(iImages + 1, 3), Worksheets("images").Cells(iImages + 1, 3)) = "nV"
iImages = iImages + 1
Case Else
Name2 = ImportdateiDir
WQ = ImportdateiDir
Worksheets("images").Range(Worksheets("images").Cells(iImages + 1, 2), Worksheets("images").Cells(iImages + 1, 2)) = Name2
Worksheets("images").Range(Worksheets("images").Cells(iImages + 1, 3), Worksheets("images").Cells(iImages + 1, 3)) = "XXX"
iImages = iImages + 1
ImportdateiDir.SaveAs Filename:="ThisWorkbook.Path & "\images2" & Name2
End Select
Next liSchleife
iSN = iSN + 1
Loop
End Sub
An der Stelle
ImportdateiDir.SaveAs Filename:="ThisWorkbook.Path & "\images2" & Name2
verlangt Excel ein Objekt.
Wie also könnt ich diesen Fehler umgehen?
Bistimmt hat jemand eine Lösung!
Vielen Dank
Gruß Jana