Variable als Pfad
25.08.2022 01:20:52
Lapos
ich habe hier ein Makro das mir in einer Tabelle(A) gespeicherte Datein von einem in den anderen Ordner Kopiert.
Wie kann ich den generierten Pfad als tFolder deklarieren damit meine Datein in dem erzeugten Ordner abgelegt werden?
Mein Versuch die Variable sFolderPath einzutragen ist gescheitert.
Sub Kopieren_File()
'Variable
Dim sFolderPath As String
'Verzeichnis definition
sFolderPath = "C:\Users\Chef-Desk\Desktop\Bilder\Bilder_Export_" & _
Format(Day(Date), "00_") & Format(Month(Date), "00_") & Year(Date)
'Verzeichniss ertstellen
MkDir sFolderPath
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' erste bis letzte Zeile des aktiven Blattes
qFile = Worksheets("Copy").Cells(i, 1).Value ' Dateiname setzen
qFolder = "C:\Users\Chef-Desk\Desktop\Bilder\neue_Bilder\"
tFolder = sFolderPath
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.CopyFile qFolder & qFile, tFolder & qFile, True
Next ' nächsten Wert der Schleife
End Sub