如何解决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 举报,一经查实,本站将立刻删除。