遍历文件/文件夹
Set Fso = CreateObject("scripting.filesystemobject") '后期绑定
Set ff = Fso.getfolder(ThisWorkbook.Path) 'FSO取文件树
For Each f In ff.Files '遍历
'''
'核心代码块
'''
Next f
遍历数组
For Each key In dict.keys '遍历keys
msgbox dict(key)
Next