vba写一个批量复制excel文件并用指定名称修改

VBA可以帮助我们批量复制Excel文件，并且可以指定修改后的名称。下面是VBA代码示例：

Sub BatchCopyAndRenameFiles()
    Dim sourcePath As String
    Dim targetPath As String
    Dim fileName As String
    Dim newFileName As String
    Dim fileExtension As String
    Dim sourceFile As String
    Dim targetFile As String
    
    ' 设置源文件夹路径和目标文件夹路径
    sourcePath = "C:\SourceFolder\"
    targetPath = "C:\TargetFolder\"
    
    ' 循环遍历源文件夹中的所有文件
    sourceFile = Dir(sourcePath & "\*.*")
    While sourceFile <> ""
        ' 获取文件名和扩展名
        fileName = Left(sourceFile, InStrRev(sourceFile, ".") - 1)
        fileExtension = Mid(sourceFile, InStrRev(sourceFile, ".") + 1)
        
        ' 设置新的文件名
        newFileName = "NewName_" & fileName
        
        ' 构建新的文件路径
        targetFile = targetPath & newFileName & "." & fileExtension
        
        ' 复制并重命名文件
        FileCopy sourcePath & sourceFile, targetFile
        
        ' 继续处理下一个源文件
        sourceFile = Dir
    Wend
    
    MsgBox "批量复制和重命名操作已完成！"
End Sub

请将代码中的`sourcePath`和`targetPath`变量替换为你自己的源文件夹路径和目标文件夹路径。代码会在目标文件夹中复制并重命名每个源文件，新的文件名的格式是在原文件名前添加"NewName_"前缀。