用Excel VBA拷贝特定文件到另一文件夹的方法

  假设我们需要将文件夹“C:\FolderA”中的符合下面条件的文件，拷贝到“C:\FolderB”中。

  拷贝条件：扩展名是xls或xlsx，并且文件名中不包含“OK”字样。

  在Excel中插入一个ActiveX按钮，在按钮的事件中加入如下代码：

Private Sub CommandButton1_Click()

    Dim Fso As Object
    
    Set Fso = CreateObject("Scripting.FileSystemObject")

    Dim fs, f, f1, fc
    
    On Error Resume Next
    
    Set fs = CreateObject("scripting.filesystemobject")
    Set f = fs.GetFolder("C:\FolderA