私はB</p> <pre><code>FileCopy "C:\Documents\Folder A\test.xlsx", "C:\Documents\Folder B\test.xlsx" </code></pre> <p>をフォルダにフォルダAからファイルをコピーするマクロを書くために知っている別の場所

Question

にすべてのサブフォルダを移動するために、Excelマクロ誰かがExcel用のすべてのサブフォルダを移動するには、マクロ助けてもらえますし、 「フォルダA」から「フォルダB」までのファイルありがとうございます

Answer 1

Plお試しください：要件に応じてフォルダを変更してください。

Sub Copy_Folder() 
'This example copy all files and subfolders from FromPath to ToPath. 
'Note: If ToPath already exist it will overwrite existing files in this folder 
'if ToPath not exist it will be made for you. 
    Dim FSO As Object 
    Dim FromPath As String 
    Dim ToPath As String 

    FromPath = "C:\Process_Contract_Notes" '<< Change 
    ToPath = "C:\Process" '<< Change 


    If Right(FromPath, 1) = "\" Then 
     FromPath = Left(FromPath, Len(FromPath) - 1) 
    End If 

    If Right(ToPath, 1) = "\" Then 
     ToPath = Left(ToPath, Len(ToPath) - 1) 
    End If 

    Set FSO = CreateObject("scripting.filesystemobject") 

    If FSO.FolderExists(FromPath) = False Then 
     MsgBox FromPath & " doesn't exist" 
     Exit Sub 
    End If 

    FSO.CopyFolder Source:=FromPath, Destination:=ToPath 
    MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath 

End Sub