Verzeichnisse verschieben

Walter_Haefliger · 21. März 2012 um 08:53

Ich suche einen Excel Makro Code der mir Verzeichnisse inklusive Inhalt und Unterverzeichnisse von T:\NM_E&T\NE_NW_Implement\NE_PMO\17_IOE_2012 nach
T:\NM_E&T\NE_NW_Implement\NE_PMO\18_IOE_2011 verschiebt.

Die Unterverzeichnisse haben immer die gleich Struktur.
IOE_11980_Hub Altdorf Segmentation mbsALT001
Die Nummer steht auf einer Excel-Liste in Spate A.

Das Makro soll nach den Verzeichnis dessen Nummer in der Liste steht suchen und es verschieben.
Beginnen mit dem Wert aus A3 dann A4 usw.

Vielen Dank für eure Hilfe

Mit freundlichen Grüssen

Walti

Waldemar_Wesner · 21. März 2012 um 09:24

Hallo Walti,

füge in Excel-VBA-Editor eine Referenz zu ‚Windows Scripting Host Object Model‘ hinzu, deklariere eine Variable vom Typ ‚IWshRuntimeLibrary.FileSystemObject‘, (z.B.im fso As New IWshRuntimeLibrary.FileSystemObject) und lege damit los.
Alle Datei/Ordner-Manipulationsfunktionen sin in diesem Objekt drin. Was und wie verschoben wird ist dir überlassen.

MfG.
W.W.

Walter_Haefliger · 21. März 2012 um 10:38

Hallo Waldemar

Ich bin ein Neuling in Sachen VBA ect.
Deshalb verstehe ich nich ganz was du meinst

Gruss

Walti

Waldemar_Wesner · 21. März 2012 um 12:09

Hallo Walter,
(Referenz in VB Verweis in VBA)
Excel starten,
‚ALT+F11‘ (VBA Editor),
‚Extras‘ / ‚Verweise‘,
‚Windows Scripting Host Object Model‘ in der Liste auswählen und mit ‚OK‘ bestätigen.

Jetzt hast du eine Referenz zu ‚Windows Scripting Host Object Model‘ hinzugefügt und kannst die Klassen dieser Bibliothek nutzen.

MfG.
W.W.

Sumpfkuh76 · 21. März 2012 um 12:26

Hallo,
leider kann ich Ihnen hier gar nicht helfen.
LG Sandra Lang

Walter_Haefliger · 21. März 2012 um 13:51

Hallo Waldemar
Ich habe einen Code bekommen, der fast genau das macht was ich möchte.
Public Sub Foldermove()
Dim FsyObjekt As Object
Dim x As Integer
Dim IOEName As String
Set FsyObjekt = CreateObject(„Scripting.FileSystemObject“)

For x = 3 To Sheets(„IOE_Liste“).Cells(Rows.Count, 1).End(xlUp).Row
IOEName = Sheets(„IOE_Liste“).Cells(x, 1)
FsyObjekt.moveFolder „T:\NM_E&T\NE_NW_Implement\NE_PMO\17_IOE_2012\IOE_“ & IOEName & „*“, „T:\NM_E&T\NE_NW_Implement\NE_PMO\18_IOE_2011“
Next x
End Sub

Leider bleibt er mir hängen, wenn er ein Verzeichnis nicht finden.
Weisst du wie ich es hinbekommen, dass er mir, wenn ein Verzeichnis nich vorhanden ist, zur nächsten Zeile springt?

Gruss

Walti

Waldemar_Wesner · 21. März 2012 um 16:33

Hallo Walter,
dann musst du prüfen, ob Zielordner existiert und, falls nicht, erstellen.
z.B.:

If Not f.FolderExists(ordnerName) Then
 f.CreateFolder ordnerName
End If

MfG.
W.W.

Christiane_Helbach · 21. März 2012 um 17:43

Hallo Walti,

leider kann ich bei dieser Frage nicht weiterhelfen, da ich im Programm Excel nur ueber einfache Grundkenntnisse verfuege.

Gruss

Chris

Penka · 21. März 2012 um 17:56

Dies würde ich mit Windows Scripting oder einem Batchjob machen.

Softoldi_ad909c · 21. März 2012 um 18:36

Hallo Haefliger,

dafür solltest du einen Dateimanager nehmen und nicht Excel.
Excel ist eine Tabellenkalkulation mit der man einiges machen kann. Da ich aber keine Komplettlösungen unterstütze, sondern nur bei „Problemen“ helfe, musst du dich leider weiter bemühen.

mfg
Softoldi

Hugo_a97cd9 · 21. März 2012 um 19:11

Hallo Herr Haefliger,

leider sind meine VBA-Kenntnisse nicht so umfassend dass ich helfen kann.

Gruß Hugo

Walter_Haefliger · 22. März 2012 um 08:31

Hallo Hugo

Ich habe inzwischen den Code bekommen

Public Sub Foldermove()
Dim FsyObjekt As Object
Dim x As Integer
Dim IOEName As String
Set FsyObjekt = CreateObject(„Scripting.FileSystemObject“)

For x = 3 To Sheets(„IOE_Liste“).Cells(Rows.Count, 1).End(xlUp).Row
IOEName = Sheets(„IOE_Liste“).Cells(x, 1)
FsyObjekt.moveFolder „T:\NM_E&T\NE_NW_Implement\NE_PMO\17_IOE_2012\IOE_“ & IOEName & „*“, „T:\NM_E&T\NE_NW_Implement\NE_PMO\18_IOE_2011“
On Error Resume Next
Next x

