Hallo liebe Profis!
Kann mir jemand sagen, wie ich das File in einen neuen anderen Ordner verschieben kann?
Danke für die Hilfe!
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oFile In oFSO.GetFolder(sFolder).Files
If Left(oFile.Name, 1) "~" And UCase(oFSO.GetExtensionName(oFile.Name)) = "XLSX" Then ' Or UCase(oFSO.GetExtensionName(oFile.Name)) = "XLSM" Then
Set wk = Workbooks.Open(sFolder + oFile.Name)
processWorkbook wk, alleZeilen, startDate, endDate
End If
Next oFile