|
5#
楼主 |
发表于 2021-10-7 09:55:13
|
只看该作者
经典案例图书 在网上找的这个代码在EXCEL中运行成功,但不知道里面写的是什么意思,有大神帮忙写下注释吗
Sub 移动文件()
Dim Fso As Object, oFile As Object, sFolder$
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each oFolder In Fso.GetFolder(ThisWorkbook.Path).SubFolders
For Each oFile In oFolder.Files
If oFile.Name Like "*.xlsx" Then
sFolder = oFolder & "\" & Replace(oFile.Name, ".xlsx", "") & "\"
oFile.Move sFolder
Fso.getFile(sFolder & oFile.Name).Name = "A" & oFile.Name
End If
Next
Next
MsgBox "OK"
Set Fso = Nothing
End Sub |
|