如何将特定文件从子文件夹复制到目标文件夹？ （Excel VBA）

Question

我是VBA的新手，对此程序的任何帮助都非常感谢！

此程序的目标是将网络中的所有特定文件类型（.pdf）复制到桌面上的文件夹中。但是，（.pdf）文件位于每个文件夹子文件夹中。

如果我有用户定义文件夹（与许多子文件夹），我想程序将每个.pdf从每个子文件夹复制到目标文件夹。

这是我从浏览互联网到目前为止所得到的。

Sub Copy_test2() 
Dim FSO As Object, fld As Object 
Dim fsoFile As Object 
Dim fsoFol As Object 

    FromPath = "D:\Users\A\Desktop\test1" 'user will define this 
    ToPath = "D:\Users\A\Desktop\test2" 'this will be the folder on the desktop 

    If Right(FromPath, 1) <> "\" Then 
     FromPath = FromPath & "\" 
    End If 

Set FSO = CreateObject(“Scripting.FileSystemObject”) 

Set fld = FSO.GetFolder(FromPath) 

If FSO.FolderExists(fld) Then 
    For Each fsoFol In FSO.GetFolder(FromPath).subfolders 
     For Each fsoFile In fsoFol.Files 
      If Right(fsoFile, 3) = “pdf” Then 
       fsoFile.Copy ToPath 
      End If 
     Next 
    Next 
End If 

End Sub 

当我运行它，我得到：运行时错误“424”必选对象为

Set FSO = CreateObject(“Scripting.FileSystemObject”) 

我要对这个代码的正确方法？还是有其他方法来完成这项任务？

谢谢！

Answer 1

始终以Option Explicit开始您的模块。这迫使你声明所有的变量，这是一件好事。

然后，在运行它之前，请始终编译您的代码。这可以从调试菜单 - >编译完成。在你的情况下，编译将会失败，因为没有声明几个字符串变量（除非它们是在模块级声明的），并且因为你使用的双引号不是“，ie”和“。 VBA不喜欢他们:-)