Копирование файлов из разных папок зацикливается в другую папку с помощью vba - PullRequest
Новая
       4

Копирование файлов из разных папок зацикливается в другую папку с помощью vba

0 голосов
/ 26 сентября 2018

Я пытаюсь скопировать файлы из разных папок (файлы Excel) в одну папку.Я хочу, чтобы он копировал файлы Excel из этих папок, но папка может существовать или не существовать, и хотела бы иметь возможность вернуться к следующему при ошибке, если папка не существует.новый для VBA.Ниже, по сути, то, что я хотел бы, но цикл не работает, и я хочу иметь возможность просто искать последние 10 папок по расширениям ниже и, если он не существует, перейти к следующей и так далее, пока ондостигает 10 имен папок и копирует все файлы Excel из этой папки 

Sub Day2()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileExt As String
Dim i As Integer
For i = 1 To 10
FromPath = "Sample folder\Sample - Submited to TD by Date\" & Format((Now - i), "yyyy") & "\" & Format((Now - i), "yyyy") & "_" & Format((Now - i), "mm") & "\" & _
"Submitted Requests - " & Format((Now - i), "mm") & "-" & Format((Now - i), "dd") & "-" & Format((Now - i), "yy")
ToPath = "\Sample\To Combine\" 
FileExt = "*.xl*"
If Right(FromPath, 1) <> "\" Then
    FromPath = FromPath & "\"
End If
Set FSO = CreateObject("scripting.filesystemobject")
FSO.CopyFile Source:=FromPath & FileExt, Destination:=ToPath
Next i
End Sub
...