VBA重命名并将pdf基于特定名称从子文件夹移动到一个文件夹中

问题描述

我正在尝试将子文件夹中的任何文件重命名为“ 1040”，然后将其复制到桌面上的单独文件夹中。 这是我当前正在使用的代码。它没有达到我的最终目标，而是说“完成！”没有做任何事情：

Sub LoopSubfoldersAndFiles()
Dim fso As Object
Dim folder As Object
Dim subfolders As Object
Dim MyFile As String
Dim wb As Workbook
Dim CurrFile As Object
Dim fsuffix As String
Dim freturn As String
Dim propfname As String
Dim sPathn As String

With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Users\student\Documents\")
Set subfolders = folder.subfolders
MyFile = "*1040*.pdf"
sPathn = InputBox("Enter a full path where workbooks will be saved") & "\"

For Each subfolders In subfolders

Set CurrFile = subfolders.Files
   
    For Each CurrFile In CurrFile
        If CurrFile.Name = MyFile Then

    freturn = "Federal 1040"
    fsuffix = Right(CurrFile,4)
    propfname = sPathn & freturn & fsuffix
  Name CurrFile As freturn & fsuffix
  
  Filecopy CurrFile,propfname

        End If
    Next
  
Next

Set fso = nothing
Set folder = nothing
Set subfolders = nothing

 With Application
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True

MsgBox "Done!"
End With
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）