如何用VBA将文件名中含有相同字符的文件从一个文件夹保存到另一个指定文件夹中？

参考迟散使用代码：含雹

Private Sub FileChecking()

Dim CheckFolder$, TargetFolder$, KeyWord$, ic%

CheckFolder = "D:\T1\" '检查路径，依需设置

TargetFolder = "D:\T2\" '备份路径，依需设置

KeyWord = "2022" '关键词，依码老氏需设置

ic = 1

For Each f In CreateObject("scripting.FileSystemObject").GetFolder(CheckFolder).Files

If f.Name Like "*" &KeyWord &"*" Then

FileCopy CheckFolder &f.Name, TargetFolder &f.Name

ic = ic + 1

End If

Next

MsgBox ic &"个文件复制完成!"

End Sub

以上希望能帮上忙！

用FileCopy语句即可。例如将“埋仔D:\123.txt"文件复制到C:\ABC文件弯握汪夹下：皮猜

FileCopy D:\123.txt C:\ABC\123.txt

当然在复制的同时还可以改变文件名

方法一：FileCopy可在VBA中直接引用，单个纤咐文件的copy。语法：FileCopy源文件名,目标文件名注：如果想要对一个已打开的文件使用FileCopy语句，则会燃饥产生错误。示例：FileCopy当前路径,目标路毁段纯径方法二：CopyFile需调用FileSystemObjec

---