[已解决]用VBA将文件名含有某个特定内容的文件从一个文件夹复制到另外一个文件夹

hasyh2008

Sub 复制文件()
  Dim path$
  Dim path1$
  Dim path2$
  Dim MyFile As Object
  Set MyFile = CreateObject("Scripting.FileSystemObject")
  path = ThisWorkbook.path
  path1 = path & "\A\灵飞经.pdf"
  path2 = path & "\B\灵飞经.pdf"
  MyFile.copyfile path1, path2
  Set MyFile = Nothing
End Sub

已测试过，可以！！

gaiety1974

hasyh2008 发表于 2022-6-6 13:14
Sub 复制文件()
  Dim path$
  Dim path1$

谢谢，这个可以，但好像需要2个文件夹和Excel文件本身要在一个目录下面对吧，谢谢

hasyh2008

gaiety1974 发表于 2022-6-6 13:56
谢谢，这个可以，但好像需要2个文件夹和Excel文件本身要在一个目录下面对吧，谢谢

目录可以自己设置

gaiety1974

hasyh2008 发表于 2022-6-6 14:08
目录可以自己设置

If (Right(f1, 3) = "DF" Or Right(f1, 4) = "DOCX") And InStr(1, f1, "OK") <= 0 Then   我改成If (Right(f1, 4) = "DOCX" Or Right(f1, 3) = "DF") And InStr(1, f1, "OK")  Then

就可以了

谢谢，你的代码简单也能实现一样的目的，谢谢啦