如何根据对话框输入的日期拷贝对应的Excel文件

边城烽火

求助大神：

      老板经常要求按照给定的一个时间周期准备文档到一个文件夹，非常突然。
      有没有能人帮忙实现一下，在TEST.xlsx里设有开始日期和结束日期，使用VBA能自动在给定的文件夹内寻找符合这个日期范围的文档，然后保存副本到新建的文件夹“BOSS的新资料准备”里？
      比如开始日期输入“2023-07-01”， 结束日期输入“2023-07-19”， 然后新文件夹“BOSS的新资料准备”里自动保存了 (7-1.xlsx, 7-2.xlsx, 7-4.xlsx, 7-5.xlsx).
      在线等待中。。。

半百

请测试。。。

limonet

用到FSO，like ，IF,COPYFILE

limonet

Sub Limonet()
    Dim M1%, M2%, D1%, D2%, FileName As Variant, F As Object
    M1 = Month([C2].Value)
    M2 = Month([C4].Value)
    D1 = Day([C2].Value)
    D2 = Day([C4].Value)
    MkDir ThisWorkbook.Path & "\BOSS的新资料准备"
    With CreateObject("scripting.filesystemobject")
        For Each F In .getfolder(ThisWorkbook.Path).Files
            If Not F.Name Like "*TEST*" Then
                FileName = Split(Split(F.Name, ".")(0), "-")
                If FileName(0) >= M1 And FileName(0) <= M2 And FileName(1) >= D1 And FileName(1) <= D2 Then
                    .Copyfile F.Path, ThisWorkbook.Path & "\BOSS的新资料准备\"
                End If
            End If
        Next F
    End With
End Sub

边城烽火

limonet 发表于 2023-7-27 14:44
用到FSO，like ，IF,COPYFILE

100分！完全看明白了，好用，非常感谢！

边城烽火

limonet 发表于 2023-7-27 14:44
用到FSO，like ，IF,COPYFILE

经过测试了，好用的，感谢！