Vorlageordner kopieren und gem. Excel umbenennen
09.10.2017 09:54:47
Gregy
ich benötige Unterstützung! Ich möchte einen Vorlagenordner mit einem gewissen Inhalt komplett kopieren, im gleichen Verzeichnis einfügen und gem. der Excelaufstellung nach 2 SPalten benennen.
Ähnliches habe ich vor kurzem schon einmal gemacht (Ordner erstellen und gem. Excel benennen.) Der bisherige Code war
Sub ordner_anlegen()
Dim intzeile As Integer
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
intzeile = 2
With Worksheets("Help")
Do While Not IsEmpty(.Range("B" & intzeile))
fs.createfolder ("C:\Temp\Ordner\" & "Anlage " & .Range("B" & intzeile))
intzeile = intzeile + 1
Loop
End With
End Sub
Sub ordner_anlegen()
Dim intzeile As Integer
Dim fs As Object
'Set fs = CreateObject("Scripting.FileSystemObject")
intzeile = 2
With Worksheets("RisiExport")
Do While Not IsEmpty(.Range("F" & intzeile))
FileSystemObject.CopyFolder ("C:\Users\Alle\Desktop\Test\Vorlage\*" = "C:\Users\ _
_
Alle\Desktop\Test\" & .Range("B" & intzeile) & .Range("F" & intzeile))
intzeile = intzeile + 1
Loop
End With
End Sub
Vielen Dank im Voraus!
Anzeige
