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

最新推荐文章于 2024-08-17 09:55:39 发布

weixin_30399797

最新推荐文章于 2024-08-17 09:55:39 发布

阅读量3.6k

点赞数

原文链接：http://www.cnblogs.com/dazuo/p/4919877.html

版权

这篇博客介绍了如何使用Excel VBA编写代码，以满足特定条件（扩展名为xls或xlsx且文件名不含'OK'）从'FolderA'复制文件到'FolderB'。通过插入ActiveX按钮并编写相关函数实现这一功能。

摘要由CSDN通过智能技术生成

假设我们需要将文件夹“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