'1 遍历文件夹
mypath1 = ThisWorkbook.path & "\"
folename = Dir(mypath1, vbDirectory) '这里主要是Dir的第二个参数的变化fole
阅读背景：
dir函数读取相应路径下的文件名或文件夹名
来源：互联网
分享到：
