VBA | Dateien kopieren
13.12.2018 08:20:55
Jens
ich habe aktuell folgendes Thema, wäre super wenn mir jemand helfen könnte:
In Ordner01 liegen Dateien, in den Zellen AX13:AX1000 sind einige der Dateien aufgelistet. Nach Durchführung der Routine werden die aufgelisteten Dateien in den Ordner02 kopiert - soweit funktioniert das alles.
1.)Jetzt würde ich gerne in meinem Sheet in zwei Zellen jeweils den Pfad zu Ordner 01 & 02 einfügen und diese Zellen dann in der VBA-Eingabe verlinken - geht das?
2.)Idealerweise soll er mir dann den Ordner02 beim Durchführen der Routine auch direkt erstellen - geht das?
3.)die Dateien in Ornder01 sind sowohl.pdf als auch .dwg - kann ich mit einer Routine vorgeben, dass jeweils beide Dateitypen gleichzeitig kopiert werden sollen? Bisher habe ich das auf 2 Routinen aufgeteilt.
------------------------------------------------------------------------
Sub copyFilepdf()
Dim objFSO As Object, rng As Range
Dim strFileToCopy, strOldPath As String, strNewPath As String
strOldPath = "C:\Ordner01\"
strNewPath = "C::\Ordner01\Ordner02\"
With ActiveSheet
For Each rng In Range("AX13:AX1000")
strFileToCopy = rng 'Zelle mit dem Namen
strFileToCopy = strFileToCopy & ".pdf"
If Dir(strOldPath & strFileToCopy, vbNormal) "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyFile strOldPath & strFileToCopy, strNewPath & strFileToCopy
End If
Next
End With
Set objFSO = Nothing
Set rng = Nothing
End Sub
Danke & Gruß
Jens
Anzeige