【マクロ】フォルダ内のファイルコピペ

 Sub ファイルコピペ()

     

    Dim Path As String

    Dim CopyPath As String

    Dim FName As String

     

    Path = "Z:\EXCEL日報\2021年度csv\"'コピー元のフォルダパス

    CopyPath = "Z:\EXCEL日報\読み取り専用csv\"'コピー先のフォルダパス

     

     

    FName = Dir(Path & "*.csv")'ファイルの拡張子を指定する"*.*"とすると全てのファイルになる

         

       Do While FName <> ""

       FileCopy Path & FName, CopyPath & FName

       FName = Dir()

    Loop

End Sub