特牛网址导航

vba不能提取服务器上文件名,(纯代码)Excel VBA-WE011 【子目录文件名获取】-文件名提取...-CSDN博客

网友收藏
Sub ListFile()fpath = [A1]If Right(fpath, 1) <> "\" Then fpath = fpath & "\"Set d = CreateObject("Scripting.Dictionary")d.Add fpath, ""Zi = 1i = 0Do While Zi = 1 And i < d.Countdpath = d....