End Sub

Den Pfad müssen Sie natürlich anpassen!

Gruss

W. Häfliger

Walter_Haefliger · 22. März 2012 um 08:36

Hallo Softloid

Mit diesem Code klppt es auch mit Excel.

Public Sub Foldermove()
Dim FsyObjekt As Object
Dim x As Integer
Dim IOEName As String
Set FsyObjekt = CreateObject(„Scripting.FileSystemObject“)

For x = 3 To Sheets(„IOE_Liste“).Cells(Rows.Count, 1).End(xlUp).Row
IOEName = Sheets(„IOE_Liste“).Cells(x, 1)
FsyObjekt.moveFolder „T:\NM_E&T\NE_NW_Implement\NE_PMO\17_IOE_2012\IOE_“ & IOEName & „*“, „T:\NM_E&T\NE_NW_Implement\NE_PMO\18_IOE_2011“
On Error Resume Next
Next x

End Sub

Gruss
W. Häfliger

Natator_4b5d3d · 22. März 2012 um 08:38

Hallo Walti,

leider kenne ich mich mit Manipulationen von Dateien und Verzeichnissen gar nicht aus.

Vielleicht hilft dir aber diese Seite weiter:
http://www.office-loesung.de/ftopic69558_0_0_asc.php…

Gruß
Natator

Walter_Haefliger · 22. März 2012 um 08:39

Hallo Penka

Geht auch mit disem Code
Public Sub Foldermove()
Dim FsyObjekt As Object
Dim x As Integer
Dim IOEName As String
Set FsyObjekt = CreateObject(„Scripting.FileSystemObject“)

For x = 3 To Sheets(„IOE_Liste“).Cells(Rows.Count, 1).End(xlUp).Row
IOEName = Sheets(„IOE_Liste“).Cells(x, 1)
FsyObjekt.moveFolder „T:\NM_E&T\NE_NW_Implement\NE_PMO\17_IOE_2012\IOE_“ & IOEName & „*“, „T:\NM_E&T\NE_NW_Implement\NE_PMO\18_IOE_2011“
On Error Resume Next
Next x

End Sub

Gruss

Walti

Dies würde ich mit Windows Scripting oder einem Batchjob
machen.

Walter_Haefliger · 22. März 2012 um 08:44

Hallo Waldemar
Habe das Problem gelöst.
Public Sub Foldermove()
Dim FsyObjekt As Object
Dim x As Integer
Dim IOEName As String
Set FsyObjekt = CreateObject(„Scripting.FileSystemObject“)

For x = 3 To Sheets(„IOE_Liste“).Cells(Rows.Count, 1).End(xlUp).Row
IOEName = Sheets(„IOE_Liste“).Cells(x, 1)
FsyObjekt.moveFolder „T:\NM_E&T\NE_NW_Implement\NE_PMO\17_IOE_2012\IOE_“ & IOEName & „*“, „T:\NM_E&T\NE_NW_Implement\NE_PMO\18_IOE_2011“
On Error Resume Next
Next x

End Sub

Gruss
Walti

Walter_Haefliger · 22. März 2012 um 08:46

Hallo Natator
So geht’s

Public Sub Foldermove()
Dim FsyObjekt As Object
Dim x As Integer
Dim IOEName As String
Set FsyObjekt = CreateObject(„Scripting.FileSystemObject“)

For x = 3 To Sheets(„IOE_Liste“).Cells(Rows.Count, 1).End(xlUp).Row
IOEName = Sheets(„IOE_Liste“).Cells(x, 1)
FsyObjekt.moveFolder „T:\NM_E&T\NE_NW_Implement\NE_PMO\17_IOE_2012\IOE_“ & IOEName & „*“, „T:\NM_E&T\NE_NW_Implement\NE_PMO\18_IOE_2011“
On Error Resume Next
Next x

End Sub

Gruss

Walti

Natator_4b5d3d · 22. März 2012 um 08:57

Hallo Walti,

vielen Dank für die Rückmeldung und den Code!

Gruß
Natator

Waldemar_Wesner · 22. März 2012 um 10:39

Hallo Walti,
‚On Error Resume Next‘ lässt dein Makro einfach weitermachen ohne auf die Fehler zu reagieren. Somit bekommst du gar nicht mit, dass das Makro irgend etwas nicht gemacht hat, worauf du dich aber verlässt, dass es da ist!

‚OnError Resume Next‘ sollst du nur in einem Extremfall eines WIRKLICH unvorhergesehenen Fehlers verwenden (oder wenn es dir Sch**ß egal ist ob das Ergebniss richtig ist). In allen anderen Fällen solltest du ‚On Error Goto nnn‘ verwenden und die Fehler zumindest Protokollieren.

In deinem Fall MUSST du abel das Vorhandensein deines Zielordners prüfen und ggf. diesen Ordner erstellen. Die Logik dazu musst du dir selbst überlegen (oder googeln).
MfG.
W.W.

Anonym · 22. März 2012 um 17:44

hallo walti,

gerade habe ich geschaut, ob es schon antworten gibt, aber sie scheinen mir vielleicht noch nicht befriedigend zu sein. leider habe ich im moment gar keine zeit und bin demnächst verreist. ostern hätte ich zeit. wenn du mir also gründonnerstag schreibst, daß deine anfrage noch nicht gelöst ist, schaue ich es mir nochmal an. aber sehr wahrscheinlich ist bis dahin ja schon alles klar.

viel erfolg!