VBA

Question

我需要帮助才能在下载后将多个文件复制到一个文件夹中。

下载后的文件默认重命名为：

Branch_A.xlsx
Branch_A (1).xlsx
Branch_A (2).xlsx

我通常使用这里的代码，但是这段代码只将一个文件复制到一个文件夹中。我需要代码可以捕获单词“Branch_A”然后计算文件并复制到文件夹Branch_A。计数文件已修复 3，它会出现 4..5..6..

Sub down1()
'RENAME FILE DOWNLOAD BY BRANCHES

Dim Ws As Worksheet
Dim FromPath As String
Dim ToPath As String

    
Set Ws = ThisWorkbook.Worksheets("Path_Down1")

'FROM DOWNLOAD - C:\Users\Downloads\
FromPath = Ws.Range("E11").Value

'TO FOLDER - D:\Inbound\Branch_A\
ToPath = Ws.Range("F11").Value

Ws.Activate
FileCopy FromPath, ToPath


End Sub

我搜索了几个网站，发现代码可以根据扩展名对文件进行计数，但我不知道如何编辑以按名称计数并复制到文件夹。这里的示例代码：

Sub sample()

    Dim FolderPath As String, path As String, count As Integer
    FolderPath = "C:\Documents and Settings\Santosh\Desktop"

    path = FolderPath & "\*.xls"

    Filename = Dir(path)

    Do While Filename <> ""
       count = count + 1
        Filename = Dir()
    Loop

    Range("Q8").Value = count
    'MsgBox count & " : files found in folder"
End Sub

感谢您的帮助。

Answer 1

下面的代码是您要找的东西吗？这就是我能想到的对我有意义的东西。如果不是，请提供有关问题所在的更多信息。

Sub Down1()

    Dim FromFolder As String, ToFolder As String
    Dim FromPath As String, ToPath As String, ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("Path_Down1")
    FromFolder = ws.Range("E11").Value
    ToFolder = ws.Range("F11").Value
    Filename = Dir(FromFolder & "\*.xlsx")
    
    Do While Filename <> ""
        If InStr(Filename, "Branch_A") > 0 Then
            FromPath = FromFolder & "\" & Filename
            ToPath = ToFolder & "\" & Filename
            
            FileCopy FromPath, ToPath
        End If
        Filename = Dir()
    Loop
    
End Sub

VBA - 将多个文件（下载 1..2..3.. 后）复制到一个文件夹中

VBA - Copy Mutiple File (After Download 1..2..3..) by Count into a Folder