MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Sonstiges > Pro und Contra MS-Office-Forum
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Thema geschlossen
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 08.05.2017, 14:24   #1
charls85
Neuer Benutzer
Neuer Benutzer
Standard Frage - Excel VBA Code für unterordner durchsuchen nach bilder Namen in Tabelle A1 - A500

hallo ich wollte wissen wie ich auch die Unterordner durchsuchen kann nach Bilder, weil aktuell mit dem Code unten durchsucht er mir nur den angegebenen Ordner ? Vielen Dank im Voraus !



Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Sub copyPicture()
Dim objFSO As Object
Dim strPath As String, strNewPath As String
Dim rng As Range


strPath = "C:UsersinfoDesktopideal" 'Verzeichnis mit den Bildern - Anpassen!

If Right(strPath, 1) <> "" Then strPath = strPath & ""

strNewPath = "C:UsersinfoDesktopbilderfürwilly" 'Verzeichnis in welches die Bilder kopiert werden sollen - Anpassen!

If Right(strNewPath, 1) <> "" Then strNewPath = strNewPath & ""

If MakeSureDirectoryPathExists(strNewPath) <> 0 Then

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each rng In Sheets("Tabelle1").Range("A1:A500") 'Tabellenname und Bereich anpassen
If rng <> "" Then
If Dir(strPath & rng.Text) <> "" Then
objFSO.CopyFile strPath & rng.Text, strNewPath & rng.Text
End If
End If
Next
Else
MsgBox strNewPath & " konnte nicht erstellt werden!"
End If
End Sub
charls85 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Alt 09.05.2017, 11:09   #2
charls85
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo zusammen, kann mir evtl jemand helfen ?
charls85 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Alt 10.05.2017, 09:24   #3
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Was hat Deine Frage mit Pro und Contra zu tun?

Wenn Du im Excel-Bereich des Forums suchst, wirst Du viele passende Beispiele finden.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Alt 10.05.2017, 12:27   #4
charls85
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

oh je das hab ich auch gemerkt gerade, kenne mich noch nicht so gut aus im Forum. Wie kann die das hier verschieben ?
charls85 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Alt 10.05.2017, 14:08   #5
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Zitat: von charls85 Beitrag anzeigen

Wie kann die das hier verschieben ?

Gar nicht. Verschieben machen die Moderatoren nur aus wichtigem Grund und der liegt hier wohl nicht vor.

Aber such doch erst einmal im Excel-Forum. Vergleichbare Fragen sind schon x-Mal gestellt und genauso oft auch beantwortet worden.

In Deinem Falle geht es wohl nur darum, vorab auch die Unterordner des einzigen Pfades zu ermitteln und dann erst den Abgleich zu machen, ob und in welchem Ordner die Quelldatei sitzt. Für das Kopieren braucht man übrigens kein FileSystemObject. Das kann VBA auch alleine.

[EDIT]: Ich sehe grad, dass der TE die Frage inhaltsgleich neu platziert hat. Forumssuche ist wohl doch zu mühsam.

__________________

Hang loose, haklesoft

Geändert von haklesoft (10.05.2017 um 14:30 Uhr).
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Ads
Thema geschlossen


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:27 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.